From 5d104f7f666ebf085ee8c33d50134cd49cbd0032 Mon Sep 17 00:00:00 2001 From: cxxxr Date: Sun, 17 Dec 2023 20:28:00 +0900 Subject: [PATCH] fix lambda-list walker for (... &key ((:foo foo)) ...) --- contrib/walker/walker.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/contrib/walker/walker.lisp b/contrib/walker/walker.lisp index 17581fd..40921ac 100644 --- a/contrib/walker/walker.lisp +++ b/contrib/walker/walker.lisp @@ -507,6 +507,9 @@ (let* ((var-value (uiop:ensure-list arg)) (var (first var-value)) (value (second var-value))) + (when (and (eq state '&key) + (consp var)) + (setf var (second var))) (assert-type var 'variable-symbol) (let ((initial-value (when value