diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp index 5e0a7b4d6ce1a7444f35558965cdacbb3ce11ad4..4603ac8f05ed7965ca1d0b110e10ced8d64409a7 100644 --- a/ansi-tests/flet.lsp +++ b/ansi-tests/flet.lsp @@ -449,3 +449,10 @@ (flet ((%f (&key &allow-other-keys) 'good)) (%f :a 1 :b 2)) good) + +;;; NIL as a disallowed keyword argument +(deftest flet.61 + (signals-error + (flet ((%f (&key) :bad)) (%f nil nil)) + program-error) + t) \ No newline at end of file diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp index 0f40d290fbf8254dbe7eada39cf730f53c40f48b..97853cb457b1b62aa36ab71cd221be6a0d5284d2 100644 --- a/ansi-tests/labels.lsp +++ b/ansi-tests/labels.lsp @@ -265,3 +265,10 @@ (labels ((%f (&key &allow-other-keys) 'good)) (%f :a 1 :b 2)) good) + +;;; NIL as a disallowed keyword argument +(deftest labels.36 + (signals-error + (labels ((%f (&key) :bad)) (%f nil nil)) + program-error) + t) \ No newline at end of file