From 21603dc62678c21b5e088a04f7e4e2eb07ac6e0a Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 30 Mar 2006 03:25:27 +0000
Subject: [PATCH] Simplified misc.637

---
 ansi-tests/misc.lsp | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index ad3fa866..6e85adf0 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11309,16 +11309,10 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;;   attempt to THROW to a tag that does not exist: SB-C::LOCALL-ALREADY-LET-CONVERTED
 
 (deftest misc.637
- (labels ((%f11 (f11-2 &key (key1 0) (key2 0))
-		(progn
-		  (labels ((%f8 (f8-2 f8-3
-				      &optional
-				      (f8-4 0)
-				      (f8-5 (if nil (return-from %f11 0)
-					      0)))
-				0))
-			  (%f8 (%f8 0 0 0) f11-2 key1 key2))
-		  0)))
+ (labels ((%f11 (f11-2 &key key1)
+		(labels ((%f8 (f8-2 &optional (f8-5 (if nil (return-from %f11 0) 0)))
+			      :bad1))
+			(%f8 (%f8 0)))
+		:bad2))
 	 :good)
   :good)
-
-- 
GitLab