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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Mon Dec 13 18:10:33 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.120 movitz/compiler.lisp:1.121
--- movitz/compiler.lisp:1.120	Mon Dec 13 12:21:48 2004
+++ movitz/compiler.lisp	Mon Dec 13 18:10:32 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.120 2004/12/13 11:21:48 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.121 2004/12/13 17:10:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -988,15 +988,15 @@
 		     (mapcar #'car rest))
 	       (vector-push 0 code-vector))))
       (setf (movitz-funobj-code-vector funobj)
+	    #+ignore
 	    (make-movitz-vector (length code-vector)
 				:fill-pointer code-length
 				:element-type 'code
 				:initial-contents code-vector)
-	    #+ignore
 	    (make-movitz-code-vector code-vector
-				     (car (slot-value funobj 'code-vector%1op))
-				     (car (slot-value funobj 'code-vector%2op))
-				     (car (slot-value funobj 'code-vector%3op))))))
+				     (slot-value funobj 'code-vector%1op)
+				     (slot-value funobj 'code-vector%2op)
+				     (slot-value funobj 'code-vector%3op)))))
   funobj)
 
 #+ignore