make-image

make-image.lisp

(defun make-image (&optional repl)
  (print (bt:all-threads))
  (lparallel:end-kernel :wait t)
  (sb-ext:gc :full t)
  (if repl
      (sb-ext:save-lisp-and-die "repl-image"
                                :toplevel
                                (lambda ()
                                  (in-package :pddl.component-planner-test)
                                  (sb-impl::toplevel-init))
                                :executable t
                                :purify t)
      (sb-ext:save-lisp-and-die "lispimage"
                                :toplevel #'main
                                :executable t
                                :purify t)))