Commit f41c0a4e authored by pfdietz's avatar pfdietz

And another

parent 8665ecd4
......@@ -688,7 +688,7 @@
(deftest position-string.32
(let* ((s1 (copy-seq "xxxabcdabcdyyyyyyyy"))
(s2 (make-array '(4) :displaced-to s1
(s2 (make-array '(8) :displaced-to s1
:displaced-index-offset 3
:element-type (array-element-type s1))))
(position #\c s2 :from-end t))
......
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