From d2d3f4c67a91c17f05f5b25bece336e5b6b9bc25 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 26 Aug 2004 12:10:33 +0000
Subject: [PATCH] Another problem with random string comparison tests on lisps
 without base-char == character.

---
 ansi-tests/string-aux.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/string-aux.lsp b/ansi-tests/string-aux.lsp
index b008456e..cd515c11 100644
--- a/ansi-tests/string-aux.lsp
+++ b/ansi-tests/string-aux.lsp
@@ -94,7 +94,9 @@
     (format t "s1 = ~S, s2 = ~S~%" s1 s2)
     |#
     ;; Sometimes we want them to have a common prefix
-    (when (coin)
+    (when (and (coin)
+	       (equal (array-element-type s1)
+		      (array-element-type s2)))
       (if (<= sublen1 sublen2)
 	  (setf (subseq s2 start2 (+ start2 sublen1))
 		(subseq s1 start1 (+ start1 sublen1)))
-- 
GitLab