X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fcandle;h=7e985d676c56b2f01aa83be8ad69e0d1bdf16453;hb=e8e6fda136aeb7ee54d71670d6b9242d0aa132ee;hp=2fc54e1a41cf2640442a936474b88abdb52323e3;hpb=43528d90eeeee498d0a94c22bc38de9554e15d9a;p=candle

diff --git a/bin/candle b/bin/candle
index 2fc54e1..7e985d6 100755
--- a/bin/candle
+++ b/bin/candle
@@ -3,6 +3,8 @@
 (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)
+
+; vim:ft=lisp