[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Some more work on register scheduling. I'm starting to see how this
should have been designed in the first place.

Date: Tue Feb 17 15:24:06 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.13 movitz/special-operators.lisp:1.14
--- movitz/special-operators.lisp:1.13	Sat Feb 14 18:46:56 2004
+++ movitz/special-operators.lisp	Tue Feb 17 15:24:06 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.13 2004/02/14 23:46:56 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.14 2004/02/17 20:24:06 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -568,6 +568,7 @@
 			       (check-type binding lexical-binding)
 			       (list binding)))))
 		       (let ((code (assembly-macroexpand inline-asm amenv)))
+			 #+ignore
 			 (assert (not (and (not side-effects)
 					   (tree-search code '(:store-lexical))))
 			     ()