1.1--- a/.sbclrc	Sat Jun 15 19:57:38 2024 -0400
     1.2+++ b/.sbclrc	Sun Jun 16 00:10:20 2024 +0000
     1.3@@ -10,8 +10,8 @@
     1.4       *print-level* 32
     1.5       *print-length* 256)
     1.6 
     1.7-(defvar *quicklisp-setup* (or (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")
     1.8-                              (probe-file (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))))
     1.9+(defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp")
    1.10+                              (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")))
    1.11 
    1.12 #-quicklisp
    1.13 (when *quicklisp-setup*
    1.14@@ -20,7 +20,7 @@
    1.15 
    1.16 (defun include-projects-from (path)
    1.17   "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
    1.18-  (pushnew path ql:*local-project-directories*)
    1.19+  #+quicklisp (pushnew path ql:*local-project-directories*)
    1.20   (pushnew path asdf:*central-registry*))
    1.21 
    1.22 (mapc #'include-projects-from