From b1d65255d021886369e544caa1864aac6eec64cc Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 26 May 2013 09:37:59 -0700 Subject: [PATCH] Use BYTE-BASH-COPY in COPY-SEQ on strings. Forgot to do this when we added BYTE-BASH-COPY for REPLACE. --- src/compiler/generic/vm-tran.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index f8ecf243b..38947d24d 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) -- GitLab