diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 31cc79d883f3c30933af7d0b861764b632f37bf0..f11cdfaec132422e6d7bb13b4f5e20648b80aab9 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.53 1992/12/13 15:46:07 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.54 1992/12/17 09:04:41 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1004,7 +1004,7 @@ 0 nil))) (find-escaped-frame caller)) - (if (eq (kernel:code-debug-info code) :bogus-lra) + (if (eq (kernel:%code-debug-info code) :bogus-lra) (let ((real-lra (kernel:code-header-ref code real-lra-slot))) (compute-calling-frame caller real-lra up-frame)) (let ((d-fun (case code @@ -1061,7 +1061,7 @@ (kernel:get-lisp-obj-address code) code-header-len))) (return - (if (eq (kernel:code-debug-info code) :bogus-lra) + (if (eq (kernel:%code-debug-info code) :bogus-lra) (let ((real-lra (kernel:code-header-ref code real-lra-slot))) (values (kernel:lra-code-header real-lra) @@ -1103,7 +1103,7 @@ ;;; the component, for function constants, and the c::compiled-debug-function. ;;; (defun debug-function-from-pc (component pc) - (let ((info (kernel:code-debug-info component))) + (let ((info (kernel:%code-debug-info component))) (cond ((not info) (debug-signal 'no-debug-info)) @@ -1295,7 +1295,7 @@ (eq (c::compiled-debug-function-name x) name) (eq (c::compiled-debug-function-kind x) nil))) (get-debug-info-function-map - (kernel:code-debug-info component))))) + (kernel:%code-debug-info component))))) (if res (make-compiled-debug-function res component) ;; This used to be the non-interpreted branch, but William wrote it @@ -1605,7 +1605,7 @@ ;;; COMPILED-DEBUG-FUNCTION-DEBUG-INFO -- Internal. ;;; (defun compiled-debug-function-debug-info (debug-fun) - (kernel:code-debug-info (compiled-debug-function-component debug-fun))) + (kernel:%code-debug-info (compiled-debug-function-component debug-fun))) @@ -3431,8 +3431,7 @@ (declare (type system:system-area-pointer src-start src-end dst-start trap-loc) (type kernel:index length)) - (setf (kernel:code-header-ref code-object vm:code-debug-info-slot) - :bogus-lra) + (setf (kernel:%code-debug-info code-object) :bogus-lra) (setf (kernel:code-header-ref code-object vm:code-trace-table-offset-slot) length) (setf (kernel:code-header-ref code-object real-lra-slot) real-lra) @@ -3591,7 +3590,7 @@ ;;; it is in the result vector. ;;; (defun sub-generate-component-source-paths (component) - (let ((info (kernel:code-debug-info component))) + (let ((info (kernel:%code-debug-info component))) (unless info (debug-signal 'no-debug-info)) (let* ((function-map (get-debug-info-function-map info)) (result *source-paths-buffer*)) diff --git a/code/describe.lisp b/code/describe.lisp index 3b69e0a6d9407bc28f3817cffa57e43364289f7f..7226d8442e04e94da3197f3ad5e6f448f9019a3f 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.21 1992/12/13 16:04:19 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.22 1992/12/17 09:07:01 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -275,7 +275,7 @@ ;;; Print information from the debug-info about where X was compiled from. ;;; (defun print-compiled-from (x) - (let ((info (kernel:code-debug-info (kernel:function-code-header x)))) + (let ((info (kernel:%code-debug-info (kernel:function-code-header x)))) (when info (let ((sources (c::compiled-debug-info-source info))) (format t "~&On ~A it was compiled from:"