Commit b1d65255 authored by Raymond Toy's avatar Raymond Toy
Browse files

Use BYTE-BASH-COPY in COPY-SEQ on strings.

Forgot to do this when we added BYTE-BASH-COPY for REPLACE.
parent b8c08075
......@@ -231,11 +231,11 @@
'(let* ((len (length seq))
(res (make-string len)))
(declare (optimize (safety 0)))
(bit-bash-copy seq
vector-data-byte-offset
res
vector-data-byte-offset
(the vm::offset (* len vm:char-bytes)))
(byte-bash-copy seq
vector-data-byte-offset
res
vector-data-byte-offset
(the vm::offset (* len vm:char-bytes)))
res))
(deftransform replace ((string1 string2 &key (start1 0) (start2 0)
......
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