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

Modified Files: stream-image.lisp Log Message: *** empty log message *** Date: Tue May 3 22:12:43 2005 Author: ffjeld

Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.12 movitz/stream-image.lisp:1.13 --- movitz/stream-image.lisp:1.12 Wed Apr 20 08:51:57 2005 +++ movitz/stream-image.lisp Tue May 3 22:12:42 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.12 2005/04/20 06:51:57 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.13 2005/05/03 20:12:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -70,9 +70,12 @@ (image-nil-object image)) (:symbol ;; (warn "loading new symbol at ~S" word) - (setf (image-stream-position image) - (- word (tag :symbol))) - (read-binary 'movitz-symbol (image-stream image))) + (if (= word #x7fffffff) + (make-instance 'movitz-unbound-value) + (progn + (setf (image-stream-position image) + (- word (tag :symbol))) + (read-binary 'movitz-symbol (image-stream image))))) (:other (setf (image-stream-position image) (+ 0 (extract-pointer word)))