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