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 @@
(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))))
......
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