From d568ef5f41e1af2fa6f3eb3625b794130cb16baa Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 4 May 2003 13:37:08 +0000 Subject: [PATCH] Fixed bugs in new destructuring-bind tests. --- ansi-tests/destructuring-bind.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ansi-tests/destructuring-bind.lsp b/ansi-tests/destructuring-bind.lsp index 4d7b7396..623e6477 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 -- GitLab