Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12294
Modified Files: image.lisp Log Message: Ensure create-image returns *image* also on ACL.
Date: Tue Feb 3 13:02:16 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.5 movitz/image.lisp:1.6 --- movitz/image.lisp:1.5 Mon Feb 2 08:27:26 2004 +++ movitz/image.lisp Tue Feb 3 13:02:15 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.5 2004/02/02 13:27:26 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.6 2004/02/03 18:02:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -688,9 +688,8 @@ (when init-file (movitz-compile-file init-file)) *image*) - *i* (when (boundp '*image*) *image*)) - ;; #+acl (excl:gc) - *image*)) + *i* (when (boundp '*image*) *image*))) + *image*)
(defun dump-image (&key (path *default-image-file*) ((:image *image*) *image*) (multiboot-p t) ignore-dump-count)