From 3950a6af39594f65f17cea31f02b46d31dd5b26b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 10 Aug 2005 01:30:23 +0000
Subject: [PATCH] Simplify misc.613

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index efb4433b..a0295d1b 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10898,16 +10898,11 @@ Broken at C::WT-MAKE-CLOSURE.
    (compile
     nil
     '(lambda (a)
-      (declare (type (integer -20326914 13338097) a))
-      (declare (ignorable a))
       (declare (optimize (space 3) (safety 1) (debug 3)
 		(speed 1) (compilation-speed 3)))
-      (let* ((*s7* (catch 'ct1
-		     (reduce #'(lambda (lmv6 lmv5)
-				 (throw 'ct1 0))
-			     (list a 0 0) :end 2))))
-	(declare (special *s7*))
-	0)))
+      (catch 'ct1
+	(reduce #'(lambda (lmv6 lmv5) (throw 'ct1 0))
+		(list a 0 0) :end 2))))
    1)
   0)
 
-- 
GitLab