1.1--- a/lisp/bin/homer.lisp	Mon May 13 21:13:46 2024 -0400
     1.2+++ b/lisp/bin/homer.lisp	Mon May 13 21:16:15 2024 -0400
     1.3@@ -58,12 +58,13 @@
     1.4         
     1.5 (defun load-homerc (&optional (file *default-user-homerc*))
     1.6   "Load a homerc configuration from FILE. Defaults to ~/.homerc."
     1.7-  (let ((form (file-read-forms file)))
     1.8-    (setq *home-config* (load-ast (make-instance 'home-config :ast form :path file :id (sxhash form))))
     1.9-    (with-slots (src) *home-config*
    1.10-      (if src
    1.11-          (setf src (pathname src))
    1.12-          (setf src (pathname (sb-posix:getenv "HOMER")))))))
    1.13+  (unless (null (probe-file file))
    1.14+    (let ((form (file-read-forms file)))
    1.15+      (setq *home-config* (load-ast (make-instance 'home-config :ast form :path file :id (sxhash form))))
    1.16+      (with-slots (src) *home-config*
    1.17+        (if src
    1.18+            (setf src (pathname src))
    1.19+            (setf src (pathname (sb-posix:getenv "HOMER"))))))))
    1.20 
    1.21 ;;; CLI
    1.22 (defopt homer-help (print-help $cli))