[nongnu] elpa/slime 5ced74ab35: find-definition: fix parsing defmethod with an empty lambda-list.

[ELPA Syncer]

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

    find-definition: fix parsing defmethod with an empty lambda-list.
---
 swank.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/swank.lisp b/swank.lisp
index ab742fda8a..522c90cfb0 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -3154,12 +3154,12 @@ DSPEC is a string and LOCATION a source location. NAME 
is a string."
              (qualifiers)
              (specializers))
          (loop for x = (pop sexp)
-               when (consp x)
+               when (listp x)
                do (setf specializers x)
                   (return)
                else do (push x qualifiers)
                while sexp)
-         (find-method (fdefinition gf) qualifiers 
+         (find-method (fdefinition gf) qualifiers
                       (mapcar (lambda (spec)
                                 (etypecase spec
                                   (symbol (find-class spec))