Commit 6230d4fa authored by pfdietz's avatar pfdietz
Browse files

More fixes.

parent d568ef5f
......@@ -101,13 +101,17 @@
1 2 3)
(deftest destructuring-bind.22
(destructuring-bind (x y &key) '(:a 2) (values x y))
:a 2)
(destructuring-bind (x y &key) '(1 2) (values x y))
1 2)
(deftest destructuring-bind.23
(destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)
(:allow-other-keys 1))
(deftest destructuring-bind.24
(destructuring-bind (&rest x &key) nil x)
nil)
;;; 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