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

Modified Files: more-macros.lisp Log Message: Moved the with-simple-restart macro to more-macros.lisp.

Date: Tue Jul 13 15:44:05 2004 Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.13 movitz/losp/muerte/more-macros.lisp:1.14 --- movitz/losp/muerte/more-macros.lisp:1.13 Tue Jul 13 07:28:05 2004 +++ movitz/losp/muerte/more-macros.lisp Tue Jul 13 15:44:05 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.13 2004/07/13 14:28:05 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.14 2004/07/13 22:44:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -315,6 +315,12 @@ :eax) (:testb 3 :al) ; Just to be sure.. (:jnz '(:sub-program () (:int 63))))) + +(defmacro with-simple-restart ((name format-control &rest format-arguments) + &body body) + `(with-basic-restart (,name 'with-simple-restart nil nil + ,format-control ,@format-arguments) + ,@body))

;;; Some macros that aren't implemented, and we want to give compiler errors.