Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv11999
Modified Files: debugger.lisp Log Message: Minor edits.
Date: Sat Sep 25 17:53:25 2004 Author: ffjeld
Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.25 movitz/losp/x86-pc/debugger.lisp:1.26 --- movitz/losp/x86-pc/debugger.lisp:1.25 Wed Sep 22 20:00:55 2004 +++ movitz/losp/x86-pc/debugger.lisp Sat Sep 25 17:53:25 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.25 2004/09/22 18:00:55 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.26 2004/09/25 15:53:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -553,7 +553,10 @@ exception primitive-name (code-vector-offset primitive-vector eip))))))) - (t (format t "DIT Exception ~D with ESI=~Z and EIP=#x~X." + (t ;; This should in principle never happen, but since this + ;; is a debugger, making this an error or break would probably + ;; just be a nuisance. + (format t "DIT Exception ~D. Unable to determine current function (!) with ESI=~Z and EIP=#x~X." exception funobj eip))))))))) (function (let ((name (funobj-name funobj)))