/[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.14.1.2 by ram, Fri Jun 15 15:38:38 1990 UTC revision 1.14.1.3 by ram, Mon Jul 23 13:26:20 1990 UTC
# Line 285  Line 285 
285                         (setf (debug-source-from res) name)                         (setf (debug-source-from res) name)
286                         (when (eq name :lisp)                         (when (eq name :lisp)
287                           (setf (debug-source-name res)                           (setf (debug-source-name res)
288                                 (cadr (aref (file-info-forms x) 0))))))                                 (aref (file-info-forms x) 0)))))
289                  res))                  res))
290            (source-info-files info)))            (source-info-files info)))
291    

Legend:
Removed from v.1.14.1.2  
changed lines
  Added in v.1.14.1.3

  ViewVC Help
Powered by ViewVC 1.1.5