[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	debugger.lisp 
Log Message:
Refer to stack-slots with two values: a stack and an frame. If stack
is NIL, frame is the location (in the current stack) of the
stack-slot. If stack is a vector, frame is an index into this vector.

Date: Thu Sep  2 11:41:19 2004
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.22 movitz/losp/x86-pc/debugger.lisp:1.23
--- movitz/losp/x86-pc/debugger.lisp:1.22	Mon Aug 23 15:58:41 2004
+++ movitz/losp/x86-pc/debugger.lisp	Thu Sep  2 11:41:18 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 22 10:09:18 2002
 ;;;;                
-;;;; $Id: debugger.lisp,v 1.22 2004/08/23 13:58:41 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.23 2004/09/02 09:41:18 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -499,7 +499,7 @@
 			  (function
 			   (let ((delta (code-vector-offset (funobj-code-vector funobj) eip)))
 			     (if delta
-				 (format t "{Exception ~D in ~W at PC offset ~D."
+				 (format t "{Exception ~D in ~W at PC offset ~D.}"
 					 exception (funobj-name funobj) delta)
 			       (format t "{Exception ~D in ~W at EIP=#x~X.}"
 				       exception (funobj-name funobj) eip))))