build/magitek.ros @ 2e2dce507991

Fix bitrot
author Steve Losh <steve@stevelosh.com>
date Sat, 04 Nov 2017 13:41:35 -0400
parents 6c0ee26dbcbd
children (none)
#!/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)