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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Don't use fast-cdddr.

Date: Thu May  5 00:47:39 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.137 movitz/compiler.lisp:1.138
--- movitz/compiler.lisp:1.137	Mon Apr 18 00:24:20 2005
+++ movitz/compiler.lisp	Thu May  5 00:47:38 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.137 2005/04/17 22:24:20 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.138 2005/05/04 22:47:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2317,6 +2317,7 @@
 			 (setq p `((:call (:edi ,(global-constant-offset newf))))
 			       next-pc (nthcdr 2 pc))
 			 (explain nil "Changed [~S ~S] to ~S" i i2 newf)))
+		      #+ignore
 		      ((and (global-funcall-p i '(fast-cdr))
 			    (global-funcall-p i2 '(fast-cdr))
 			    (global-funcall-p i3 '(fast-cdr)))