diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index f8ecf243b4f45fcbd3db877feae0d2d3c87a25b1..38947d24df3b240e4c50f6223bf91085f372127a 100644 --- a/src/compiler/generic/vm-tran.lisp +++ b/src/compiler/generic/vm-tran.lisp @@ -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)