Commit 65a026f6 authored by ram's avatar ram
Browse files

Don't dump debug-source start positions when *byte-compile* t.

parent 443bda06
...@@ -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/compiler/debug-dump.lisp,v 1.36 1993/08/03 14:32:29 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.37 1993/08/17 22:38:55 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -285,8 +285,9 @@ ...@@ -285,8 +285,9 @@
;;; DEBUG-SOURCE-FOR-INFO -- Interface ;;; DEBUG-SOURCE-FOR-INFO -- Interface
;;; ;;;
;;; Return a list of DEBUG-SOURCE structures containing information derived ;;; Return a list of DEBUG-SOURCE structures containing information derived
;;; from Info. We always dump the Start-Positions, since it is too hard ;;; from Info. Unless :BYTE-COMPILE T was specified, we always dump the
;;; figure out whether we need them or not. ;;; Start-Positions, since it is too hard figure out whether we need them or
;;; not.
;;; ;;;
(defun debug-source-for-info (info) (defun debug-source-for-info (info)
(declare (type source-info info)) (declare (type source-info info))
...@@ -299,8 +300,9 @@ ...@@ -299,8 +300,9 @@
:compiled (source-info-start-time info) :compiled (source-info-start-time info)
:source-root (file-info-source-root x) :source-root (file-info-source-root x)
:start-positions :start-positions
(coerce-to-smallest-eltype (unless (eq *byte-compile* 't)
(file-info-positions x)))) (coerce-to-smallest-eltype
(file-info-positions x)))))
(name (file-info-name x))) (name (file-info-name x)))
(etypecase name (etypecase name
((member :stream :lisp) ((member :stream :lisp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment