#! /bin/sh
":"; exec cl-launch -X -l "sbcl clisp cmucl ecl" -s asdf -- "$0" "$0" "$@" || exit 1 # -*-lisp-*-

(handler-bind ((warning (lambda (cond)
			  (declare (ignore cond))
			  (invoke-restart 'muffle-warning))))
  (asdf:operate 'asdf:load-op "sod"))

(funcall (intern "MAIN" (find-package "SOD")))