CMUCL commit: src/compiler (debug-dump.lisp)

[Raymond Toy]

    Date: Sunday, January 31, 2010 @ 14:26:52
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: debug-dump.lisp

Oops.  Non-unicode builds don't have source-info-external-format.  Set
info slot to nil (the default) in this case.


-----------------+
 debug-dump.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


Index: src/compiler/debug-dump.lisp
diff -u src/compiler/debug-dump.lisp:1.48 src/compiler/debug-dump.lisp:1.49
--- src/compiler/debug-dump.lisp:1.48	Fri Jan 22 08:36:06 2010
+++ src/compiler/debug-dump.lisp	Sun Jan 31 14:26:51 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/debug-dump.lisp,v 1.48 2010-01-22 13:36:06 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/debug-dump.lisp,v 1.49 2010-01-31 19:26:51 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -311,7 +311,9 @@
 			  (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)