/[cmucl]/src/compiler/debug-dump.lisp
ViewVC logotype

Diff of /src/compiler/debug-dump.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by rtoy, Fri Jan 22 13:36:06 2010 UTC revision 1.49 by rtoy, Sun Jan 31 19:26:51 2010 UTC
# Line 311  otherwise the truename." Line 311  otherwise the truename."
311                            (unless (eq *byte-compile* 't)                            (unless (eq *byte-compile* 't)
312                              (coerce-to-smallest-eltype                              (coerce-to-smallest-eltype
313                               (file-info-positions x)))                               (file-info-positions x)))
314                            :info (source-info-external-format info)))                            :info
315                              #+unicode (source-info-external-format info)
316                              #-unicode nil))
317                      (name (file-info-name x)))                      (name (file-info-name x)))
318                  (etypecase name                  (etypecase name
319                    ((member :stream :lisp)                    ((member :stream :lisp)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5