2
|
1
|
;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*- |
42
|
2
|
(in-package :cl-user) |
2
|
3
|
(require :asdf) |
42
|
4
|
(require :sb-concurrency) |
|
5
|
(require :sb-cltl2) |
|
6
|
(require :sb-rotate-byte) |
|
7
|
(require :sb-sprof) |
2
|
8
|
(setq *debug-beginner-help-p* nil |
|
9
|
;; *print-case* :downcase |
|
10
|
*print-level* 32 |
|
11
|
*print-length* 256) |
|
12
|
|
45
|
13
|
(defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp") |
|
14
|
(probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp"))) |
34
|
15
|
|
2
|
16
|
#-quicklisp |
34
|
17
|
(when *quicklisp-setup* |
|
18
|
(load *quicklisp-setup*)) |
2
|
19
|
;; (ql:quickload :clouseau) |
34
|
20
|
|
2
|
21
|
(defun include-projects-from (path) |
|
22
|
"Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*." |
45
|
23
|
#+quicklisp (pushnew path ql:*local-project-directories*) |
2
|
24
|
(pushnew path asdf:*central-registry*)) |
|
25
|
|
|
26
|
(mapc #'include-projects-from |
|
27
|
(mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname))) |
19
|
28
|
(list "comp/core/lisp/" |
|
29
|
"comp/demo/" |
|
30
|
"comp/scratch/"))) |
2
|
31
|
|
|
32
|
;; (require :sb-aclrepl) |