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