Commit 0c165507 authored by pfdietz's avatar pfdietz
Browse files

Test that [:&]allow-other-keys suppresses checking of illegal keywords and odd...

Test that [:&]allow-other-keys suppresses checking of illegal keywords and odd length keyword parameter lists.
parent f240870d
......@@ -353,4 +353,29 @@
(%g :x 'worse))))
good)
;;; Test that [:&]allow-other-keys suppress errors for illegal keywords
;;; or odd numbers of keyword arguments
(deftest flet.41
(classify-error
(flet ((%f (&key (a :good)) a))
(%f :allow-other-keys t :b)))
:good)
(deftest flet.42
(classify-error
(flet ((%f (&key (a :good)) a))
(%f :allow-other-keys t 10 20)))
:good)
(deftest flet.43
(classify-error
(flet ((%f (&key (a :good) &allow-other-keys) a))
(%f :b)))
:good)
(deftest flet.44
(classify-error
(flet ((%f (&key (a :good) &allow-other-keys) a))
(%f 10 20)))
:good)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment