changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra > home / .sbclrc

changeset 56: a5fa4f57e8b3
parent: cd44192f8af5
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 20 Jul 2024 22:48:23 -0400
permissions: -rw-r--r--
description: skelrc format update 
     1 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     2 (in-package :cl-user)
     3 (require :asdf)
     4 (require :sb-concurrency)
     5 (require :sb-cltl2)
     6 (require :sb-rotate-byte)
     7 (require :sb-sprof)
     8 (setq *debug-beginner-help-p* nil
     9       ;; *print-case* :downcase
    10       *print-level* 32
    11       *print-length* 256)
    12 
    13 (defvar *quicklisp-setup* (or (probe-file #P"~/.stash/quicklisp/setup.lisp")
    14                               (probe-file #P"/usr/local/share/lisp/quicklisp/setup.lisp")))
    15 
    16 #-quicklisp
    17 (when *quicklisp-setup*
    18   (load *quicklisp-setup*))
    19 ;; (ql:quickload :clouseau)
    20 
    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*))
    25 
    26 (mapc #'include-projects-from
    27       (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
    28               (list "comp/core/lisp/"
    29                     "comp/demo/"
    30                     "comp/scratch/")))
    31 
    32 ;; (require :sb-aclrepl)