Quiet system loading where asdf puts egregious warnings out
[candle] / bin / candle
1 #!/usr/bin/sbcl --script
2
3 (setf *compile-print* nil)
4 (require 'asdf)
5 (asdf:initialize-source-registry
6  `(:source-registry (:tree ,(make-pathname :directory (butlast (pathname-directory *load-truename*)))) :INHERIT-CONFIGURATION))
7 (let
8  ((*error-output* (make-broadcast-stream)))
9  (asdf:load-system :candle))
10 (candle-cli:run)
11
12 ; vim:ft=lisp