diff options
Diffstat (limited to 'lisp/make-image.lisp')
-rw-r--r-- | lisp/make-image.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lisp/make-image.lisp b/lisp/make-image.lisp new file mode 100644 index 0000000..733cb8c --- /dev/null +++ b/lisp/make-image.lisp @@ -0,0 +1,16 @@ +#-sbcl +(error "This lisp implementation iss not supported.") + +(require 'asdf) +(require 'sqlite) +(require 'mcclim) + +(asdf:oos 'asdf:load-op 'clark) + +(save-lisp-and-die + "clark" :toplevel + (lambda () + (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME"))) + (org.ryuslash.clark:clark sb-ext:*posix-argv*) + 0) + :executable t) |