[nongnu] elpa/slime 0a77a989fd 20/43: Fix extract-local-op-arglists for labels.

[ELPA Syncer]

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

    Fix extract-local-op-arglists for labels.
    
    Had some unreachable code.
---
 contrib/swank-arglists.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/swank-arglists.lisp b/contrib/swank-arglists.lisp
index 7201df7d5e..d6424bc096 100644
--- a/contrib/swank-arglists.lisp
+++ b/contrib/swank-arglists.lisp
@@ -1351,10 +1351,10 @@ object."
     ;; Notice that we only have information to "look backward" and
     ;; show arglists of previously occuring local functions.
     (destructuring-bind (defs . body) args
-      (unless (or (atom defs) (null body))   ; `(labels ,foo (|'
+      (when (consp defs)   ; `(labels ,foo (|'
         (let ((current-def (car (last defs))))
           (cond ((atom current-def) nil) ; `(labels ((foo (x) ...)|'
-                ((not (null body))
+                (body
                  (extract-local-op-arglists 'cl:flet args))
                 (t
                  (let ((def.body (cddr current-def)))