build/antipodes.ros @ ab1a74fe819a

#!/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)