(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))