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

Modified Files: environment.lisp Log Message: Fix find-dynamic-extent-scope so as to terminate search when crossing a funobj-env

Date: Mon Oct 31 21:30:33 2005 Author: ffjeld

Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.14 movitz/environment.lisp:1.15 --- movitz/environment.lisp:1.14 Sat Aug 20 22:30:54 2005 +++ movitz/environment.lisp Mon Oct 31 21:30:32 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.14 2005/08/20 20:30:54 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.15 2005/10/31 20:30:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -144,7 +144,7 @@

(defun find-dynamic-extent-scope (env) (loop for e = env then (movitz-environment-uplink e) - while e + while (and e (not (typep e 'funobj-env))) do (when (typep e 'with-dynamic-extent-allocation-env) (return (allocation-env-scope e)))))