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))