From 54404d2ba73c55e37daa958ea3bb3ac8301361d8 Mon Sep 17 00:00:00 2001 From: Didier Verna Date: Sat, 27 Nov 2010 13:57:55 +0100 Subject: [PATCH] Have CLISP quit after dump. src/ ChangeLog addition: 2010-11-27 Didier Verna * util.lisp (dump): For CLISP, call exit because saveinitmem does't. --- src/util.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/util.lisp b/src/util.lisp index 47ac7cd..1089c17 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -370,8 +370,11 @@ invalid direction: ~S" #+cmu (ext:save-lisp name :init-function function :executable t :load-init-file nil :site-init nil :print-herald nil :process-command-line nil) - #+clisp (ext:saveinitmem name :init-function function :executable 0 - :quiet t :norc t) + ;; CLISP's saveinitmem function doesn't quit, so we need to do so here. + #+clisp (progn + (ext:saveinitmem name + :init-function function :executable 0 :quiet t :norc t) + (exit)) #+ccl (ccl:save-application name :toplevel-function function :init-file nil :prepend-kernel t)) -- 2.11.4.GIT