From 2d686cbb56f17bc596e9aa005eccda8a179d070b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 1 Apr 2006 04:32:56 +0000
Subject: [PATCH] New sbcl bug, in CHAR

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6e85adf0..4d25613f 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11316,3 +11316,26 @@ Broken at C::WT-MAKE-CLOSURE.
 		:bad2))
 	 :good)
   :good)
+
+;;;  full call to SB-KERNEL:DATA-VECTOR-REF
+
+(deftest misc.638
+  (let* ((codes '(32779 60674 33150 60033 41146 23916 28908 58886 12776 21282 37346 25537 56184
+			40736 4845 41954 6663 44378 23466 46903 13661 36445 18784 6114 6266))
+	 (chars (loop for code in codes collect (or (code-char code) #\x)))
+	 (c (elt chars 21))
+	 (s (make-array '(25) :element-type 'character
+			:initial-contents chars)))
+    (let ((form `(lambda (p1)
+		   (declare (optimize (speed 2) (safety 0) (debug 3) (space 1))
+			    (type (simple-string 25) p1))
+		   (char
+		    (the
+		     (member ,(let ((s2 "abbbabbaaabbaba"))
+				(make-array (length s2) :element-type 'base-char
+					    :initial-contents s2))
+			     ,s)
+		     p1)
+		    21))))
+      (not (not (eql c (funcall (compile nil form) s))))))
+  t)
-- 
GitLab