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)