From 1b2afdb03f56a94a2cd3a127f800706aca5b10ec Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Fri, 10 Dec 2021 05:39:32 -0600 Subject: [PATCH] Quiet system loading where asdf puts egregious warnings out --- bin/candle | 4 +++- bin/candle-server | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) 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)) -- 2.25.1