437 |
10 |
10 |
438 |
(return-from done 'good))) |
(return-from done 'good))) |
439 |
good) |
good) |
440 |
|
|
441 |
|
;;; Check that nil keyword arguments do not enable the default values |
442 |
|
|
443 |
|
(deftest flet.53 |
444 |
|
(flet ((%f (&key (a 'wrong)) a)) (%f :a nil)) |
445 |
|
nil) |
446 |
|
|
447 |
|
(deftest flet.54 |
448 |
|
(flet ((%f (&key (a 'wrong a-p)) (list a (not a-p)))) (%f :a nil)) |
449 |
|
(nil nil)) |
450 |
|
|
451 |
|
(deftest flet.55 |
452 |
|
(flet ((%f (&key ((:a b) 'wrong)) b)) (%f :a nil)) |
453 |
|
nil) |
454 |
|
|
455 |
|
(deftest flet.56 |
456 |
|
(flet ((%f (&key ((:a b) 'wrong present?)) (list b (not present?)))) (%f :a nil)) |
457 |
|
(nil nil)) |
458 |
|
|
459 |
|
(deftest flet.57 |
460 |
|
(flet ((%f (&key) 'good)) |
461 |
|
(%f :allow-other-keys nil)) |
462 |
|
good) |
463 |
|
|
464 |
|
(deftest flet.58 |
465 |
|
(flet ((%f (&key) 'good)) |
466 |
|
(%f :allow-other-keys t)) |
467 |
|
good) |
468 |
|
|
469 |
|
(deftest flet.59 |
470 |
|
(flet ((%f (&key) 'good)) |
471 |
|
(%f :allow-other-keys t :a 1 :b 2)) |
472 |
|
good) |
473 |
|
|
474 |
|
(deftest flet.60 |
475 |
|
(flet ((%f (&key &allow-other-keys) 'good)) |
476 |
|
(%f :a 1 :b 2)) |
477 |
|
good) |