[movitz-cvs] CVS update: movitz/compiler.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Mon Dec 13 17:10:37 UTC 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
More information about the Movitz-cvs
mailing list