[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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)