#!/usr/bin/sbcl --script
  
(setf *compile-print* nil)
(require 'asdf)
(asdf:initialize-source-registry
 `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
(let
 ((*error-output* (make-broadcast-stream)))
 (asdf:load-system :candle))

(candle-server-cli:run)

; vim:ft=lisp