Commit 70021754 authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Re #241: Add test cases.

parent bf449190
......@@ -482,3 +482,20 @@
10545160975)
t)
;;; ticket #241
(deftest compiler.4a
(multiple-value-bind
(rv error)
(ignore-errors
(compile nil '(lambda (&rest args &optional x))))
(typep error 'program-error))
t)
(deftest compiler.4b
(multiple-value-bind
(rv error)
(ignore-errors
(compile nil '(lambda (&key args &optional x))))
(typep error 'program-error))
t)
\ No newline at end of file
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