changeset 71: |
a535b1cb81f2 |
child: |
b1696605ca2e |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Tue, 23 Jul 2024 20:05:17 -0400 |
permissions: |
-rw-r--r-- |
description: |
add sbclrc |
1 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*- 4 (require :sb-concurrency) 6 (require :sb-rotate-byte) 8 (setq *debug-beginner-help-p* nil 9 ;; *print-case* :downcase 13 (defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp") 14 (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp"))) 17 (when *quicklisp-setup* 18 (load *quicklisp-setup*)) 19 ;; (ql:quickload :clouseau) 21 (defun include-projects-from (path) 22 "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*." 23 #+quicklisp (pushnew path ql:*local-project-directories*) 24 (pushnew path asdf:*central-registry*)) 26 (mapc #'include-projects-from 27 (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname))) 29 ;; (require :sb-aclrepl)