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)