From: Frank Duncan <frank@kank.net>
Date: Fri, 10 Dec 2021 11:39:32 +0000 (-0600)
Subject: Quiet system loading where asdf puts egregious warnings out
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b2afdb03f56a94a2cd3a127f800706aca5b10ec;p=candle

Quiet system loading where asdf puts egregious warnings out
---

diff --git a/bin/candle b/bin/candle
index 7e985d6..6e01fd4 100755
--- 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
diff --git a/bin/candle-server b/bin/candle-server
index 7e8e8ab..3013ade 100755
--- a/bin/candle-server
+++ b/bin/candle-server
@@ -4,7 +4,9 @@
 (require 'asdf)
 (asdf:initialize-source-registry
  `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
-(asdf:load-system :candle)
+(let
+ ((*error-output* (make-broadcast-stream)))
+ (asdf:load-system :candle))
 (asdf:load-system :opera)
 
 (defpackage #:candle-server-cli (:use #:common-lisp))