Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4299
Modified Files: image.lisp Log Message: Changed the signature and workings of make-movitz-vector somewhat: Now the element-type argument is an actual (host) type-specifier. The idea is that movitz-read of an array will result in a movitz array with the corresponding element-type.
Date: Wed Jul 21 17:27:17 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.48 movitz/image.lisp:1.49 --- movitz/image.lisp:1.48 Wed Jul 21 05:32:26 2004 +++ movitz/image.lisp Wed Jul 21 17:27:17 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.48 2004/07/21 12:32:26 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.49 2004/07/22 00:27:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1438,7 +1438,8 @@ (setf (gethash expr (image-string-constants *image*)) (make-movitz-string expr)))) (vector (make-movitz-vector (length expr) - :initial-contents (map 'vector #'movitz-read expr))) + :element-type (array-element-type expr) + :initial-contents expr)) (cons (or (gethash expr (image-cons-constants *image*)) (setf (gethash expr (image-cons-constants *image*))