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*)) ,@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 ()