build/silt.ros @ f1457db0c563

Tiny post-jam cleanup
author Steve Losh <steve@stevelosh.com>
date Sat, 13 Aug 2016 15:54:30 +0000
parents 42c463ae193e
children (none)
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#


(unless (find-package :silt)
  (ql:quickload '(:silt) :silent t))

(declaim (optimize (debug 0) (safety 1) (speed 3)))

(let ((*standard-output* (make-broadcast-stream)) ; shut
      (*error-output* (make-broadcast-stream))) ; up
  (asdf:load-system 'silt :force t))

(defun main (&rest argv)
  (declare (ignore argv))
  (silt::main))