1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/.sbclrc	Tue Jul 23 20:05:17 2024 -0400
     1.3@@ -0,0 +1,29 @@
     1.4+;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     1.5+(in-package :cl-user)
     1.6+(require :asdf)
     1.7+(require :sb-concurrency)
     1.8+(require :sb-cltl2)
     1.9+(require :sb-rotate-byte)
    1.10+(require :sb-sprof)
    1.11+(setq *debug-beginner-help-p* nil
    1.12+      ;; *print-case* :downcase
    1.13+      *print-level* 32
    1.14+      *print-length* 256)
    1.15+
    1.16+(defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp")
    1.17+                              (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")))
    1.18+
    1.19+#-quicklisp
    1.20+(when *quicklisp-setup*
    1.21+  (load *quicklisp-setup*))
    1.22+;; (ql:quickload :clouseau)
    1.23+
    1.24+(defun include-projects-from (path)
    1.25+  "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
    1.26+  #+quicklisp (pushnew path ql:*local-project-directories*)
    1.27+  (pushnew path asdf:*central-registry*))
    1.28+
    1.29+(mapc #'include-projects-from
    1.30+      (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
    1.31+              (list ".stash/")))
    1.32+;; (require :sb-aclrepl)