Commit d568ef5f authored by pfdietz's avatar pfdietz
Browse files

Fixed bugs in new destructuring-bind tests.

parent b6bc388e
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment