Add menu, dropping
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 08 Jan 2017 11:31:17 +0000 |
parents |
a750a924e59e |
children |
(none) |
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(unless (find-package :ap)
(ql:quickload '(:antipodes) :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 'antipodes :force t))
(defun main (&rest argv)
(declare (ignore argv))
(ap::main)
t)