Commit da839153 authored by pfdietz's avatar pfdietz

Add two tests exhibiting a bug found by piso. It was causing the bad test...

Add two tests exhibiting a bug found by piso.  It was causing the bad test sxhash.15 (since fixed) to incorrectly pass.
parent cf5348a6
......@@ -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
......@@ -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
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