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

[Frode Vatvedt Fjeld]

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)
   ())