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

[Frode Vatvedt Fjeld]

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 at 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