From ec2834d9ded953ef73b3fe3b51ff6998ba27c420 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 5 Dec 1997 00:48:36 +0000
Subject: [PATCH] For the x86 port, make use of the stack-ref VOP to grab a
 value from the control stack in sub-access-debug-var-slot.

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

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index d50fa544b..13e418c7e 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.79 1997/12/03 20:05:27 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.80 1997/12/05 00:48:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3135,9 +3135,7 @@
 	(system:sap-ref-double fp (- (* (+ (c::sc-offset-offset sc-offset) 4)
 					vm:word-bytes)))))
       (#.vm:control-stack-sc-number
-       (make-valid-lisp-obj
-	(system:sap-ref-32 fp (- (* (1+ (c::sc-offset-offset sc-offset))
-				    vm:word-bytes)))))
+       (kernel:stack-ref fp (c::sc-offset-offset sc-offset)))
       (#.vm:base-char-stack-sc-number
        (code-char
 	(system:sap-ref-32 fp (- (* (1+ (c::sc-offset-offset sc-offset))
-- 
GitLab