[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-serv26618

Modified Files:
	inspector.lisp 
Log Message:
When inspecting packages, Clouseau now lists exported symbols.

Date: Tue Apr 26 23:35:24 2005
Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.31 mcclim/Apps/Inspector/inspector.lisp:1.32
--- mcclim/Apps/Inspector/inspector.lisp:1.31	Sat Apr  2 20:03:59 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Tue Apr 26 23:35:24 2005
@@ -512,6 +512,12 @@
     (with-text-family (pane :fix)
       (princ (package-name object) pane))))
 
+(defun package-exported-symbols (package)
+  "Return a list of all symbols exported by PACKAGE"
+  (let (symbols)
+    (do-external-symbols (symbol package symbols)
+      (push symbol symbols))))
+
 (defmethod inspect-object ((object package) pane)
   (inspector-table (object pane)
       (format pane "Package: ~S" (package-name object))
@@ -526,7 +532,10 @@
       (inspect-vertical-list (package-used-by-list object) pane))
     (inspector-table-row (pane)
 	(princ "Uses:")
-      (inspect-vertical-list (package-use-list object) pane))))
+      (inspect-vertical-list (package-use-list object) pane))
+    (inspector-table-row (pane)
+	(princ "Exports:")
+      (inspect-vertical-list (package-exported-symbols object) pane))))
 
 (defmethod inspect-object ((object vector) pane)
   (with-output-as-presentation