From f51816234820d8be99594bf88060877217d24c8c Mon Sep 17 00:00:00 2001
From: Sebastian Carlos <sebastiancarlos@gmail.com>
Date: Tue, 25 Mar 2025 14:43:13 -0300
Subject: [PATCH] Check for custom init file name on SBCL. For
 `(ql:add-to-init-file)`

---
 quicklisp/impl-util.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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