Quiet system loading where asdf puts egregious warnings out

[candle] / bin / candle

diff --git a/bin/candle b/bin/candle
index 7e985d676c56b2f01aa83be8ad69e0d1bdf16453..6e01fd49f5386207eb16300653f3f13a6954717c 100755 (executable)
--- a/bin/candle
+++ b/bin/candle
@@ -4,7 +4,9 @@
 (require 'asdf)
 (asdf:initialize-source-registry
  `(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))
-(asdf:load-system :candle)
+(let
+ ((*error-output* (make-broadcast-stream)))
+ (asdf:load-system :candle))
 (candle-cli:run)
 
 ; vim:ft=lisp