[slime-devel] Fancy-Inspecting packages

[Ariel Badichi]

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.

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
--- contrib/swank-fancy-inspector.lisp	23 Aug 2007 19:04:15 -0000	1.2
+++ contrib/swank-fancy-inspector.lisp	14 Sep 2007 17:04:47 -0000
@@ -464,14 +464,16 @@
               (:newline) (:newline)
               ,@(make-symbols-listing grouping-kind symbols)))))
 
+(defun package< (package1 package2)
+  (string< (package-name package1) (package-name package2)))
 
 (defmethod inspect-for-emacs ((package package) 
                               (inspector fancy-inspector))
   (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 +488,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)     #'package<)
+          package-used-by-list (sort (copy-list package-used-by-list) #'package<)
           shadowed-symbols     (sort (copy-list shadowed-symbols)     #'string<))
     
     (setf present-symbols      (sort present-symbols  #'string<)  ; SORT + STRING-LESSP