changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra > home / .sbclrc

changeset 28: 7c3493214a9a
parent: 3299803b6127
child: d70be963bfb1
author: Richard Westhaver <ellis@rwest.io>
date: Wed, 29 May 2024 15:52:22 +0000
permissions: -rw-r--r--
description: mv quicklisp dir on rurik 
     1 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     2 (require :asdf)
     3 
     4 (setq *debug-beginner-help-p* nil
     5       ;; *print-case* :downcase
     6       *print-level* 32
     7       *print-length* 256)
     8 
     9 #-quicklisp
    10 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" "/usr/local/share/lisp/")))
    11   (when (probe-file quicklisp-init)
    12     (load quicklisp-init)))
    13 ;; (ql:quickload :clouseau)
    14 (defun include-projects-from (path)
    15   "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
    16   (pushnew path ql:*local-project-directories*)
    17   (pushnew path asdf:*central-registry*))
    18 
    19 (mapc #'include-projects-from
    20       (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
    21               (list "comp/core/lisp/"
    22                     "comp/demo/"
    23                     "comp/scratch/")))
    24 
    25 ;; (require :sb-aclrepl)