From 9fa9c0185259d23bb7da790c16fbb687d4784a26 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 30 May 2006 01:41:09 +0000
Subject: [PATCH] New sbcl compiler bug (type propagation on COERCE)

---
 ansi-tests/misc.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index d0f2aef0..a5bb1bc7 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11602,7 +11602,7 @@ Broken at C::WT-MAKE-CLOSURE.
 		 (declare (optimize (speed 0) (safety 0) (debug 2) (space 2))
 			  (type (member integer *) p2))
 		 (coerce 523242 p2))))
-    (funcall (compile nil form) 523242))
+    (funcall (compile nil form) 'integer))
   523242)
 
 
-- 
GitLab