[slime-cvs] CVS slime

[alendvai]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv6356

Modified Files:
	swank.lisp 
Log Message:
Sort slot names in the inspector


--- /project/slime/cvsroot/slime/swank.lisp	2006/12/20 14:29:09	1.440
+++ /project/slime/cvsroot/slime/swank.lisp	2006/12/24 13:38:36	1.441
@@ -4472,7 +4472,8 @@
               "All Slots:" (:newline))
             (let* ((class (class-of object))
                    (direct-slots (swank-mop:class-direct-slots class))
-                   (effective-slots (swank-mop:class-slots class))
+                   (effective-slots (sort (swank-mop:class-slots class)
+                                          #'string< :key #'swank-mop:slot-definition-name))
                    (slot-presentations (loop for effective-slot :in effective-slots
                                              collect (inspect-slot-for-emacs
                                                       class object effective-slot)))