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 @@ ...@@ -231,11 +231,11 @@
'(let* ((len (length seq)) '(let* ((len (length seq))
(res (make-string len))) (res (make-string len)))
(declare (optimize (safety 0))) (declare (optimize (safety 0)))
(bit-bash-copy seq (byte-bash-copy seq
vector-data-byte-offset vector-data-byte-offset
res res
vector-data-byte-offset vector-data-byte-offset
(the vm::offset (* len vm:char-bytes))) (the vm::offset (* len vm:char-bytes)))
res)) res))
(deftransform replace ((string1 string2 &key (start1 0) (start2 0) (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