This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via b1d65255d021886369e544caa1864aac6eec64cc (commit) from b8c080759c41e1a16d0468a4138799e4a3d02151 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit b1d65255d021886369e544caa1864aac6eec64cc Author: Raymond Toy <toy.raymond@gmail.com> Date: Sun May 26 09:37:59 2013 -0700 Use BYTE-BASH-COPY in COPY-SEQ on strings. Forgot to do this when we added BYTE-BASH-COPY for REPLACE. diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index f8ecf24..38947d2 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) ----------------------------------------------------------------------- Summary of changes: src/compiler/generic/vm-tran.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) hooks/post-receive -- CMU Common Lisp