Commit da839153 authored May 15, 2004 by 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

ansi-tests/flet.lsp

+7 −0

Original line number	Diff line number	Diff line
		@@ -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

ansi-tests/labels.lsp

+7 −0

Original line number	Diff line number	Diff line
		@@ -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