From 6ee6333087d341cd6c716abaaaebbfbf11cb516b Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 26 May 2013 18:05:39 -0700
Subject: [PATCH] Use BYTE-BASH-COPY too when CONCATENATE'ing simple-strings.

---
 src/compiler/generic/vm-tran.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index 38947d24d..d340446f2 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))))
-- 
GitLab