1;;; 2;;; srfi-66 - Octet vectors 3;;; 4 5;; It is mostly a subset of srfi-4, except 6 7;; u8vector=? - gauche.uvector provides this 8;; u8vector-compare - gauche.uvector provides this 9;; u8vector-copy! - this has different argument order 10 11(define-module srfi-66 12 (use gauche.uvector :rename ((u8vector-copy! gauche:u8vector-copy!))) 13 (export u8vector? make-u8vector u8vector 14 u8vector->list list->u8vector 15 u8vector-length u8vector-ref u8vector-set! 16 u8vector=? u8vector-compare 17 u8vector-copy! u8vector-copy)) 18(select-module srfi-66) 19 20(define (u8vector-copy! src src-start target target-start n) 21 (gauche:u8vector-copy! target target-start src src-start (+ n src-start))) 22 23 24 25