Conditional for sbcl stuff
author |
Steve Losh <steve@stevelosh.com> |
date |
Fri, 12 Aug 2016 02:57:54 +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))