1 #!/usr/bin/sbcl --script
3 (setf *compile-print* nil)
5 (asdf:initialize-source-registry
6 `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
8 ((*error-output* (make-broadcast-stream)))
9 (asdf:load-system :candle))
11 (candle-server-cli:run)