diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index fc1de626e8e4c8a09f7d2c94d195ef53440781a5..f3d2c34287b6c8fe3dfae6bb6f35220d1060c6b5 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10494,3 +10494,15 @@ Broken at C::WT-MAKE-CLOSURE. (make-array '(1) :element-type 'base-char :initial-element #\x :fill-pointer 0)) "") + +;;; clisp (11 Jan 2005) + +;;; *** - SYSTEM::%RPLACA: NIL is not a pair + +(deftest misc.579 + (funcall + (compile nil '(lambda () + (declare (optimize (speed 3) (safety 3) (debug 3) (space 0))) + (member 61 '(432445) :allow-other-keys t :foo t)))) + nil) +