[slime-cvs] CVS update: slime/ChangeLog slime/swank-sbcl.lisp

[Christophe Rhodes]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3549

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
Present qualifiers in method definitions for sbcl

Date: Wed Aug 24 17:09:47 2005
Author: crhodes

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.752 slime/ChangeLog:1.753
--- slime/ChangeLog:1.752	Tue Aug 23 08:39:06 2005
+++ slime/ChangeLog	Wed Aug 24 17:09:32 2005
@@ -1,3 +1,8 @@
+2005-08-24  Christophe Rhodes  <csr21 at cam.ac.uk>
+
+	* swank-sbcl.lisp (method-definitions): present qualifiers (if
+	any).
+
 2005-08-23  Taylor R. Campbell  <campbell at bloodandcoffee.net>
 
 	* slime.el (slime-goto-location-position): Added a second regexp


Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.140 slime/swank-sbcl.lisp:1.141
--- slime/swank-sbcl.lisp:1.140	Sat Aug 20 21:36:15 2005
+++ slime/swank-sbcl.lisp	Wed Aug 24 17:09:33 2005
@@ -519,7 +519,8 @@
   (let ((methods (sb-mop:generic-function-methods gf))
         (name (sb-mop:generic-function-name gf)))
     (loop for method in methods 
-          collect (list `(method ,name ,(sb-pcl::unparse-specializers method))
+          collect (list `(method ,name ,@(method-qualifiers method)
+                          ,(sb-pcl::unparse-specializers method))
                         (method-source-location method)))))
 
 (defun method-source-location (method)