diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 2e2b70ec4c6f7ecc0188d65e5c10d79150b23251..c3a67e409ac2311abbd1a61fa62367b40c3cf9b7 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.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/compiler/debug-dump.lisp,v 1.48 2010/01/22 13:36:06 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.49 2010/01/31 19:26:51 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -311,7 +311,9 @@ otherwise the truename." (unless (eq *byte-compile* 't) (coerce-to-smallest-eltype (file-info-positions x))) - :info (source-info-external-format info))) + :info + #+unicode (source-info-external-format info) + #-unicode nil)) (name (file-info-name x))) (etypecase name ((member :stream :lisp)