make-image.lisp

   1 ;;; SBCL
   2 #+sbcl
   3 (progn
   4   (require 'asdf)
   5   (load "lice.asd")
   6   (require 'lice))
   7 #+sbcl
   8 (sb-ext:save-lisp-and-die "lice" :toplevel (lambda ()
   9                                              ;; asdf requires sbcl_home to be set, so set it to the value when the image was built
  10                                              (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
  11                                              (lice::lice)
  12                                              0)
  13                           :executable t)
  14
  15 ;;; CLISP
  16
  17 ;; asdf needs to be loaded. try putting (load "/path/to/asdf.lisp") in your .clisprc file
  18 #+clisp
  19 (asdf:oos 'asdf:load-op :lice)
  20
  21 #+clisp
  22 (progn
  23   (ext:saveinitmem "lice" :init-function (lambda ()
  24                                               (lice::lice)
  25                                               (ext:quit))
  26                    :executable t :keep-global-handlers t :norc t :documentation "Lisp Computing Environment"))
  27
  28
  29 #-(or sbcl clisp) (error "This lisp implementation is not supported.")