Changeset 13961


Ignore:
Timestamp:
Jul 14, 2010, 7:23:00 PM (9 years ago)
Author:
gz
Message:

function inspector: show lfun bits and lfun info

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/describe.lisp

    r13678 r13961  
    12311231                                              "Arglist unknown")))
    12321232                                 (list arglist label (if type :colon '(:comment (:plain)))))))
     1233                       (list (list (ccl::lfun-bits o) "Bits" :colon))
     1234                       (list (list (ccl::%lfun-info o) "Plist" :colon))
    12331235                       (when doc (list (list (substitute #\space #\newline doc) "Documentation" :colon)))
    12341236                       (when sn (list (list sn "Source Location" :colon))))))
Note: See TracChangeset for help on using the changeset viewer.