branch: externals/sly
commit 5ec798d2e17d42b901645ab9c1744f7d4cd7ac4d
Author: Stas Boukarev <stass...@gmail.com>
Commit: João Távora <joaotav...@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 <joaotav...@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)
