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

Modified Files: environment.lisp Log Message: Added a tagbody-env class.

Date: Thu Oct 7 14:41:41 2004 Author: ffjeld

Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.7 movitz/environment.lisp:1.8 --- movitz/environment.lisp:1.7 Thu Aug 12 19:16:46 2004 +++ movitz/environment.lisp Thu Oct 7 14:41:41 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.7 2004/08/12 17:16:46 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.8 2004/10/07 12:41:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -225,6 +225,8 @@ (lexical-catch-tag-variable :initarg :lexical-catch-tag-variable :reader movitz-env-lexical-catch-tag-variable))) + +(defclass tagbody-env (lexical-exit-point-env) ())

(defclass unwind-protect-env (movitz-environment) ())