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

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Some tweaking of the environment object for unwind-protects.

Date: Mon Oct 11 15:46:26 2004
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.8 movitz/environment.lisp:1.9
--- movitz/environment.lisp:1.8	Thu Oct  7 14:41:41 2004
+++ movitz/environment.lisp	Mon Oct 11 15:46:25 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov  3 11:40:15 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: environment.lisp,v 1.8 2004/10/07 12:41:41 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.9 2004/10/11 13:46:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -229,11 +229,15 @@
 (defclass tagbody-env (lexical-exit-point-env) ())
 
 (defclass unwind-protect-env (movitz-environment)
-  ())
+  ((cleanup-form
+    :initarg :cleanup-form
+    :reader unwind-protect-env-cleanup-form)))
 
 (defmethod num-dynamic-slots ((x unwind-protect-env)) 1)
 
-(defclass simple-dynamic-env (with-things-on-stack-env) ()
+(defclass simple-dynamic-env (with-things-on-stack-env)
+  ((stack-used
+    :initform 4))
   (:documentation "An environment that installs one dynamic-env."))
 
 (defmethod num-dynamic-slots ((x simple-dynamic-env)) 1)