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