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

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Added support for stack-allocated cons cells.

Date: Tue Jan  4 12:35:38 2005
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.11 movitz/environment.lisp:1.12
--- movitz/environment.lisp:1.11	Mon Jan  3 12:55:13 2005
+++ movitz/environment.lisp	Tue Jan  4 12:35:25 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.11 2005/01/03 11:55:13 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.12 2005/01/04 11:35:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -142,11 +142,11 @@
     :initform nil
     :accessor dynamic-extent-scope-members)))
 
-(defun dynamic-extent-allocation (env)
+(defun find-dynamic-extent-scope (env)
   (loop for e = env then (movitz-environment-uplink e)
       while e
       do (when (typep e 'with-dynamic-extent-allocation-env)
-	   (return e))))
+	   (return (allocation-env-scope e)))))
 
 (defun dynamic-extent-object-offset (scope-env object)
   (loop with offset = 0