[movitz-cvs] CVS update: movitz/losp/muerte/conditions.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv4258

Modified Files:
	conditions.lisp 
Log Message:
Changed the way stack locations are represented: Rather than merely a
'location' (which is a simple pointer, and so GC-unsafe), we now use
two values: a vector and an index. If vector is non-nil, index is a an
index into the vector. If vector is nil, index is a location (as
before), typically referencing the currently active stack, which won't
move (but probably this mode should be deprecated).

Date: Mon Aug 23 06:58:19 2004
Author: ffjeld

Index: movitz/losp/muerte/conditions.lisp
diff -u movitz/losp/muerte/conditions.lisp:1.11 movitz/losp/muerte/conditions.lisp:1.12
--- movitz/losp/muerte/conditions.lisp:1.11	Fri Jul 23 08:35:45 2004
+++ movitz/losp/muerte/conditions.lisp	Mon Aug 23 06:58:19 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 20 15:47:04 2002
 ;;;;                
-;;;; $Id: conditions.lisp,v 1.11 2004/07/23 15:35:45 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.12 2004/08/23 13:58:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -285,7 +285,7 @@
 			(format t "~%Condition for debugger: ~Z" condition)
 			(format t "~%No abort restart is active. Halting CPU.")
 			(halt-cpu))))
-   (t (let ((*debugger-invoked-stack-frame* (stack-frame-uplink (current-stack-frame))))
+   (t (let ((*debugger-invoked-stack-frame* (stack-frame-uplink nil (current-stack-frame))))
 	(funcall *debugger-function* condition))))
   (format *debug-io* "~&Debugger ~@[on ~S ]returned!~%Trying to abort...~%" condition)
   (let ((r (find-restart 'abort)))