diff options
Diffstat (limited to 'lisp/make-image.lisp')
-rw-r--r-- | lisp/make-image.lisp | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/lisp/make-image.lisp b/lisp/make-image.lisp new file mode 100644 index 0000000..a3b40f9 --- /dev/null +++ b/lisp/make-image.lisp @@ -0,0 +1,35 @@ +;; Copyright (C) 2013 Tom Willemsen <tom at ryuslash dot org> + +;; This file is part of Sil + +;; Sil is free software: you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; Sil is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with Sil. If not, see <http://www.gnu.org/licenses/>. + +;;; Code: + +#-sbcl +(error "This lisp implementation is not supported.") + +(require 'asdf) +(require 'sqlite) +(require 'mcclim) + +(asdf:oos 'asdf:load-op 'sil) + +(save-lisp-and-die + "sil" :toplevel + (lambda () + (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME"))) + (org.ryuslash.sil:sil sb-ext:*posix-argv*) + 0) + :executable t) |