[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv20593

Modified Files:
	image.lisp 
Log Message:
Make NIL the default value for *image*.


--- /project/movitz/cvsroot/movitz/image.lisp	2007/03/01 17:49:30	1.110
+++ /project/movitz/cvsroot/movitz/image.lisp	2007/03/13 20:40:06	1.111
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.110 2007/03/01 17:49:30 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.111 2007/03/13 20:40:06 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -779,9 +779,9 @@
 			:start-address start-address
 			:movitz-features '(:movitz)
 			:function-code-sizes
-			(if (and (boundp '*image*) *image*)
+			(if *image*
 			    (copy-hash-table (function-code-sizes *image*))
-			  (make-hash-table :test #'equal))
+                            (make-hash-table :test #'equal))
 			init-args)))
     (setf (image-nil-word *image*)
       (+ 5 (- (slot-offset 'movitz-run-time-context 'null-symbol)
@@ -824,7 +824,7 @@
 		   (when init-file
 		     (movitz-compile-file init-file))
 		   *image*)
-	 *i* (when (boundp '*image*) *image*))
+	 *i* *image*)
   (when gc
     #+allegro (setf (sys:gsgc-parameter :generation-spread) 8)
     #+allegro (excl:gc :tenure)