Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv4896
Modified Files: debugger.lisp Log Message: When filtering out conditions in safe-print-stack-frame-arglist, only catch serious-conditions.
Date: Sun Jul 11 12:26:12 2004 Author: ffjeld
Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.13 movitz/losp/x86-pc/debugger.lisp:1.14 --- movitz/losp/x86-pc/debugger.lisp:1.13 Thu Jun 10 09:28:27 2004 +++ movitz/losp/x86-pc/debugger.lisp Sun Jul 11 12:26:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.13 2004/06/10 16:28:27 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.14 2004/07/11 19:26:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -429,7 +429,7 @@ (defun safe-print-stack-frame-arglist (&rest args) (declare (dynamic-extent args)) (handler-case (apply #'print-stack-frame-arglist args) - (t (conditon) + (serious-condition (conditon) (write-string "#<error printing frame>"))))
(defun backtrace (&key ((:frame initial-stack-frame)