src/make-image.lisp

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