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

15 Dec 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv14262
Modified Files:
    compiler.lisp 
Log Message:
*** empty log message ***
Date: Wed Dec 15 14:58:04 2004
Author: ffjeld
Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.121 movitz/compiler.lisp:1.122

--- movitz/compiler.lisp:1.121	Mon Dec 13 18:10:32 2004
+++ movitz/compiler.lisp	Wed Dec 15 14:58:04 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.121 2004/12/13 17:10:32 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.122 2004/12/15 13:58:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -988,11 +988,11 @@
    	     (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
    			     (slot-value funobj 'code-vector%1op)
    			     (slot-value funobj 'code-vector%2op)

    