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

Modified Files: restarts.lisp Log Message: Changed exact-throw, the basic operator for dynamic control transfer, quite a bit. The (ill-specified) primitive-function dynamic-locate-catch-tag is removed, its essential job is now performed by the normal function find-catch-tag.

Date: Fri Nov 12 15:52:25 2004 Author: ffjeld

Index: movitz/losp/muerte/restarts.lisp diff -u movitz/losp/muerte/restarts.lisp:1.4 movitz/losp/muerte/restarts.lisp:1.5 --- movitz/losp/muerte/restarts.lisp:1.4 Thu Sep 2 11:41:04 2004 +++ movitz/losp/muerte/restarts.lisp Fri Nov 12 15:52:24 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Oct 28 09:27:13 2003 ;;;; -;;;; $Id: restarts.lisp,v 1.4 2004/09/02 09:41:04 ffjeld Exp $ +;;;; $Id: restarts.lisp,v 1.5 2004/11/12 14:52:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -119,8 +119,7 @@ (function (apply function arguments)) (symbol - (exact-throw (load-global-constant restart-tag) - (basic-restart->dynamic-context restart) + (exact-throw (basic-restart->dynamic-context restart) (ecase function ((with-simple-restart) (values nil t))))))))