X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fcandle;h=6e01fd49f5386207eb16300653f3f13a6954717c;hb=c8f9d56d5625b80407c3881f2039295a2496d9b3;hp=ee6849844e9d1c8fb18b210034286781567c3358;hpb=59e9f7983efcc1ee08609b075ea8345e5318b125;p=candle

diff --git a/bin/candle b/bin/candle
index ee68498..6e01fd4 100755
--- a/bin/candle
+++ b/bin/candle
@@ -3,8 +3,10 @@
 (setf *compile-print* nil)
 (require 'asdf)
 (asdf:initialize-source-registry
- `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
-(asdf:load-system :candle)
+ `(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))
+(let
+ ((*error-output* (make-broadcast-stream)))
+ (asdf:load-system :candle))
 (candle-cli:run)
 
 ; vim:ft=lisp