[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

13 Dec 2004

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

    