1.1--- a/.config/containers/storage.conf	Sat Jun 01 23:40:23 2024 -0400
     1.2+++ b/.config/containers/storage.conf	Sat Jun 01 23:41:50 2024 -0400
     1.3@@ -1,5 +1,5 @@
     1.4 [storage]
     1.5 driver = "btrfs"
     1.6-graphroot = "/mnt/y/data/containers/storage"
     1.7+# graphroot = "/mnt/y/data/containers/storage"
     1.8 [storage.options]
     1.9 pull_options = {enable_partial_images = "true", use_hard_links = "false", ostree_repos=""}
    1.10\ No newline at end of file

     2.1--- a/.sbclrc	Sat Jun 01 23:40:23 2024 -0400
     2.2+++ b/.sbclrc	Sat Jun 01 23:41:50 2024 -0400
     2.3@@ -1,13 +1,5 @@
     2.4 ;;; .sbclrc --- sbcl init file -*- mode: common-lisp; -*-
     2.5 (require :asdf)
     2.6-;;; If a fasl was stale, try to recompile and load (once).
     2.7-(defmethod asdf:perform :around ((o asdf:load-op)
     2.8-                                 (c asdf:cl-source-file))
     2.9-  (handler-case (call-next-method o c)
    2.10-    ;; If a fasl was stale, try to recompile and load (once).
    2.11-    (sb-ext:invalid-fasl ()
    2.12-      (asdf:perform (make-instance 'asdf:compile-op) c)
    2.13-      (call-next-method))))
    2.14 
    2.15 (setq *debug-beginner-help-p* nil
    2.16       ;; *print-case* :downcase
    2.17@@ -15,7 +7,7 @@
    2.18       *print-length* 256)
    2.19 
    2.20 #-quicklisp
    2.21-(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
    2.22+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" "/usr/local/share/lisp/")))
    2.23   (when (probe-file quicklisp-init)
    2.24     (load quicklisp-init)))
    2.25 ;; (ql:quickload :clouseau)