[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-05-15-gb1d6525

[Raymond Toy]

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 at 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