Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv10918

Modified Files: debugger.lisp Log Message: Minor edit.

Date: Fri Jul 23 18:29:06 2004 Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.18 movitz/losp/x86-pc/debugger.lisp:1.19 --- movitz/losp/x86-pc/debugger.lisp:1.18 Tue Jul 20 16:53:48 2004 +++ movitz/losp/x86-pc/debugger.lisp Fri Jul 23 18:29:06 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.18 2004/07/20 23:53:48 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.19 2004/07/24 01:29:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -429,6 +429,7 @@ (declare (dynamic-extent args)) (handler-case (apply #'print-stack-frame-arglist args) (serious-condition (conditon) + (declare (ignore conditon)) (write-string "#<error printing frame>"))))

(defun backtrace (&key stack