# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1718496681 0
# Node ID 5d653dd07bd67bc5582d72d0933acea143c738ba
# Parent  3b1dfa0741c86d95ea5f643495314dcf32c71be8# Parent  cd44192f8af573f3cf6f865e2f9c20f90a85b524
merge

diff -r 3b1dfa0741c8 -r 5d653dd07bd6 .sbclrc
--- a/.sbclrc	Sat Jun 15 19:59:31 2024 -0400
+++ b/.sbclrc	Sun Jun 16 00:11:21 2024 +0000
@@ -10,8 +10,8 @@
       *print-level* 32
       *print-length* 256)
 
-(defvar *quicklisp-setup* (or (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")
-                              (probe-file (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))))
+(defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp")
+                              (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")))
 
 #-quicklisp
 (when *quicklisp-setup*
@@ -20,7 +20,7 @@
 
 (defun include-projects-from (path)
   "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
-  (pushnew path ql:*local-project-directories*)
+  #+quicklisp (pushnew path ql:*local-project-directories*)
   (pushnew path asdf:*central-registry*))
 
 (mapc #'include-projects-from