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@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)))) ()