From f7967a6de0bb259a34952c7eb8cad1660b43101b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 26 May 2004 11:08:20 +0000
Subject: [PATCH] Another abcl bug (0 is not of type list)

---
 ansi-tests/misc.lsp | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 0c809b38..14222935 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7158,4 +7158,32 @@ Broken at C::WT-C-INLINE-LOC.
    12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
   0)
 
-    
\ No newline at end of file
+(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))
+       |#
+       (declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
+			  (compilation-speed 0)))
+       (dotimes (iv4 3
+		     (multiple-value-bind (*s6*) (cons 0 0)
+		       (progn (cdr *s6*) 0)))
+	 (floor (rational (let ((*s2*
+				 (rational (common-lisp:handler-case 0))))
+			    0))))))
+   )
+  0)
+
+   
-- 
GitLab