# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1721779517 14400
# Node ID a535b1cb81f28b1c33459043767450cba6ccf6a0
# Parent  ba99e803354d4b15287f8ca5fe5e3ab7edd2f1ca
add sbclrc

diff -r ba99e803354d -r a535b1cb81f2 .sbclrc
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.sbclrc	Tue Jul 23 20:05:17 2024 -0400
@@ -0,0 +1,29 @@
+;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
+(in-package :cl-user)
+(require :asdf)
+(require :sb-concurrency)
+(require :sb-cltl2)
+(require :sb-rotate-byte)
+(require :sb-sprof)
+(setq *debug-beginner-help-p* nil
+      ;; *print-case* :downcase
+      *print-level* 32
+      *print-length* 256)
+
+(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*
+  (load *quicklisp-setup*))
+;; (ql:quickload :clouseau)
+
+(defun include-projects-from (path)
+  "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
+  #+quicklisp (pushnew path ql:*local-project-directories*)
+  (pushnew path asdf:*central-registry*))
+
+(mapc #'include-projects-from
+      (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
+              (list ".stash/")))
+;; (require :sb-aclrepl)