Skip to content
Snippets Groups Projects
Commit da839153 authored by pfdietz's avatar pfdietz
Browse files

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
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment