[git] CMU Common Lisp branch master updated. snapshot-2013-05-17-g6ee6333

[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  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 at 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
-- 
CMU Common Lisp