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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Slight change in how code-vector objects are constructed.

Date: Wed Jul  7 10:34:10 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.69 movitz/compiler.lisp:1.70
--- movitz/compiler.lisp:1.69	Mon Jun 21 00:48:59 2004
+++ movitz/compiler.lisp	Wed Jul  7 10:34:09 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.69 2004/06/21 07:48:59 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.70 2004/07/07 17:34:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -108,11 +108,8 @@
 						  (case label
 						    (:nil-value (image-nil-word *image*)))))))
     (make-movitz-vector (length code-vector)
-		     :element-type 'movitz-code
-		     :flags '(:code-vector-p)
-		     :alignment 16
-		     :alignment-offset 8
-		     :initial-contents code-vector)))
+			:element-type 'movitz-code
+			:initial-contents code-vector)))
 
 (defun register-function-code-size (funobj)
   (let* ((name (movitz-print (movitz-funobj-name funobj)))
@@ -875,9 +872,7 @@
 			    :fill-pointer code-length
 			    :element-type 'movitz-code
 			    :initial-contents code-vector
-			    :flags '(:code-vector-p)
-			    :alignment 16
-			    :alignment-offset 8))))
+			    ))))
   funobj)
 
 #+ignore