Quiet system loading where asdf puts egregious warnings out

[candle] / bin / candle-server

diff --git a/bin/candle-server b/bin/candle-server
index 4d00ac08c66f075bd1587deba8df61de6453ec03..3013adea9071dc9b387fefaaf054d388f4f6dc98 100755 (executable)
--- a/bin/candle-server
+++ b/bin/candle-server
@@ -3,8 +3,10 @@
 (setf *compile-print* nil)
 (require 'asdf)
 (asdf:initialize-source-registry
- `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
-(asdf:load-system :candle)
+ `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
+(let
+ ((*error-output* (make-broadcast-stream)))
+ (asdf:load-system :candle))
 (asdf:load-system :opera)
 
 (defpackage #:candle-server-cli (:use #:common-lisp))