$ chicken-install -test srfi-41
building srfi-41
installing srfi-41
*** csi srfi-41-test ***

Unit Test - Please wait. No output means "passed".

(stream->list "four" strm123)
  --> Failed!
expected: "stream->list: bad `count' argument type - not a natural-integer"
returned: "stream->list: bad `count' argument type - not a non-negative-integer"

(stream->list -1 strm123)
  --> Failed!
expected: "stream->list: bad `count' argument type - not a natural-integer"
returned: "stream->list: bad `count' argument type - not a non-negative-integer"

(stream-drop "four" strm123)
  --> Failed!
expected: "stream-drop: bad `count' argument type - not a natural-integer"
returned: "stream-drop: bad `count' argument type - not a non-negative-integer"

(stream-drop -1 strm123)
  --> Failed!
expected: "stream-drop: bad `count' argument type - not a natural-integer"
returned: "stream-drop: bad `count' argument type - not a non-negative-integer"

(stream-ref natural-numbers-stream 3.5)
  --> Failed!
expected: "stream-ref: bad `index' argument type - not a natural-integer"
returned: "stream-ref: bad `index' argument type - not a non-negative-integer"

(stream-ref natural-numbers-stream -3)
  --> Failed!
expected: "stream-ref: bad `index' argument type - not a natural-integer"
returned: "stream-ref: bad `index' argument type - not a non-negative-integer"

(stream-take "four" strm123)
  --> Failed!
expected: "stream-take: bad `count' argument type - not a natural-integer"
returned: "stream-take: bad `count' argument type - not a non-negative-integer"

(stream-take -4 strm123)
  --> Failed!
expected: "stream-take: bad `count' argument type - not a natural-integer"
returned: "stream-take: bad `count' argument type - not a non-negative-integer"
0.02s CPU time, 116958/3240 mutations (total/tracked), 0/230 GCs (major/minor), maximum live heap: 3.3 MiB

Times3 Test - Please wait. No output means "passed".
3.447s CPU time, 0.229s GC time (major), 33507760/3151734 mutations (total/tracked), 47/37010 GCs (major/minor), maximum live heap: 3.32 MiB

*** csc srfi-41-test -inline-global -inline -local -specialize -strict-types -optimize-leaf-routines -clustering -lfa2 -no-trace -no-lambda-info -unsafe ***

Unit Test - Please wait. No output means "passed".

(stream->list "four" strm123)
  --> Failed!
expected: "stream->list: bad `count' argument type - not a natural-integer"
returned: "stream->list: bad `count' argument type - not a non-negative-integer"

(stream->list -1 strm123)
  --> Failed!
expected: "stream->list: bad `count' argument type - not a natural-integer"
returned: "stream->list: bad `count' argument type - not a non-negative-integer"

(stream-drop "four" strm123)
  --> Failed!
expected: "stream-drop: bad `count' argument type - not a natural-integer"
returned: "stream-drop: bad `count' argument type - not a non-negative-integer"

(stream-drop -1 strm123)
  --> Failed!
expected: "stream-drop: bad `count' argument type - not a natural-integer"
returned: "stream-drop: bad `count' argument type - not a non-negative-integer"

(stream-ref natural-numbers-stream 3.5)
  --> Failed!
expected: "stream-ref: bad `index' argument type - not a natural-integer"
returned: "stream-ref: bad `index' argument type - not a non-negative-integer"

(stream-ref natural-numbers-stream -3)
  --> Failed!
expected: "stream-ref: bad `index' argument type - not a natural-integer"
returned: "stream-ref: bad `index' argument type - not a non-negative-integer"

(stream-take "four" strm123)
  --> Failed!
expected: "stream-take: bad `count' argument type - not a natural-integer"
returned: "stream-take: bad `count' argument type - not a non-negative-integer"

(stream-take -4 strm123)
  --> Failed!
expected: "stream-take: bad `count' argument type - not a natural-integer"
returned: "stream-take: bad `count' argument type - not a non-negative-integer"
0.035s CPU time, 0.003s GC time (major), 104928/2809 mutations (total/tracked), 1/215 GCs (major/minor), maximum live heap: 636.62 KiB

Times3 Test - Please wait. No output means "passed".
2.96s CPU time, 0.064s GC time (major), 33000019/3060531 mutations (total/tracked), 69/32779 GCs (major/minor), maximum live heap: 637.32 KiB