[slime-devel] Re: Fancy-Inspecting packages

[Ariel Badichi]

Ariel Badichi <abadichi at bezeqint.net> writes:

> Hello,
>
> 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.  Attached is a patch to fix this.
>

Sorry to respond to myself, but here is a nicer version.

> Ariel

-------------- next part --------------
RCS file: /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp,v
retrieving revision 1.2
diff -u -r1.2 swank-fancy-inspector.lisp
--- swank-fancy-inspector.lisp	23 Aug 2007 19:04:15 -0000	1.2
+++ swank-fancy-inspector.lisp	14 Sep 2007 17:43:46 -0000
@@ -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