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)