Test output for foof-loop [ok]

Testing time: 14s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
count-matching-items ................................................. [ PASS]
find-matching-item ................................................... [ PASS]
map .................................................................. [ PASS]
write-list-newline ................................................... [ PASS]
partition ............................................................ [ PASS]
reverse! ............................................................. [ PASS]
reverse-map! ......................................................... [ PASS]
flatten-begins ....................................................... [ PASS]
list-tabulate ........................................................ [ PASS]
even-integers to N ................................................... [ PASS]
unsafe-length ........................................................ [ PASS]
map-with-listing ..................................................... [ PASS]
filter ............................................................... [ PASS]
filter-map ........................................................... [ FAIL]
    expected (1 9 49) but got ()
    (filter-map (lambda (x) (and (number? x) (* x x))) '(a 1 b 3 c 7))
listing-into! ........................................................ [ PASS]
read-non-empty-lines ................................................. [ PASS]
loop name ............................................................ [ PASS]
alternate `with' like named-let ...................................... [ PASS]
alternate `with' like `do' ........................................... [ PASS]
pairs of lists ....................................................... [ FAIL]
    expected "(a a)\n(b b)\n(c c)\n" but got "(a p)\n(b q)\n(c r)\n"
    (with-output-to-string
      (lambda ()
        (loop ((for a (in-list '(a b c))) (for b (in-list '(p q r))))
              (write (list a b))
              (newline))))
list plus iterator ................................................... [ PASS]
pair-fold ............................................................ [ PASS]
transpose-matrix ..................................................... [ PASS]
every? ............................................................... [ PASS]
any-integer? ......................................................... [ PASS]
any-< ................................................................ [ PASS]
fold ................................................................. [ PASS]
pairs of vectors ..................................................... [ PASS]
vector-index ......................................................... [ PASS]
string-copy! ......................................................... [ PASS]
sample squared-plus-ones from vector ................................. [ PASS]
read-line ............................................................ [ PASS]
read-all ............................................................. [ PASS]
read-lines-from-file ................................................. [ PASS]
iota ................................................................. [ PASS]
sieve ................................................................ [ FAIL]
    expected #f but got (2 3)
    (sieve 5)
vector-quick-sort! ................................................... [ERROR]
    
Error: unbound variable: select-pivot
    (vector-quick-sort! < (vector 3 2 1) 0 2)
list-tabulate with appending ......................................... [ PASS]
take ................................................................. [ PASS]
append-reverse ....................................................... [ PASS]
unzip5 ............................................................... [ERROR]
    
Error: (caddr) bad argument type: ()
    (receive x (unzip5 '((1 one) (2 two) (3 three) (4 four) (5 five))) x)
concatenate .......................................................... [ FAIL]
    expected (1 2 3 4) but got #<procedure (list . lst353)>
    (concatenate '((1 2) (3 4)))
count ................................................................ [ PASS]