/[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.47 by rtoy, Tue Apr 6 20:44:01 2004 UTC revision 1.48 by rtoy, Fri Jan 22 13:36:06 2010 UTC
# Line 310  otherwise the truename." Line 310  otherwise the truename."
310                            :start-positions                            :start-positions
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)))
315                      (name (file-info-name x)))                      (name (file-info-name x)))
316                  (etypecase name                  (etypecase name
317                    ((member :stream :lisp)                    ((member :stream :lisp)

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

  ViewVC Help
Powered by ViewVC 1.1.5