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

[Frode Vatvedt Fjeld]

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