[Openmcl-cvs-notifications] r13961 - /trunk/source/lib/describe.lisp

[gz at clozure.com]

Author: gz
Date: Wed Jul 14 14:23:00 2010
New Revision: 13961

Log:
function inspector: show lfun bits and lfun info

Modified:
    trunk/source/lib/describe.lisp

Modified: trunk/source/lib/describe.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/describe.lisp (original)
+++ trunk/source/lib/describe.lisp Wed Jul 14 14:23:00 2010
@@ -1229,6 +1229,8 @@
                                               (format nil "Arglist (~(~a~)=
)" type)
                                               "Arglist unknown")))
                                  (list arglist label (if type :colon '(:co=
mment (: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)))=
)))
     (setf (slot-value f 'header-lines) lines)))