From 299423c1cd9bde35b383a289e7d8a29a83e8ff37 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 5 Mar 2006 13:06:08 +0000 Subject: [PATCH] Simplified misc.631 --- ansi-tests/misc.lsp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 22cce3d7..0159d4d1 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) + -- GitLab