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

[Frode Vatvedt Fjeld]

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

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

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.93 movitz/image.lisp:1.94
--- movitz/image.lisp:1.93	Sun May  1 01:22:14 2005
+++ movitz/image.lisp	Tue May  3 22:12:53 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.93 2005/04/30 23:22:14 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.94 2005/05/03 20:12:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1586,6 +1586,7 @@
     (array expr)
     (cons (mapcar #'movitz-print expr))
     ((or (satisfies movitz-null) movitz-run-time-context) nil)
+    (movitz-unbound-value 'unbound)
     (movitz-fixnum
      (movitz-fixnum-value expr))
     (movitz-std-instance expr)