(use extras srfi-4)

(define (read-u8vector #!optional n (p ##sys#standard-input))
  (let ((str (##sys#read-string/port n p)))
    (##core#inline "C_string_to_bytevector" str)
    (##sys#make-structure 'u8vector str)))