From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 28 Jul 2020 00:14:02 +0000 (+0100)
Subject: src/sod.asd.in: Find `auto.lisp' even if we're located via logical pathname.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/0680627693d3784d8a4f8eb94a8707882fb5f1f0?ds=inline;hp=8a4a92d5fd8d5639293f62f9c12c2712d526cb72

src/sod.asd.in: Find `auto.lisp' even if we're located via logical pathname.

Without this, `#p"auto.lisp"' looks like an /absolute/ pathname
according to the logical-pathname syntax rules, and it can't be found.
I admit to preferring to type `home:src;sod;..." than my actual home
directory.
---

diff --git a/src/sod.asd.in b/src/sod.asd.in
index eabc504..894d50b 100644
--- a/src/sod.asd.in
+++ b/src/sod.asd.in
@@ -29,7 +29,8 @@
 
 (cl:in-package #:sod-sysdef)
 
-#|@-auto-@|# (load (merge-pathnames "auto.lisp" *load-pathname*))
+#|@-auto-@|# (load (make-pathname :name "AUTO" :type "LISP" :version :newest
+				  :case :common :defaults *load-pathname*))
 
 #+cmu (require :gray-streams)