diff --git a/ansi-tests/destructuring-bind.lsp b/ansi-tests/destructuring-bind.lsp index 4d7b7396377814615bfea538e06e22bcb7a79776..623e6477f1ffee3699463e6e093db63595517a6e 100644 --- a/ansi-tests/destructuring-bind.lsp +++ b/ansi-tests/destructuring-bind.lsp @@ -101,12 +101,12 @@ 1 2 3) (deftest destructuring-bind.22 - (destructuring-bind (x y &key) '(1 2) (values x y)) - 1 2) + (destructuring-bind (x y &key) '(:a 2) (values x y)) + :a 2) (deftest destructuring-bind.23 - (destructuring-bind (&rest x &key) '(1) x) - (1)) + (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x) + (:allow-other-keys 1)) ;;; Error cases