Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv22412
Modified Files: inspect.lisp Log Message: Have (stack-frame-uplink 0) return 0.
Date: Mon Apr 25 00:10:26 2005 Author: ffjeld
Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.50 movitz/losp/muerte/inspect.lisp:1.51 --- movitz/losp/muerte/inspect.lisp:1.50 Wed Apr 20 08:51:12 2005 +++ movitz/losp/muerte/inspect.lisp Mon Apr 25 00:10:26 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.50 2005/04/20 06:51:12 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.51 2005/04/24 22:10:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -47,9 +47,11 @@ (+ (object-location stack) 2 index)))
(defun stack-frame-uplink (stack frame) - (if (eq 0 (stack-frame-funobj stack frame)) - (dit-frame-casf stack frame) - (stack-frame-ref stack frame 0))) + (cond + ((eq 0 frame) 0) + ((eq 0 (stack-frame-funobj stack frame)) + (dit-frame-casf stack frame)) + (t (stack-frame-ref stack frame 0))))
(defun stack-vector-designator (stack) (etypecase stack