build/antipodes.ros @ a750a924e59e

Initial commit
author Steve Losh <steve@stevelosh.com>
date Sat, 07 Jan 2017 11:19:24 +0000
parents (none)
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)