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)