changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > infra > home / annotate .sbclrc

changeset 43: d70be963bfb1
parent: 7c3493214a9a
parent: b9e2f76128bb
child: cd44192f8af5
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 15 Jun 2024 19:57:38 -0400
permissions: -rw-r--r--
description: sbcl
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
42
b9e2f76128bb sbcl update
Richard Westhaver <ellis@rwest.io>
parents: 34
diff changeset
2 
 (in-package :cl-user)
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 (require :asdf)
42
b9e2f76128bb sbcl update
Richard Westhaver <ellis@rwest.io>
parents: 34
diff changeset
4 
 (require :sb-concurrency)
b9e2f76128bb sbcl update
Richard Westhaver <ellis@rwest.io>
parents: 34
diff changeset
5 
 (require :sb-cltl2)
b9e2f76128bb sbcl update
Richard Westhaver <ellis@rwest.io>
parents: 34
diff changeset
6 
 (require :sb-rotate-byte)
b9e2f76128bb sbcl update
Richard Westhaver <ellis@rwest.io>
parents: 34
diff changeset
7 
 (require :sb-sprof)
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 (setq *debug-beginner-help-p* nil
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
       ;; *print-case* :downcase
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
       *print-level* 32
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
11 
       *print-length* 256)
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12 
 
34
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
13 
 (defvar *quicklisp-setup* (or (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
14 
                               (probe-file (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))))
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
15 
 
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16 
 #-quicklisp
34
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
17 
 (when *quicklisp-setup*
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
18 
   (load *quicklisp-setup*))
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
19 
 ;; (ql:quickload :clouseau)
34
6eef2d50b7fd sbclrc update
Richard Westhaver <ellis@rwest.io>
parents: 19
diff changeset
20 
 
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
21 
 (defun include-projects-from (path)
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
22 
   "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
23 
   (pushnew path ql:*local-project-directories*)
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
24 
   (pushnew path asdf:*central-registry*))
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
25 
 
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
26 
 (mapc #'include-projects-from
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
27 
       (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
19
ca703415cc62 add paredit.el
Richard Westhaver <ellis@rwest.io>
parents: 2
diff changeset
28 
               (list "comp/core/lisp/"
ca703415cc62 add paredit.el
Richard Westhaver <ellis@rwest.io>
parents: 2
diff changeset
29 
                     "comp/demo/"
ca703415cc62 add paredit.el
Richard Westhaver <ellis@rwest.io>
parents: 2
diff changeset
30 
                     "comp/scratch/")))
2
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
31 
 
2cd49f7c09bb import ellis home
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
32 
 ;; (require :sb-aclrepl)