build/magitek.ros @ 701d98eb08bc

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#


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

(declaim (optimize (debug 2) (safety 2) (speed 1)))

(defun main (&rest argv)
  (declare (ignore argv))
  (setf *random-state* (make-random-state t))
  (magitek:main)
  t)