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