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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.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:11 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.81 movitz/compiler.lisp:1.82
--- movitz/compiler.lisp:1.81	Wed Jul 21 15:26:55 2004
+++ movitz/compiler.lisp	Wed Jul 21 17:27:11 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.81 2004/07/21 22:26:55 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.82 2004/07/22 00:27:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -108,7 +108,7 @@
 						  (case label
 						    (:nil-value (image-nil-word *image*)))))))
     (make-movitz-vector (length code-vector)
-			:element-type 'movitz-code
+			:element-type 'code
 			:initial-contents code-vector)))
 
 (defun register-function-code-size (funobj)
@@ -873,7 +873,7 @@
       (setf (movitz-funobj-code-vector funobj)
 	(make-movitz-vector (length code-vector)
 			    :fill-pointer code-length
-			    :element-type 'movitz-code
+			    :element-type 'code
 			    :initial-contents code-vector
 			    ))))
   funobj)