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