From b68840b0dd54e02e4dd8e0fd8fa98320b959e155 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 15 Nov 1997 07:36:39 +0000
Subject: [PATCH] Fix a bug in make-valid-lisp-obj which caused the debugger to
 fail badly when running a raw kernel.core. The parameter
 vm:target-read-only-space-start was being accessed but is unbound until
 compiler/x86/parms is loaded.

---
 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 d2c94027e..88aa67c1a 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.74 1997/11/07 12:45:27 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.75 1997/11/15 07:36:39 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3075,7 +3075,7 @@
 		     (and (logand ,val 1)
 		      ;; Check that the pointer is valid. XX Should do
 		      ;; a better job.
-		      (< vm:target-read-only-space-start ,val #x11000000)))
+		      (< (lisp::read-only-space-start) ,val #x11000000)))
 		 (kernel:make-lisp-obj ,val)
 		 :invalid-object)))
     (ecase (c::sc-offset-scn sc-offset)
-- 
GitLab