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

[Frode Vatvedt Fjeld]

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 at 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)))