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