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

[Frode Vatvedt Fjeld]

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