git.fiddlerwoaroof.com
save.lisp
2f36d49d
 (eval-when (:compile-toplevel :load-toplevel :execute) (load (compile-file "objc-runtime.asd")))
 (eval-when (:compile-toplevel :load-toplevel :execute) (ql:quickload :objc-runtime))
 (eval-when (:compile-toplevel :load-toplevel :execute) (load (compile-file "demo-app.lisp")))
 
 #+sbcl
 (sb-ext:save-lisp-and-die "demo-app" :toplevel 'demo-app::main :executable t)
 #+ccl
 (ccl:save-application "demo-app" :toplevel-function 'demo-app::main :prepend-kernel t)