/[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.13 by ram, Tue Apr 24 11:53:00 1990 UTC revision 1.14 by ram, Mon May 7 10:49:09 1990 UTC
# Line 498  Line 498 
498                                      ((let ((ef (functional-entry-function                                      ((let ((ef (functional-entry-function
499                                                  fun)))                                                  fun)))
500                                         (and ef (leaf-name ef))))                                         (and ef (leaf-name ef))))
501                                      (main-p (leaf-name dispatch))                                      ((and main-p (leaf-name dispatch)))
502                                      (t                                      (t
503                                       (component-name component)))                                       (component-name component)))
504                          :kind (if main-p nil (functional-kind fun))                          :kind (if main-p nil (functional-kind fun))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5