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"/usr/local/share/lisp/quicklisp/setup.lisp") 14 (probe-file (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))) 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 (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))) 28 (list "comp/core/lisp/" 32 ;; (require :sb-aclrepl)