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

[Frode Vatvedt Fjeld]

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)