diff --git a/quicklisp/impl-util.lisp b/quicklisp/impl-util.lisp
index f69cb51..e02beca 100644
--- a/quicklisp/impl-util.lisp
+++ b/quicklisp/impl-util.lisp
@@ -75,7 +75,9 @@
   (:implementation lispworks
     ".lispworks")
   (:implementation sbcl
-    ".sbclrc")
+    (or (and (find-package :sb-ext)
+             (funcall sb-ext:*userinit-pathname-function*))
+        ".sbclrc"))
   (:implementation cmucl
     ".cmucl-init.lisp")
   (:implementation scl