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

Modified Files: conditions.lisp Log Message: *** empty log message *** Date: Mon May 30 00:03:04 2005 Author: ffjeld

Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.15 movitz/losp/muerte/conditions.lisp:1.16 --- movitz/losp/muerte/conditions.lisp:1.15 Sat Apr 30 00:36:23 2005 +++ movitz/losp/muerte/conditions.lisp Mon May 30 00:03:04 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.15 2005/04/29 22:36:23 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.16 2005/05/29 22:03:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -280,8 +280,9 @@ (setf *debugger-function* #'muerte.init::my-debugger)) (cond ((not *debugger-function*) - (format t "~&No debugger in *debugger-function*. Trying to abort.") - (invoke-restart (or (find-restart 'abort) + (format t "~&No debugger in *debugger-function*. Trying to continue or abort.") + (invoke-restart (or (find-restart 'continue) + (find-restart 'abort) (format t "~%Condition for debugger: ~Z" condition) (format t "~%No abort restart is active. Halting CPU.") (halt-cpu))))