From 752f16ce96aecee1268a1f7cf7afc219e8897121 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 23 Aug 1990 16:33:05 +0000
Subject: [PATCH] Fixed FRAME-DOWN to pass the real frame into
 GET-CONTEXT-VALUE, rather than the (possibly interpreter) frame.

---
 code/debug-int.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 0e02c090d..3a418ffb6 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -785,11 +785,11 @@
 		(possibly-an-interpreted-frame
 		 (compute-calling-frame
 		  (get-context-value
-		   frame
+		   real
 		   c::old-fp-save-offset
 		   (c::compiled-debug-function-old-fp c-d-f))
 		  (get-context-value
-		   frame
+		   real
 		   c::return-pc-save-offset
 		   (c::compiled-debug-function-return-pc c-d-f))
 		  frame)
-- 
GitLab