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)