101 |
1 2 3) |
1 2 3) |
102 |
|
|
103 |
(deftest destructuring-bind.22 |
(deftest destructuring-bind.22 |
104 |
(destructuring-bind (x y &key) '(:a 2) (values x y)) |
(destructuring-bind (x y &key) '(1 2) (values x y)) |
105 |
:a 2) |
1 2) |
106 |
|
|
107 |
(deftest destructuring-bind.23 |
(deftest destructuring-bind.23 |
108 |
(destructuring-bind (&rest x &key) '(:allow-other-keys 1) x) |
(destructuring-bind (&rest x &key) '(:allow-other-keys 1) x) |
109 |
(:allow-other-keys 1)) |
(:allow-other-keys 1)) |
110 |
|
|
111 |
|
(deftest destructuring-bind.24 |
112 |
|
(destructuring-bind (&rest x &key) nil x) |
113 |
|
nil) |
114 |
|
|
115 |
;;; Error cases |
;;; Error cases |
116 |
|
|
117 |
#| |
#| |