1 #!/usr/local/bin/sbcl --script 2 (in-package :cl-user) 3 #-quicklisp 4 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) 5 (when (probe-file quicklisp-init) 6 (load quicklisp-init))) 7 (load "demo.asd") 8 (ql:quickload :demo) 9 ;; (asdf:make :demo) 10 (sb-ext:save-lisp-and-die "out/demo" :toplevel #'demo:main :executable t)