diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 22cce3d76002a6bead3295c8dbc3bdf001359c95..0159d4d15b5a2239207d7cb7d232c373486c7e0f 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -11235,12 +11235,10 @@ Broken at C::WT-MAKE-CLOSURE. ;;; (SB-KERNEL:TWO-ARG-AND NIL 1) (deftest misc.631 - (if (flet ((%f17 (f17-1 f17-2 f17-3 - &optional - &key (key1 0) - (key2 (if (evenp (multiple-value-prog1 0)) 0 0))) + (if (flet ((%f17 (&key (key2 (if (evenp (multiple-value-prog1 0)) 0 0))) 0)) 0) - 0 0) - 0) + :a :b) + :a) +