Skip to content

Instantly share code, notes, and snippets.

@guicho271828
Created June 9, 2014 07:21
Show Gist options
  • Save guicho271828/6c7a0e059edd007278ea to your computer and use it in GitHub Desktop.
Save guicho271828/6c7a0e059edd007278ea to your computer and use it in GitHub Desktop.
make-image
(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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment