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)