Changeset 13961

Timestamp:

Jul 14, 2010, 12:23:00 PM (14 years ago)

Author:

gz

Message:

function inspector: show lfun bits and lfun info

File:

• trunk/source/lib/describe.lisp (modified) (1 diff)

trunk/source/lib/describe.lisp

@@ -1231 +1231 @@
                                               "Arglist unknown")))
                                  (list arglist label (if type :colon '(:comment (:plain)))))))
+                       (list (list (ccl::lfun-bits o) "Bits" :colon))
+                       (list (list (ccl::%lfun-info o) "Plist" :colon))
                        (when doc (list (list (substitute #\space #\newline doc) "Documentation" :colon)))
                        (when sn (list (list sn "Source Location" :colon))))))