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@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)))