From 1fa73a7e1844b5b59c86fcf49a3435342b3a34fd Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 27 May 2004 03:40:18 +0000
Subject: [PATCH] Remove unnecessary type declarations, args.

---
 ansi-tests/misc.lsp | 21 ++++-----------------
 1 file changed, 4 insertions(+), 17 deletions(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 14222935..96fa019d 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7158,23 +7158,13 @@ Broken at C::WT-C-INLINE-LOC.
    12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
   0)
 
+;;; abcl (25 May 2004)
+;;; 0 is not of type LIST
 (deftest misc.376
   (funcall
    (compile
     nil
-    '(lambda () ; (a b c d e f g h i)
-       #|
-       (declare (type (integer -3780481450018 4128865857054) a))
-       (declare (type (integer -15 7920255) b))
-       (declare (type (integer -2 1) c))
-       (declare (type (integer -6 157) d))
-       (declare (type (integer -3022 3523491) e))
-       (declare (type (integer -3 18632748) f))
-       (declare (type (integer -4 149) g))
-       (declare (type (integer -22 -1) h))
-       (declare (type (integer -176782576526 -1863239307) i))
-       (declare (ignorable a b c d e f g h i))
-       |#
+    '(lambda ()
        (declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
 			  (compilation-speed 0)))
        (dotimes (iv4 3
@@ -7182,8 +7172,5 @@ Broken at C::WT-C-INLINE-LOC.
 		       (progn (cdr *s6*) 0)))
 	 (floor (rational (let ((*s2*
 				 (rational (common-lisp:handler-case 0))))
-			    0))))))
-   )
+			    0)))))))
   0)
-
-   
-- 
GitLab