 
 HINTS: (decode-until)
     { string input-port object } ;
-
-HINTS: M\ input-port stream-read-partial-unsafe
-    { fixnum byte-array object } ;
-
-HINTS: M\ input-port stream-read-unsafe
-    { fixnum byte-array object } ;

M: input-port stream-read1
    dup check-disposed
    dup wait-to-read [ drop f ] [ buffer>> buffer-pop ] if ; inline

<PRIVATE


PRIVATE>

M: input-port stream-read-partial-unsafe
    [ check-c-ptr swap ] dip prepare-read read-step
    [ swap [ memcpy ] keep ] [ 2drop 0 ] if* ;

M: input-port stream-read-unsafe
    [ check-c-ptr swap ] dip prepare-read 0 read-loop ;

<PRIVATE

