From 035c6be3fe0453c72f52c30914bbd008a743399c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 26 Feb 2006 02:32:06 +0000
Subject: [PATCH] New sbcl compiler failure (type prop test on structure
 accessor).

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 46f63760..b140a927 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11201,3 +11201,19 @@ Broken at C::WT-MAKE-CLOSURE.
        (not (not (logbitp 0 (floor 2147483651 (min -23 0))))))))
   t)
 
+;;; sbcl 0.9.9.35
+;;; The value #S(MISC-629 :A 1 :B 3) is not of type SB-KERNEL:INSTANCE.
+
+(defstruct misc-629 a b)
+
+(deftest misc.629
+  (let* ((s (make-misc-629 :a 1 :b 3))
+	 (form  `(lambda (x)
+		   (declare (optimize (speed 1) (safety 3) (debug 0) (space 2))
+			    (type (member 0 2 ,s) x))
+		   (misc-629-a x))))
+    (funcall (compile nil form) s))
+  1)
+
+
+  
-- 
GitLab