33 |
a b w nil) |
a b w nil) |
34 |
|
|
35 |
(deftest destructuring-bind.7 |
(deftest destructuring-bind.7 |
36 |
(destructuring-bind (x y &optional (z 'w z-p)) '(a b c) (values x y z z-p)) |
(destructuring-bind (x y &optional (z 'w z-p)) '(a b c) (values x y z (notnot z-p))) |
37 |
a b c t) |
a b c t) |
38 |
|
|
39 |
|
(deftest destructuring-bind.7a |
40 |
|
(destructuring-bind (x y &optional (z x z-p)) '(a b) (values x y z z-p)) |
41 |
|
a b a nil) |
42 |
|
|
43 |
(deftest destructuring-bind.8 |
(deftest destructuring-bind.8 |
44 |
(destructuring-bind (x y &optional z w) '(a b c) (values x y z w)) |
(destructuring-bind (x y &optional z w) '(a b c) (values x y z w)) |
45 |
a b c nil) |
a b c nil) |
60 |
(destructuring-bind (x y &body z) '(a b c d) (values x y z)) |
(destructuring-bind (x y &body z) '(a b c d) (values x y z)) |
61 |
a b (c d)) |
a b (c d)) |
62 |
|
|
63 |
|
(deftest destructuring-bind.12a |
64 |
|
(destructuring-bind ((x y &body z)) '((a b c d)) (values x y z)) |
65 |
|
a b (c d)) |
66 |
|
|
67 |
(deftest destructuring-bind.13 |
(deftest destructuring-bind.13 |
68 |
(destructuring-bind (&whole x y z) '(a b) (values x y z)) |
(destructuring-bind (&whole x y z) '(a b) (values x y z)) |
69 |
(a b) a b) |
(a b) a b) |
84 |
(destructuring-bind (&key a b c) '(:c 1) (values a b c)) |
(destructuring-bind (&key a b c) '(:c 1) (values a b c)) |
85 |
nil nil 1) |
nil nil 1) |
86 |
|
|
87 |
|
(deftest destructuring-bind.17a |
88 |
|
(destructuring-bind (&key (a 'foo) (b 'bar) c) '(:c 1) (values a b c)) |
89 |
|
foo bar 1) |
90 |
|
|
91 |
|
(deftest destructuring-bind.17c |
92 |
|
(destructuring-bind (&key (a 'foo a-p) (b a b-p) (c 'zzz c-p)) '(:c 1) |
93 |
|
(values a b c a-p b-p (notnot c-p))) |
94 |
|
foo foo 1 nil nil t) |
95 |
|
|
96 |
(deftest destructuring-bind.18 |
(deftest destructuring-bind.18 |
97 |
(destructuring-bind ((&key a b c)) '((:c 1 :b 2)) (values a b c)) |
(destructuring-bind ((&key a b c)) '((:c 1 :b 2)) (values a b c)) |
98 |
nil 2 1) |
nil 2 1) |
153 |
(declare)) |
(declare)) |
154 |
nil) |
nil) |
155 |
|
|
156 |
|
(deftest destructuring-bind.29 |
157 |
|
(destructuring-bind (x &aux y) '(:foo) (values x y)) |
158 |
|
:foo nil) |
159 |
|
|
160 |
|
(deftest destructuring-bind.30 |
161 |
|
(destructuring-bind (x &aux (y (list x))) '(:foo) (values x y)) |
162 |
|
:foo (:foo)) |
163 |
|
|
164 |
;;; Error cases |
;;; Error cases |
165 |
|
|
166 |
#| |
#| |