Skip to content
Snippets Groups Projects
Commit d568ef5f authored by pfdietz's avatar pfdietz
Browse files

Fixed bugs in new destructuring-bind tests.

parent b6bc388e
No related branches found
No related tags found
No related merge requests found
...@@ -101,12 +101,12 @@ ...@@ -101,12 +101,12 @@
1 2 3) 1 2 3)
(deftest destructuring-bind.22 (deftest destructuring-bind.22
(destructuring-bind (x y &key) '(1 2) (values x y)) (destructuring-bind (x y &key) '(:a 2) (values x y))
1 2) :a 2)
(deftest destructuring-bind.23 (deftest destructuring-bind.23
(destructuring-bind (&rest x &key) '(1) x) (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)
(1)) (:allow-other-keys 1))
;;; Error cases ;;; Error cases
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment