From: Frank Duncan <frank@kank.net>
Date: Fri, 13 Aug 2021 20:25:30 +0000 (-0500)
Subject: Make it so the candle script loads asdf based on its location
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=d4347f657683d793c2e56f5ef93802d582db3562

Make it so the candle script loads asdf based on its location
---

diff --git a/bin/candle b/bin/candle
index ee68498..7e985d6 100755
--- a/bin/candle
+++ b/bin/candle
@@ -3,7 +3,7 @@
 (setf *compile-print* nil)
 (require 'asdf)
 (asdf:initialize-source-registry
- `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
+ `(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))
 (asdf:load-system :candle)
 (candle-cli:run)