[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv7469

Modified Files:
	swank-ccl.lisp ChangeLog 
Log Message:
	* swank-ccl.lisp (who-specializes): Do not signal an error if
	argument does not name a class.


--- /project/slime/cvsroot/slime/swank-ccl.lisp	2009/10/06 20:12:03	1.7
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2009/10/24 11:32:18	1.8
@@ -303,11 +303,14 @@
    :test 'equal))
 
 (defimplementation who-specializes (class)
-  (delete-duplicates
-   (mapcar (lambda (m) 
-             (car (find-definitions m)))
-           (ccl:specializer-direct-methods (if (symbolp class) (find-class class) class)))
-   :test 'equal))
+  (when (symbolp class)
+    (setq class (find-class class nil)))
+  (when class
+    (delete-duplicates
+     (mapcar (lambda (m) 
+               (car (find-definitions m)))
+             (ccl:specializer-direct-methods class))
+     :test 'equal)))
 
 (defimplementation list-callees (name)
   (remove-duplicates
--- /project/slime/cvsroot/slime/ChangeLog	2009/10/24 11:05:15	1.1886
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/24 11:32:18	1.1887
@@ -1,5 +1,10 @@
 2009-10-24  Tobias C. Rittweiler <tcr at freebits.de>
 
+	* swank-ccl.lisp (who-specializes): Do not signal an error if
+	argument does not name a class.
+
+2009-10-24  Tobias C. Rittweiler <tcr at freebits.de>
+
 	* swank.lisp (xref): Deal with non-yet-interned names gracefully.
 
 2009-10-24  Tobias C. Rittweiler <tcr at freebits.de>