[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp

[Peter Scott]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory common-lisp.net:/tmp/cvs-serv10021

Modified Files:
	inspector.lisp 
Log Message:
Added "class:" to display of symbols. This is not, strictly speaking,
a property of the symbol. However, this is useful enough that I think
it's worth including, since it can eliminate some minor annoyances.

Date: Fri Feb 11 22:41:25 2005
Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.20 mcclim/Apps/Inspector/inspector.lisp:1.21
--- mcclim/Apps/Inspector/inspector.lisp:1.20	Tue Feb  8 23:14:01 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Fri Feb 11 22:41:25 2005
@@ -475,6 +475,14 @@
        (if (fboundp object)
          (inspect-object (symbol-function object) pane)
          (princ "unbound")))
+    ;; This is not, strictly speaking, a property of the
+    ;; symbol. However, this is useful enough that I think it's worth
+    ;; including here, since it can eliminate some minor annoyances.
+    (inspector-table-row
+       (princ "class:")
+       (if (find-class object nil)
+         (inspect-object (find-class object) pane)
+         (princ "unbound")))
     (inspector-table-row
        (princ "package:")
        (inspect-object (symbol-package object) pane))