Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv32720
Modified Files: conditions.lisp Log Message: If there's no debugger when one is needed (during signaling), print a backtrace.
Date: Thu Aug 11 23:34:27 2005 Author: ffjeld
Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.16 movitz/losp/muerte/conditions.lisp:1.17 --- movitz/losp/muerte/conditions.lisp:1.16 Mon May 30 00:03:04 2005 +++ movitz/losp/muerte/conditions.lisp Thu Aug 11 23:34:26 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.16 2005/05/29 22:03:04 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.17 2005/08/11 21:34:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -280,6 +280,8 @@ (setf *debugger-function* #'muerte.init::my-debugger)) (cond ((not *debugger-function*) + (let ((*never-use-print-object* t)) + (backtrace :spartan t)) (format t "~&No debugger in *debugger-function*. Trying to continue or abort.") (invoke-restart (or (find-restart 'continue) (find-restart 'abort)