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

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv3872

Modified Files:
	image.lisp 
Log Message:
Minor edits and removed warnings.

Date: Tue Feb 10 13:06:13 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.12 movitz/image.lisp:1.13
--- movitz/image.lisp:1.12	Mon Feb  9 19:32:08 2004
+++ movitz/image.lisp	Tue Feb 10 13:06:13 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.12 2004/02/10 00:32:08 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.13 2004/02/10 18:06:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1263,9 +1263,10 @@
 
 (defmacro with-movitz-read-context (options &body body)
   (declare (ignore options))
-  `(let ((*movitz-reader-clean-map* (if (boundp '*movitz-reader-clean-map*)
-				     *movitz-reader-clean-map*
-				   (make-hash-table :test #'eq))))
+  `(let ((*movitz-reader-clean-map*
+	  (if (boundp '*movitz-reader-clean-map*)
+	      (symbol-value '*movitz-reader-clean-map*)
+	    (make-hash-table :test #'eq))))
      (declare (special *movitz-reader-clean-map*))
      , at body))
 
@@ -1402,6 +1403,7 @@
 	 (error "Unknown Movitz object: ~S" expr)))))
 
 (defmethod make-toplevel-funobj ((*image* symbolic-image))
+  (declare (special *image*))
   (let ((toplevel-code (loop for (funobj) in (image-load-time-funobjs *image*)
 			   collect `(muerte::simple-funcall ,funobj))))
     (make-compiled-funobj 'muerte::toplevel-function ()