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)