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