mdw@git.distorted.org.uk Git - sod/blob - src/run-sod

   1 #! /bin/sh
   2 ":"; exec cl-launch -X -l "sbcl clisp cmucl ecl" -s asdf -- "$0" "$0" "$@" || exit 1 # -*-lisp-*-
   3
   4 (handler-bind ((warning (lambda (cond)
   5                           (declare (ignore cond))
   6                           (invoke-restart 'muffle-warning))))
   7   (asdf:operate 'asdf:load-op "sod"))
   8
   9 (funcall (intern "MAIN" (find-package "SOD")))