From f16c98558bc3b8760b64bd7df5e254b459b5e8f7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 16 May 2004 03:06:15 +0000
Subject: [PATCH] Another sbcl bug

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index fab0e9c2..8eae6260 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -6891,3 +6891,34 @@ Broken at C::WT-C-INLINE-LOC.
    21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174
    38469170)
   11751)
+
+;;;  The value #<unknown pointer object, widetag=#x29 {A295F27}>
+;;;  is not of type RATIONAL.
+
+(deftest misc.367
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (type (integer 11557968 115977463) a))
+       (declare (type (integer -89510 -20616) b))
+       (declare (optimize (speed 2) (space 3) (safety 1)
+			  (debug 0) (compilation-speed 1)))
+       (rational
+	(flet ((%f17 (f17-1 f17-2) 0))
+	  (%f17
+	   (numerator
+	    (%f17
+	     (denominator
+	      (catch 'ct5
+		(apply (constantly 0)
+		       0
+		       (unwind-protect
+			   (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a))))
+		       nil)))
+	     0))
+	   (%f17 0 a))))))
+   112475717 -25829)
+  0)
+
+  
-- 
GitLab