projects
/
candle
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e8e6fda
)
Quiet system loading where asdf puts egregious warnings out
author
Frank Duncan <frank@kank.net>
Fri, 10 Dec 2021 11:39:32 +0000
(
05:39
-0600)
committer
Frank Duncan <frank@kank.net>
Fri, 10 Dec 2021 11:39:32 +0000
(
05:39
-0600)
bin/candle
patch
|
blob
|
history
bin/candle-server
patch
|
blob
|
history
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))
(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
(candle-cli:run)
; vim:ft=lisp
diff --git
a/bin/candle-server
b/bin/candle-server
index 7e8e8abe65ebe3f3a63de9f0d0a54644edd0c09e..3013adea9071dc9b387fefaaf054d388f4f6dc98 100755
(executable)
--- 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))
(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))
(asdf:load-system :opera)
(defpackage #:candle-server-cli (:use #:common-lisp))