[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	swank-fancy-inspector.lisp 
Log Message:

* swank-fancy-inspector.lisp (inspect-for-emacs package): When
  inspecting a package, the links in the use list and the used-by
  list lead to inspecting package names, rather than the packages
  themselves. Fix that.


--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2007/08/23 19:04:15	1.2
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2007/09/15 11:29:22	1.3
@@ -470,8 +470,8 @@
   (declare (ignore inspector))
   (let ((package-name         (package-name package))
         (package-nicknames    (package-nicknames package))
-        (package-use-list     (mapcar #'package-name (package-use-list package)))
-        (package-used-by-list (mapcar #'package-name (package-used-by-list package)))
+        (package-use-list     (package-use-list package))
+        (package-used-by-list (package-used-by-list package))
         (shadowed-symbols     (package-shadowing-symbols package))
         (present-symbols      '()) (present-symbols-length  0)
         (internal-symbols     '()) (internal-symbols-length 0)
@@ -486,8 +486,8 @@
               (progn (push sym external-symbols) (incf external-symbols-length))))))
     
     (setf package-nicknames    (sort (copy-list package-nicknames)    #'string<)
-          package-use-list     (sort (copy-list package-use-list)     #'string<)
-          package-used-by-list (sort (copy-list package-used-by-list) #'string<)
+          package-use-list     (sort (copy-list package-use-list)     #'string< :key #'package-name)
+          package-used-by-list (sort (copy-list package-used-by-list) #'string< :key #'package-name)
           shadowed-symbols     (sort (copy-list shadowed-symbols)     #'string<))
     
     (setf present-symbols      (sort present-symbols  #'string<)  ; SORT + STRING-LESSP