221 |
(%f)) |
(%f)) |
222 |
10 |
10 |
223 |
(return-from done 'good))) |
(return-from done 'good))) |
|
good) |
|
224 |
|
good) |
225 |
|
|
226 |
|
;;; Check that nil keyword arguments do not enable the default values |
227 |
|
|
228 |
|
(deftest labels.28 |
229 |
|
(labels ((%f (&key (a 'wrong)) a)) (%f :a nil)) |
230 |
|
nil) |
231 |
|
|
232 |
|
(deftest labels.29 |
233 |
|
(labels ((%f (&key (a 'wrong a-p)) (list a (not a-p)))) (%f :a nil)) |
234 |
|
(nil nil)) |
235 |
|
|
236 |
|
(deftest labels.30 |
237 |
|
(labels ((%f (&key ((:a b) 'wrong)) b)) (%f :a nil)) |
238 |
|
nil) |
239 |
|
|
240 |
|
(deftest labels.31 |
241 |
|
(labels ((%f (&key ((:a b) 'wrong present?)) (list b (not present?)))) |
242 |
|
(%f :a nil)) |
243 |
|
(nil nil)) |
244 |
|
|
245 |
|
(deftest labels.32 |
246 |
|
(labels ((%f (&key) 'good)) |
247 |
|
(%f :allow-other-keys nil)) |
248 |
|
good) |
249 |
|
|
250 |
|
(deftest labels.33 |
251 |
|
(labels ((%f (&key) 'good)) |
252 |
|
(%f :allow-other-keys t)) |
253 |
|
good) |
254 |
|
|
255 |
|
(deftest labels.34 |
256 |
|
(labels ((%f (&key) 'good)) |
257 |
|
(%f :allow-other-keys t :a 1 :b 2)) |
258 |
|
good) |
259 |
|
|
260 |
|
(deftest labels.35 |
261 |
|
(labels ((%f (&key &allow-other-keys) 'good)) |
262 |
|
(%f :a 1 :b 2)) |
263 |
|
good) |