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 6ee6333087d341cd6c716abaaaebbfbf11cb516b (commit) from 8f5653cb8d14200905a7ef653bcaccd490e25404 (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 6ee6333087d341cd6c716abaaaebbfbf11cb516b Author: Raymond Toy toy.raymond@gmail.com Date: Sun May 26 18:05:39 2013 -0700
Use BYTE-BASH-COPY too when CONCATENATE'ing simple-strings.
diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index 38947d2..d340446 100644 --- a/src/compiler/generic/vm-tran.lisp +++ b/src/compiler/generic/vm-tran.lisp @@ -289,9 +289,9 @@ (let ((n-seq (gensym)) (n-length (gensym))) (args n-seq) - (lets `(,n-length (the index (* (length ,n-seq) vm:char-bits)))) + (lets `(,n-length (the index (* (length ,n-seq) vm:char-bytes)))) (all-lengths n-length) - (forms `((bit-bash-copy ,n-seq vector-data-bit-offset + (forms `((byte-bash-copy ,n-seq vector-data-byte-offset res start ,n-length) (start (+ start ,n-length)))))) @@ -310,9 +310,9 @@ (declare (ignore rtype)) (let* (,@(lets) (res (make-string (truncate (the index (+ ,@(all-lengths))) - vm:char-bits)))) + vm:char-bytes)))) (declare (type index ,@(all-lengths))) - (let ((start vector-data-bit-offset)) + (let ((start vector-data-byte-offset)) ,@(nestify (forms))) res)))) result))))
-----------------------------------------------------------------------
Summary of changes: src/compiler/generic/vm-tran.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-)
hooks/post-receive