From 65a026f6d060bd14a287e40245d3d896986929de Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 17 Aug 1993 22:38:55 +0000 Subject: [PATCH] Don't dump debug-source start positions when *byte-compile* t. --- compiler/debug-dump.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 7497da31b..e64fac6b0 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ ;;; DEBUG-SOURCE-FOR-INFO -- Interface ;;; ;;; Return a list of DEBUG-SOURCE structures containing information derived -;;; from Info. We always dump the Start-Positions, since it is too hard -;;; figure out whether we need them or not. +;;; from Info. Unless :BYTE-COMPILE T was specified, we always dump the +;;; Start-Positions, since it is too hard figure out whether we need them or +;;; not. ;;; (defun debug-source-for-info (info) (declare (type source-info info)) @@ -299,8 +300,9 @@ :compiled (source-info-start-time info) :source-root (file-info-source-root x) :start-positions - (coerce-to-smallest-eltype - (file-info-positions x)))) + (unless (eq *byte-compile* 't) + (coerce-to-smallest-eltype + (file-info-positions x))))) (name (file-info-name x))) (etypecase name ((member :stream :lisp) -- GitLab