changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra > home / .sbclrc

changeset 19: ca703415cc62
parent: 2cd49f7c09bb
child: 3299803b6127
child: 6eef2d50b7fd
author: Richard Westhaver <ellis@rwest.io>
date: Tue, 21 May 2024 22:20:59 -0400
permissions: -rw-r--r--
description: add paredit.el 
     1 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     2 (require :asdf)
     3 ;;; If a fasl was stale, try to recompile and load (once).
     4 (defmethod asdf:perform :around ((o asdf:load-op)
     5                                  (c asdf:cl-source-file))
     6   (handler-case (call-next-method o c)
     7     ;; If a fasl was stale, try to recompile and load (once).
     8     (sb-ext:invalid-fasl ()
     9       (asdf:perform (make-instance 'asdf:compile-op) c)
    10       (call-next-method))))
    11 
    12 (setq *debug-beginner-help-p* nil
    13       ;; *print-case* :downcase
    14       *print-level* 32
    15       *print-length* 256)
    16 
    17 #-quicklisp
    18 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
    19   (when (probe-file quicklisp-init)
    20     (load quicklisp-init)))
    21 ;; (ql:quickload :clouseau)
    22 (defun include-projects-from (path)
    23   "Add PATH to QL;*LOCAL-PROJECT-DIRECTORIES* and ASDF:*CENTRAL-REGISTRY*."
    24   (pushnew path ql:*local-project-directories*)
    25   (pushnew path asdf:*central-registry*))
    26 
    27 (mapc #'include-projects-from
    28       (mapcar (lambda (x) (merge-pathnames x (user-homedir-pathname)))
    29               (list "comp/core/lisp/"
    30                     "comp/demo/"
    31                     "comp/scratch/")))
    32 
    33 ;; (require :sb-aclrepl)