Commit d2d3f4c6 authored by pfdietz's avatar pfdietz

Another problem with random string comparison tests on lisps without base-char == character.

parent ffb9d01d
...@@ -94,7 +94,9 @@ ...@@ -94,7 +94,9 @@
(format t "s1 = ~S, s2 = ~S~%" s1 s2) (format t "s1 = ~S, s2 = ~S~%" s1 s2)
|# |#
;; Sometimes we want them to have a common prefix ;; 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) (if (<= sublen1 sublen2)
(setf (subseq s2 start2 (+ start2 sublen1)) (setf (subseq s2 start2 (+ start2 sublen1))
(subseq s1 start1 (+ start1 sublen1))) (subseq s1 start1 (+ start1 sublen1)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment