compile.cl

   1 #! /usr/bin/sbcl --script
   2
   3 (clc:clc-require :uxul-world)
   4
   5 (uxul-world:init-media)
   6
   7 (sb-ext:save-lisp-and-die "coredump"
   8         :executable
   9                 t
  10         :toplevel
  11                 #'(lambda (x)
  12                         (unwind-protect
  13                                 (uxul-world::start-game #'uxul-world::make-testing-room)
  14                                 0)))
  15