353 |
(%g :x 'worse)))) |
(%g :x 'worse)))) |
354 |
good) |
good) |
355 |
|
|
356 |
|
;;; Test that [:&]allow-other-keys suppress errors for illegal keywords |
357 |
|
;;; or odd numbers of keyword arguments |
358 |
|
|
359 |
|
(deftest flet.41 |
360 |
|
(classify-error |
361 |
|
(flet ((%f (&key (a :good)) a)) |
362 |
|
(%f :allow-other-keys t :b))) |
363 |
|
:good) |
364 |
|
|
365 |
|
(deftest flet.42 |
366 |
|
(classify-error |
367 |
|
(flet ((%f (&key (a :good)) a)) |
368 |
|
(%f :allow-other-keys t 10 20))) |
369 |
|
:good) |
370 |
|
|
371 |
|
(deftest flet.43 |
372 |
|
(classify-error |
373 |
|
(flet ((%f (&key (a :good) &allow-other-keys) a)) |
374 |
|
(%f :b))) |
375 |
|
:good) |
376 |
|
|
377 |
|
(deftest flet.44 |
378 |
|
(classify-error |
379 |
|
(flet ((%f (&key (a :good) &allow-other-keys) a)) |
380 |
|
(%f 10 20))) |
381 |
|
:good) |