Skip to content
Snippets Groups Projects
Commit 7295bd18 authored by wlott's avatar wlott
Browse files

Changed (code-header-ref component vm:code-debug-info-slot) to

(%code-debug-info component).
parent 9a5e8c12
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.47 1992/12/13 15:52:01 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.48 1992/12/17 09:11:38 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1659,7 +1659,7 @@ ...@@ -1659,7 +1659,7 @@
(defun output-code-component (component stream) (defun output-code-component (component stream)
(print-unreadable-object (component stream :identity t) (print-unreadable-object (component stream :identity t)
(let ((dinfo (code-header-ref component vm:code-debug-info-slot))) (let ((dinfo (%code-debug-info component)))
(cond ((eq dinfo :bogus-lra) (cond ((eq dinfo :bogus-lra)
(write-string "Bogus Code Object" stream)) (write-string "Bogus Code Object" stream))
(t (t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment