From b06e9dc1ff02ac4f3bf6736cef05267171242e97 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 20 Apr 1990 16:31:56 +0000
Subject: [PATCH] CONT -> FP.

---
 code/debug.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/debug.lisp b/code/debug.lisp
index 1c1d0c2e0..ec00d360c 100644
--- a/code/debug.lisp
+++ b/code/debug.lisp
@@ -143,13 +143,13 @@ Functions/macros for your enjoyment:
 			    (*standard-output* *debug-io*))
   "Show a listing of the call stack going down from the current frame.  Frames
   is how many frames to show."
-  (do ((callee (%primitive current-cont)
-	       (stack-ref callee c::old-cont-save-offset))
+  (do ((callee (%primitive current-fp)
+	       (stack-ref callee c::old-fp-save-offset))
        (n 0 (1+ n)))
       ((or (not (cstack-pointer-valid-p callee))
 	   (>= n frames))
        (values))
-    (let* ((caller (stack-ref callee c::old-cont-save-offset))
+    (let* ((caller (stack-ref callee c::old-fp-save-offset))
 	   (pc (stack-ref callee c::return-pc-save-offset)))
       (unless (cstack-pointer-valid-p caller)
 	(return (values)))
@@ -162,7 +162,7 @@ Functions/macros for your enjoyment:
 			   (escape-reg caller c::call-name-offset))
 		   (setq callee
 			 (check-valid
-			  (escape-reg caller c::old-cont-offset))))
+			  (escape-reg caller c::old-fp-offset))))
 		  ((valid-env-p env)
 		   (format t "~%<escape frame> ")
 		   (print-code-and-stuff
@@ -170,7 +170,7 @@ Functions/macros for your enjoyment:
 		    (escape-reg caller c::return-pc-offset))
 		   (setq callee
 			 (check-valid
-			  (stack-ref callee c::old-cont-save-offset))))
+			  (stack-ref callee c::old-fp-save-offset))))
 		  (t
 		   (error "Escaping frame ENV invalid?")))))
 	 ((valid-env-p env)
-- 
GitLab