Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3953 Modified Files: eval.lisp Log Message: Added interpretation of the catch special operator. Date: Fri Oct 22 14:33:28 2004 Author: ffjeld Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.13 movitz/losp/muerte/eval.lisp:1.14 --- movitz/losp/muerte/eval.lisp:1.13 Fri Oct 22 14:31:34 2004 +++ movitz/losp/muerte/eval.lisp Fri Oct 22 14:33:27 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.13 2004/10/22 12:31:34 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.14 2004/10/22 12:33:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -99,6 +99,9 @@ (make-destructuring-env (cadr form) (eval-form (caddr form) env) env))) + ((catch) + (catch (eval-form (second form) env) + (eval-progn (cddr form) env))) ((throw) (throw (eval-form (second form) env) (eval-form (third form) env)))