1.1--- a/.sbclrc	Wed May 29 15:46:32 2024 +0000
     1.2+++ b/.sbclrc	Wed May 29 15:52:22 2024 +0000
     1.3@@ -1,13 +1,5 @@
     1.4 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     1.5 (require :asdf)
     1.6-;;; If a fasl was stale, try to recompile and load (once).
     1.7-(defmethod asdf:perform :around ((o asdf:load-op)
     1.8-                                 (c asdf:cl-source-file))
     1.9-  (handler-case (call-next-method o c)
    1.10-    ;; If a fasl was stale, try to recompile and load (once).
    1.11-    (sb-ext:invalid-fasl ()
    1.12-      (asdf:perform (make-instance 'asdf:compile-op) c)
    1.13-      (call-next-method))))
    1.14 
    1.15 (setq *debug-beginner-help-p* nil
    1.16       ;; *print-case* :downcase
    1.17@@ -15,7 +7,7 @@
    1.18       *print-length* 256)
    1.19 
    1.20 #-quicklisp
    1.21-(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" "/usr/local/share/")))
    1.22+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" "/usr/local/share/lisp/")))
    1.23   (when (probe-file quicklisp-init)
    1.24     (load quicklisp-init)))
    1.25 ;; (ql:quickload :clouseau)