1.1--- a/lisp/bin/homer.lisp	Mon May 13 22:10:24 2024 -0400
     1.2+++ b/lisp/bin/homer.lisp	Mon May 13 22:13:56 2024 -0400
     1.3@@ -62,9 +62,11 @@
     1.4     (let ((form (file-read-forms file)))
     1.5       (setq *home-config* (load-ast (make-instance 'home-config :ast form :path file :id (sxhash form))))
     1.6       (with-slots (src) *home-config*
     1.7-        (if (info! src)
     1.8+        (if src
     1.9             (setf src (pathname src))
    1.10-            (setf src (pathname (sb-posix:getenv "HOMER"))))))))
    1.11+            (if-let ((homer (sb-posix:getenv "HOMER")))
    1.12+              (setf src (pathname homer))
    1.13+              (error "missing HOMER directory")))))))
    1.14 
    1.15 ;;; CLI
    1.16 (defopt homer-help (print-help $cli))