[nongnu] externals/sly 5ec798d 19/47: decode-arglist: don't fall on arglist-dummy.

[ELPA Syncer]

branch: externals/sly
commit 5ec798d2e17d42b901645ab9c1744f7d4cd7ac4d
Author: Stas Boukarev <stassats@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    decode-arglist: don't fall on arglist-dummy.
    
    Which may come from FLET.
    
    * contrib/slynk-arglists.lisp (decode-arglist): Rework.
    
    Cherry-picked-from: SLIME commit 4122fcabd64551e1ed853f8d277b4d1e785ed49e
    Co-authored-by: João Távora <joaotavora@gmail.com>
---
 contrib/slynk-arglists.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/contrib/slynk-arglists.lisp b/contrib/slynk-arglists.lisp
index 14755a8..0f0e19c 100644
--- a/contrib/slynk-arglists.lisp
+++ b/contrib/slynk-arglists.lisp
@@ -530,10 +530,7 @@ Return an OPTIONAL-ARG structure."
 
 (defun decode-arglist (arglist)
   "Parse the list ARGLIST and return an ARGLIST structure."
-  (etypecase arglist
-    ((eql :not-available) (return-from decode-arglist
-                            :not-available))
-    (list))
+  (if (eq arglist :not-available) (return-from decode-arglist arglist))
   (loop
     with mode = nil
     with result = (make-arglist)