[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv23701/Apps/Listener

Modified Files:
	dev-commands.lisp 
Log Message:
In Show Class Slots, make sure the class is a standard-class.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/01/11 06:00:04	1.45
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/01/18 06:54:50	1.46
@@ -675,9 +675,10 @@
                                       :command-table show-commands
                                       :menu "Class Slots"
                                       :provide-output-destination-keyword t)
-    ((class-name 'clim:symbol :prompt "class name"))
+    ((class-name 'clim:symbol :prompt "class name"))  
   (let* ((class (find-class class-name nil))
          (finalized-p (and class
+                           (typep class 'standard-class)
                            (progn
                              (clim-mop:finalize-inheritance class)
                              (clim-mop:class-finalized-p class))))
@@ -685,6 +686,8 @@
     (cond
      ((null class)
       (note "~A is not a defined class.~%" class-name))
+     ((not (typep class 'standard-class))
+      (note "Class ~A is not a STANDARD-CLASS.~%" class-name))
      ((not finalized-p)
       (note "Class ~A is not finalized." class-name))
      ((null slots)