Commit 6ee63330 authored by Raymond Toy's avatar Raymond Toy
Browse files

Use BYTE-BASH-COPY too when CONCATENATE'ing simple-strings.

parent 8f5653cb
...@@ -289,9 +289,9 @@ ...@@ -289,9 +289,9 @@
(let ((n-seq (gensym)) (let ((n-seq (gensym))
(n-length (gensym))) (n-length (gensym)))
(args n-seq) (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) (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 res start
,n-length) ,n-length)
(start (+ start ,n-length)))))) (start (+ start ,n-length))))))
...@@ -310,9 +310,9 @@ ...@@ -310,9 +310,9 @@
(declare (ignore rtype)) (declare (ignore rtype))
(let* (,@(lets) (let* (,@(lets)
(res (make-string (truncate (the index (+ ,@(all-lengths))) (res (make-string (truncate (the index (+ ,@(all-lengths)))
vm:char-bits)))) vm:char-bytes))))
(declare (type index ,@(all-lengths))) (declare (type index ,@(all-lengths)))
(let ((start vector-data-bit-offset)) (let ((start vector-data-byte-offset))
,@(nestify (forms))) ,@(nestify (forms)))
res)))) res))))
result)))) result))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment