; new
(define (write-u8vector v #!optional (port ##sys#standard-output) (from 0)
			(to (u8vector-length v)))
  (##sys#check-structure v 'u8vector 'write-u8vector)
  (##sys#check-output-port port #t 'write-u8vector)
  (let* ((blob (u8vector->blob/shared (if (fx= from 0) v (subu8vector v from to))))
         (str (blob->string blob)))
    (write-string str to port)))


; old
(define (write-u8vector v #!optional (port ##sys#standard-output) (from 0)
			(to (u8vector-length v)))
  (##sys#check-structure v 'u8vector 'write-u8vector)
  (##sys#check-output-port port #t 'write-u8vector)
  (do ((i from (fx+ i 1)))
      ((fx>= i to))
    (##sys#write-char-0 
     (integer->char (##core#inline "C_u_i_u8vector_ref" v i))
     port) ) )