[nongnu] elpa/slime 65ab630434 35/44: Inspect definition: handle eql specializers.

[ELPA Syncer]

branch: elpa/slime
commit 65ab630434425423dff0b73a10cda03c4818bb56
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    Inspect definition: handle eql specializers.
---
 swank.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/swank.lisp b/swank.lisp
index 112a399cd3..edc11ddc3a 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -3126,7 +3126,14 @@ DSPEC is a string and LOCATION a source location. NAME 
is a string."
                   (return)
                else do (push x qualifiers)
                while sexp)
-         (find-method (fdefinition gf) qualifiers (mapcar #'find-class 
specializers))))
+         (find-method (fdefinition gf) qualifiers 
+                      (mapcar (lambda (spec)
+                                (etypecase spec
+                                  (symbol (find-class spec))
+                                  ((cons (eql eql))
+                                   (make-instance 'swank-mop:eql-specializer
+                                                  :object (second spec)))))
+                              specializers))))
       (t
        (eval sexp)))))