# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1718496620 0
# Node ID cd44192f8af573f3cf6f865e2f9c20f90a85b524
# Parent  d70be963bfb1107954b30ebc2052095a5d589231
move quicklisp

diff -r d70be963bfb1 -r cd44192f8af5 .sbclrc
--- a/.sbclrc	Sat Jun 15 19:57:38 2024 -0400
+++ b/.sbclrc	Sun Jun 16 00:10:20 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