[Openmcl-cvs-notifications] r16238 - /trunk/source/lib/apropos.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 17:07:58 UTC 2014


Author: gz
Date: Thu Sep 25 17:07:58 2014
New Revision: 16238

Log:
make apropos show class definitions

Modified:
    trunk/source/lib/apropos.lisp

Modified: trunk/source/lib/apropos.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/apropos.lisp	(original)
+++ trunk/source/lib/apropos.lisp	Thu Sep 25 17:07:58 2014
@@ -86,6 +86,9 @@
     (when (boundp sym)
       (princ ",  Value: ")
       (prin1 (symbol-value sym)))
+    (when (find-class sym nil)
+      (princ ", Class: ")
+      (prin1 (find-class sym)))
     (terpri)))
 =

   =




More information about the Openmcl-cvs-notifications mailing list