changeset 348: |
3bce51a08b5c |
parent 347: |
724218ecea4b |
child 349: |
1b3761849c98 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Mon, 13 May 2024 22:10:24 -0400 |
files: |
lisp/bin/homer.lisp |
description: |
bufixes |
1.1--- a/lisp/bin/homer.lisp Mon May 13 22:03:51 2024 -0400
1.2+++ b/lisp/bin/homer.lisp Mon May 13 22:10:24 2024 -0400
1.3@@ -62,7 +62,7 @@
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 src
1.8+ (if (info! src)
1.9 (setf src (pathname src))
1.10 (setf src (pathname (sb-posix:getenv "HOMER"))))))))
1.11