Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv24434
Modified Files: stream-image.lisp Log Message: Minor bits about basic-vectors.
Date: Tue Jun 29 16:15:52 2004 Author: ffjeld
Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.6 movitz/stream-image.lisp:1.7 --- movitz/stream-image.lisp:1.6 Tue Jun 1 08:16:59 2004 +++ movitz/stream-image.lisp Tue Jun 29 16:15:52 2004 @@ -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.6 2004/06/01 15:16:59 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.7 2004/06/29 23:15:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -87,6 +87,8 @@ (case type-tag (:funobj (read-binary 'movitz-funobj (image-stream image))) + (:basic-vector + (read-binary 'movitz-basic-vector (image-stream image))) (:vector (read-binary 'movitz-vector (image-stream image))) (:defstruct