Test output for ck-macros [fail]

Testing time: 3s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing ck-macros ---------------------------------------------------------

    -- testing quasiquote ----------------------------------------------------
    (ck () `(+ 1 2)) ................................................. [ PASS]
    (ck () ``(+ 1 2)) ................................................ [ PASS]
    (ck () (c-quasiquote '`(1 2 3))) ................................. [ PASS]
    (ck () (c-quasiquote (c-quasiquote ''(1 2 3)))) .................. [ PASS]
    (ck () `1) ....................................................... [ PASS]
    (ck () `,'1) ..................................................... [ PASS]
    (ck () (c-quote `(,'1 ,(c-list '2 '3) 4))) ....................... [ PASS]
    (ck () (c-quote `(,'1 ,@(c-list '2 '3) 4))) ...................... [ PASS]
    (ck () (c-quote `#((unquote (quote 1)) (unquote (c-list (quote ...  [ PASS]
    (ck () (c-quote `#((unquote (quote 1)) (unquote-splicing (c-lis...  [ PASS]
    (ck () (c-quote `(define (foo) (bar (baz ,@(c-list '1 '2)))))) ... [ PASS]
    11 tests completed in 1/500 seconds.
    11 out of 11 (100%) tests passed.
    -- done testing quasiquote -----------------------------------------------


    -- testing c-quote -------------------------------------------------------
    (ck () (c-quote (c-list '+ '1 '2 '3))) ........................... [ PASS]
    (ck () (c-list '+ '1 '2 '3)) ..................................... [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-quote --------------------------------------------------


    -- testing c-eval --------------------------------------------------------
    (ck () (c-quote (c-eval '(c-list)))) ............................. [ PASS]
    (ck () (c-quote (c-eval '(c-cons 'a 'b)))) ....................... [ PASS]
    (ck () (c-quote (c-eval '(c-or '#f 'a '#f)))) .................... [ PASS]
    (ck () (c-quote (c-eval '(c-eval '(c-eval '(c-identity 'a)))))) .. [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-eval ---------------------------------------------------


    -- testing c-call --------------------------------------------------------
    (ck () (c-quote (c-call '(c-list)))) ............................. [ PASS]
    (ck () (c-quote (c-call '(c-cons) 'a 'b))) ....................... [ PASS]
    (ck () (c-quote (c-call '(c-or) '#f 'a '#f))) .................... [ PASS]
    (ck () (c-quote (c-call '(c-call '(c-call '(c-identity 'a)))))) .. [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-call ---------------------------------------------------


    -- testing c-apply -------------------------------------------------------
    (ck () (c-quote (c-apply '(c-list) '()))) ........................ [ PASS]
    (ck () (c-quote (c-apply '(c-list) '(a)))) ....................... [ PASS]
    (ck () (c-quote (c-apply '(c-list 'a) 'b '(c) '(d)))) ............ [ PASS]
    (ck () (c-apply '(c-or) (c-apply '(c-list) '#f '(1 #f)))) ........ [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-apply --------------------------------------------------


    -- testing c-compose -----------------------------------------------------
    (ck () (c-compose '() '42)) ...................................... [ PASS]
    (ck () (c-compose '((c-true)))) .................................. [ PASS]
    (ck () (c-compose '((c-car)) '(1 2 3))) .......................... [ PASS]
    (ck () (c-compose '((c-car) (c-cdr)) '(1 2 3))) .................. [ PASS]
    (ck () (c-compose '((c-car) (c-cdr) (c-cdr)) '(1 2 3))) .......... [ PASS]
    (ck () (c-quote (c-map1 '(c-compose '((c-not) (c-boolean?))) '(...  [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-compose ------------------------------------------------


    -- testing c-rcompose ----------------------------------------------------
    (ck () (c-rcompose '() '42)) ..................................... [ PASS]
    (ck () (c-rcompose '((c-true)))) ................................. [ PASS]
    (ck () (c-rcompose '((c-car)) '(1 2 3))) ......................... [ PASS]
    (ck () (c-rcompose '((c-cdr) (c-car)) '(1 2 3))) ................. [ PASS]
    (ck () (c-rcompose '((c-cdr) (c-cdr) (c-car)) '(1 2 3))) ......... [ PASS]
    (ck () (c-quote (c-map1 '(c-rcompose '((c-boolean?) (c-not))) '...  [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-rcompose -----------------------------------------------


    -- testing c-flip --------------------------------------------------------
    (ck () (c-quote (c-flip '(c-list 'a) 'b 'c))) .................... [ PASS]
    (ck () (c-quote (c-map2 '(c-flip '(c-cons)) '(1 2 3) '(a b c)))) . [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-flip ---------------------------------------------------


    -- testing c-branch ------------------------------------------------------
    (ck () (c-quote (c-branch '((c-car) (c-cdr) (c-cons 'x)) '(a b))))  [ PASS]
    (ck () (c-quote (c-branch '((c-list 'a) (c-list 'b)) '1 '2 '3))) . [ PASS]
    2 tests completed in 1/1000 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-branch -------------------------------------------------


    -- testing c-identity ----------------------------------------------------
    (ck () (c-quote (c-identity 'a))) ................................ [ PASS]
    (ck () (c-quote (c-identity (c-list)))) .......................... [ PASS]
    (ck () (c-quote (c-identity (c-list 'a)))) ....................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-identity -----------------------------------------------


    -- testing c-constantly --------------------------------------------------
    (ck () (c-constantly '1)) ........................................ [ PASS]
    (ck () (c-constantly '2 '#t)) .................................... [ PASS]
    (ck () (c-constantly '3 '#f)) .................................... [ PASS]
    (ck () (c-constantly '42 '1 '2 '3)) .............................. [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-constantly ---------------------------------------------


    -- testing c-make-rules --------------------------------------------------
    (ck () (c-quote (%matcher1 '1))) ................................. [ PASS]
    (ck () (c-quote (%matcher1 '2))) ................................. [ PASS]
    (ck () (c-quote (%matcher1 '3))) ................................. [ PASS]
    (ck () (%matcher2 'a)) ........................................... [ PASS]
    (ck () (%matcher2 'b)) ........................................... [ PASS]
    (ck () (%matcher2 'c)) ........................................... [ PASS]
    (ck () (c-quote (%matcher3 '#(42)))) ............................. [ PASS]
    (ck () (c-quote (%matcher3 '#(13 42)))) .......................... [ PASS]
    (ck () (c-quote (%matcher3 '1))) ................................. [ PASS]
    (ck () (c-quote (%matcher3 '(1 2 3)))) ........................... [ PASS]
    (ck () (c-quote (%flip-flop 'flip '1 '2))) ....................... [ PASS]
    (ck () (c-quote (%flip-flop 'flop '1 '2))) ....................... [ PASS]
    (ck () (c-quote (%catchall))) .................................... [ PASS]
    (ck () (c-quote (%catchall '1 '2 '3))) ........................... [ PASS]
    (ck () (c-quote (%dots '1))) ..................................... [ PASS]
    (ck () (c-quote (%dots '1 '2 '3 '4))) ............................ [ PASS]
    16 tests completed in 1/1000 seconds.
    16 out of 16 (100%) tests passed.
    -- done testing c-make-rules ---------------------------------------------


    -- testing c-make-next ---------------------------------------------------
    (ck () (%c-next-square '0)) ...................................... [ PASS]
    (ck () (%c-next-square '16)) ..................................... [ PASS]
    (ck () (%c-next-square '49)) ..................................... [ PASS]
    (ck () (%c-next-square '64)) ..................................... [ PASS]
    (ck () (%c-next-square '100)) .................................... [ PASS]
    (ck () (%c-next-letter '#\a)) .................................... [ PASS]
    (ck () (%c-next-letter '#\c)) .................................... [ PASS]
    (ck () (%c-next-letter '#\d)) .................................... [ PASS]
    (ck () (%c-next-letter '#\z)) .................................... [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing c-make-next ----------------------------------------------


    -- testing c-not ---------------------------------------------------------
    (ck () (c-not '#f)) .............................................. [ PASS]
    (ck () (c-not '#t)) .............................................. [ PASS]
    (ck () (c-not (c-not '#t))) ...................................... [ PASS]
    (ck () (c-not 'x)) ............................................... [ PASS]
    (ck () (c-not (c-list 'x))) ...................................... [ PASS]
    (ck () (c-not (c-list))) ......................................... [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-not ----------------------------------------------------


    -- testing c-true --------------------------------------------------------
    (ck () (c-true)) ................................................. [ PASS]
    (ck () (c-true '#t)) ............................................. [ PASS]
    (ck () (c-true '#f)) ............................................. [ PASS]
    (ck () (c-true '1 '2 '3)) ........................................ [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-true ---------------------------------------------------


    -- testing c-false -------------------------------------------------------
    (ck () (c-false)) ................................................ [ PASS]
    (ck () (c-false '#t)) ............................................ [ PASS]
    (ck () (c-false '#f)) ............................................ [ PASS]
    (ck () (c-false '1 '2 '3)) ....................................... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-false --------------------------------------------------


    -- testing c-if ----------------------------------------------------------
    (ck () (c-quote (c-if '#f 'yay 'boo))) ........................... [ PASS]
    (ck () (c-quote (c-if '#t 'yay 'boo))) ........................... [ PASS]
    (ck () (c-quote (c-if 'x 'yay 'boo))) ............................ [ PASS]
    (ck () (c-quote (c-if (c-if '#f '#t '#f) (c-list 'yay) (c-list ...  [ PASS]
    (ck () (c-quote (c-if (c-if '#t '#t '#f) (c-list 'yay) (c-list ...  [ PASS]
    (ck () (c-quote (c-if (c-if 'x '#t '#f) (c-list 'yay) (c-list '...  [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-if -----------------------------------------------------


    -- testing c-if* ---------------------------------------------------------
    (ck () (c-quote (c-if* '#f ''yay ''boo))) ........................ [ PASS]
    (ck () (c-quote (c-if* '#t ''yay ''boo))) ........................ [ PASS]
    (ck () (c-quote (c-if* 'x ''yay ''boo))) ......................... [ PASS]
    (ck () (c-quote (c-if* (c-if* '#f ''#t ''#f) '(c-list 'yay) '(c...  [ PASS]
    (ck () (c-quote (c-if* (c-if* '#t ''#t ''#f) '(c-list 'yay) '(c...  [ PASS]
    (ck () (c-quote (c-if* (c-if* 'x ''#t ''#f) '(c-list 'yay) '(c-...  [ PASS]
    (ck () (c-quote (c-if* '#t '(c-list 'yay) '(c-foobar)))) ......... [ PASS]
    (ck () (c-quote (c-if* '#f '(c-foobar) '(c-list 'boo)))) ......... [ PASS]
    8 tests completed in 1/1000 seconds.
    8 out of 8 (100%) tests passed.
    -- done testing c-if* ----------------------------------------------------


    -- testing c-or ----------------------------------------------------------
    (ck () (c-quote (c-or))) ......................................... [ PASS]
    (ck () (c-quote (c-or '#f))) ..................................... [ PASS]
    (ck () (c-quote (c-or 'a))) ...................................... [ PASS]
    (ck () (c-quote (c-or '#f (c-not '#t) (c-not (c-list 'a))))) ..... [ PASS]
    (ck () (c-quote (c-or '#f (c-not '#t) (c-list 'a)))) ............. [ PASS]
    5 tests completed in 0 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-or -----------------------------------------------------


    -- testing c-or* ---------------------------------------------------------
    (ck () (c-quote (c-or*))) ........................................ [ PASS]
    (ck () (c-quote (c-or* ''#f))) ................................... [ PASS]
    (ck () (c-quote (c-or* ''a))) .................................... [ PASS]
    (ck () (c-quote (c-or* ''#f '(c-not '#t) '(c-not (c-list 'a))))) . [ PASS]
    (ck () (c-quote (c-or* ''#f '(c-not '#t) '(c-list 'a)))) ......... [ PASS]
    (ck () (c-quote (c-or* ''a '(c-foobar)))) ........................ [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-or* ----------------------------------------------------


    -- testing c-and ---------------------------------------------------------
    (ck () (c-quote (c-and))) ........................................ [ PASS]
    (ck () (c-quote (c-and '#f))) .................................... [ PASS]
    (ck () (c-quote (c-and 'a))) ..................................... [ PASS]
    (ck () (c-quote (c-and 'a 'b))) .................................. [ PASS]
    (ck () (c-quote (c-and 'a (c-not '#t)))) ......................... [ PASS]
    (ck () (c-quote (c-and '#t (c-not '#t) (c-not (c-list 'a))))) .... [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-and ----------------------------------------------------


    -- testing c-and* --------------------------------------------------------
    (ck () (c-quote (c-and*))) ....................................... [ PASS]
    (ck () (c-quote (c-and* ''#f))) .................................. [ PASS]
    (ck () (c-quote (c-and* ''a))) ................................... [ PASS]
    (ck () (c-quote (c-and* ''a ''b))) ............................... [ PASS]
    (ck () (c-quote (c-and* ''a '(c-not '#t)))) ...................... [ PASS]
    (ck () (c-quote (c-and* ''#t '(c-not '#t) '(c-not (c-list 'a)))))  [ PASS]
    (ck () (c-quote (c-and* ''#f '(c-foobar)))) ...................... [ PASS]
    7 tests completed in 1/1000 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-and* ---------------------------------------------------


    -- testing c-null? -------------------------------------------------------
    (ck () (c-null? '())) ............................................ [ PASS]
    (ck () (c-null? (c-list))) ....................................... [ PASS]
    (ck () (c-null? '(x))) ........................................... [ PASS]
    (ck () (c-null? '(()))) .......................................... [ PASS]
    (ck () (c-null? '#t)) ............................................ [ PASS]
    (ck () (c-null? '#f)) ............................................ [ PASS]
    (ck () (c-null? 'x)) ............................................. [ PASS]
    7 tests completed in 0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-null? --------------------------------------------------


    -- testing c-pair? -------------------------------------------------------
    (ck () (c-pair? '(x))) ........................................... [ PASS]
    (ck () (c-pair? '(x y z))) ....................................... [ PASS]
    (ck () (c-pair? (c-cons 'x 'y))) ................................. [ PASS]
    (ck () (c-pair? '(x y . z))) ..................................... [ PASS]
    (ck () (c-pair? '())) ............................................ [ PASS]
    (ck () (c-pair? (c-list))) ....................................... [ PASS]
    (ck () (c-pair? '#t)) ............................................ [ PASS]
    (ck () (c-pair? '#f)) ............................................ [ PASS]
    (ck () (c-pair? 'x)) ............................................. [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing c-pair? --------------------------------------------------


    -- testing c-not-pair? ---------------------------------------------------
    (ck () (c-not-pair? '(x))) ....................................... [ PASS]
    (ck () (c-not-pair? '(x y z))) ................................... [ PASS]
    (ck () (c-not-pair? (c-cons 'x 'y))) ............................. [ PASS]
    (ck () (c-not-pair? '(x y . z))) ................................. [ PASS]
    (ck () (c-not-pair? '())) ........................................ [ PASS]
    (ck () (c-not-pair? (c-list))) ................................... [ PASS]
    (ck () (c-not-pair? '#t)) ........................................ [ PASS]
    (ck () (c-not-pair? '#f)) ........................................ [ PASS]
    (ck () (c-not-pair? 'x)) ......................................... [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing c-not-pair? ----------------------------------------------


    -- testing c-vector? -----------------------------------------------------
    (ck () (c-vector? '#())) ......................................... [ PASS]
    (ck () (c-vector? '#(a))) ........................................ [ PASS]
    (ck () (c-vector? '#(a b))) ...................................... [ PASS]
    (ck () (c-vector? '())) .......................................... [ PASS]
    (ck () (c-vector? '#t)) .......................................... [ PASS]
    (ck () (c-vector? '#f)) .......................................... [ PASS]
    (ck () (c-vector? 'x)) ........................................... [ PASS]
    7 tests completed in 0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-vector? ------------------------------------------------


    -- testing c-boolean? ----------------------------------------------------
    (ck () (c-boolean? '#t)) ......................................... [ PASS]
    (ck () (c-boolean? '#f)) ......................................... [ PASS]
    (ck () (c-boolean? (c-not '#t))) ................................. [ PASS]
    (ck () (c-boolean? (c-not 'a))) .................................. [ PASS]
    (ck () (c-boolean? 'a)) .......................................... [ PASS]
    (ck () (c-boolean? '#:a)) ........................................ [ PASS]
    (ck () (c-boolean? '1)) .......................................... [ PASS]
    (ck () (c-boolean? '"foo")) ...................................... [ PASS]
    (ck () (c-boolean? '(#t))) ....................................... [ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing c-boolean? -----------------------------------------------


    -- testing c-sym-eq? -----------------------------------------------------
    (ck () (c-sym-eq? 'a 'a)) ........................................ [ PASS]
    (ck () (c-sym-eq? 'a 'x)) ........................................ [ PASS]
    (ck () (c-sym-eq? 'a '1)) ........................................ [ PASS]
    (ck () (c-sym-eq? 'a '"foo")) .................................... [ PASS]
    (ck () (c-sym-eq? 'a '#\x)) ...................................... [ PASS]
    5 tests completed in 0 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-sym-eq? ------------------------------------------------


    -- testing c-sym-equal? --------------------------------------------------
    (ck () (c-sym-equal? '() '())) ................................... [ PASS]
    (ck () (c-sym-equal? '() '(a))) .................................. [ PASS]
    (ck () (c-sym-equal? '(a) '())) .................................. [ PASS]
    (ck () (c-sym-equal? '(a) '(a))) ................................. [ PASS]
    (ck () (c-sym-equal? '(a) '(x))) ................................. [ PASS]
    (ck () (c-sym-equal? '(a b) '(a b))) ............................. [ PASS]
    (ck () (c-sym-equal? '(a b) '(x b))) ............................. [ PASS]
    (ck () (c-sym-equal? '(a b) '(a x))) ............................. [ PASS]
    (ck () (c-sym-equal? '(a (b)) '(a (b)))) ......................... [ PASS]
    (ck () (c-sym-equal? '(a (b)) '(a (x)))) ......................... [ PASS]
    (ck () (c-sym-equal? '(a . b) '(a . b))) ......................... [ PASS]
    (ck () (c-sym-equal? '(a . b) '(a . x))) ......................... [ PASS]
    (ck () (c-sym-equal? '#() '#())) ................................. [ PASS]
    (ck () (c-sym-equal? '#() '#(a))) ................................ [ PASS]
    (ck () (c-sym-equal? '#(a) '#())) ................................ [ PASS]
    (ck () (c-sym-equal? '#(a) '#(a))) ............................... [ PASS]
    (ck () (c-sym-equal? '#(a) '#(x))) ............................... [ PASS]
    (ck () (c-sym-equal? '#(a b) '#(a b))) ........................... [ PASS]
    (ck () (c-sym-equal? '#(a b) '#(x b))) ........................... [ PASS]
    (ck () (c-sym-equal? '#(a b) '#(a x))) ........................... [ PASS]
    (ck () (c-sym-equal? '#(a #(b)) '#(a #(b)))) ..................... [ PASS]
    (ck () (c-sym-equal? '#(a #(b)) '#(a #(x)))) ..................... [ PASS]
    (ck () (c-sym-equal? '(a (b . #(c))) '(a (b . #(c))))) ........... [ PASS]
    (ck () (c-sym-equal? '(a (b . #(c))) '(a (b . #(x))))) ........... [ PASS]
    (ck () (c-sym-equal? '(a (b . #(c))) '(a (b c)))) ................ [ PASS]
    (ck () (c-sym-equal? 'a 'a)) ..................................... [ PASS]
    (ck () (c-sym-equal? 'a 'x)) ..................................... [ PASS]
    27 tests completed in 1/500 seconds.
    27 out of 27 (100%) tests passed.
    -- done testing c-sym-equal? ---------------------------------------------


    -- testing c-cons --------------------------------------------------------
    (ck () (c-quote (c-cons 'a 'b))) ................................. [ PASS]
    (ck () (c-cons '+ '(1 2))) ....................................... [ PASS]
    (ck () (c-cons '+ (c-cons '1 (c-cons '2 '())))) .................. [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-cons ---------------------------------------------------


    -- testing c-cons* -------------------------------------------------------
    (ck () (c-quote (c-cons* 'a 'b))) ................................ [ PASS]
    (ck () (c-quote (c-cons* 'a 'b 'c 'd))) .......................... [ PASS]
    (ck () (c-quote (c-cons* 'a 'b 'c '(d)))) ........................ [ PASS]
    (ck () (c-cons* '+ '1 '(2))) ..................................... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-cons* --------------------------------------------------


    -- testing c-xcons -------------------------------------------------------
    (ck () (c-quote (c-xcons 'a 'b))) ................................ [ PASS]
    (ck () (c-xcons '(1 2) '+)) ...................................... [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-xcons --------------------------------------------------


    -- testing c-list --------------------------------------------------------
    (ck () (c-quote (c-list))) ....................................... [ PASS]
    (ck () (c-quote (c-list '1))) .................................... [ PASS]
    (ck () (c-quote (c-list '1 (c-list '2 (c-list '3 '4 '5))))) ...... [ PASS]
    (ck () (c-quote (c-list 'define (c-list 'foo 'x) (c-list '+ 'x ...  [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-list ---------------------------------------------------


    -- testing c-car ---------------------------------------------------------
    (ck () (c-quote (c-car '(a)))) ................................... [ PASS]
    (ck () (c-quote (c-car '(a b c)))) ............................... [ PASS]
    (ck () (c-quote (c-car (c-list 'a 'b 'c)))) ...................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-car ----------------------------------------------------


    -- testing c-cdr ---------------------------------------------------------
    (ck () (c-quote (c-cdr '(a)))) ................................... [ PASS]
    (ck () (c-quote (c-cdr '(a b c)))) ............................... [ PASS]
    (ck () (c-quote (c-cdr (c-list 'a 'b 'c)))) ...................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-cdr ----------------------------------------------------


    -- testing c-first ... c-tenth -------------------------------------------
    (ck () (c-quote (c-first (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    (ck () (c-quote (c-second (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '...  [ PASS]
    (ck () (c-quote (c-third (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    (ck () (c-quote (c-fourth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '...  [ PASS]
    (ck () (c-quote (c-fifth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    (ck () (c-quote (c-sixth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    (ck () (c-quote (c-seventh (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 ...  [ PASS]
    (ck () (c-quote (c-eighth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '...  [ PASS]
    (ck () (c-quote (c-ninth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    (ck () (c-quote (c-tenth (c-list '2 '4 '6 '8 '10 '1 '3 '5 '7 '9...  [ PASS]
    10 tests completed in 1/1000 seconds.
    10 out of 10 (100%) tests passed.
    -- done testing c-first ... c-tenth --------------------------------------


    -- testing c-last --------------------------------------------------------
    (ck () (c-quote (c-last (c-list 'a)))) ........................... [ PASS]
    (ck () (c-quote (c-last (c-list 'a 'b 'c 'd 'e)))) ............... [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-last ---------------------------------------------------


    -- testing c-last-pair ---------------------------------------------------
    (ck () (c-quote (c-last-pair (c-list 'a)))) ...................... [ PASS]
    (ck () (c-quote (c-last-pair (c-list 'a 'b 'c)))) ................ [ PASS]
    (ck () (c-quote (c-last-pair (c-cons 'a (c-cons 'b 'c))))) ....... [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-last-pair ----------------------------------------------


    -- testing c-drop1 ... c-drop5 -------------------------------------------
    (ck () (c-quote (c-drop1 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-drop2 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-drop3 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-drop4 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-drop5 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    5 tests completed in 0 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-drop1 ... c-drop5 --------------------------------------


    -- testing c-take1 ... c-take5 -------------------------------------------
    (ck () (c-quote (c-take1 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-take2 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-take3 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-take4 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    (ck () (c-quote (c-take5 (c-list '2 '4 '6 '8 '1 '3 '5 '7)))) ..... [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-take1 ... c-take5 --------------------------------------


    -- testing c-reverse -----------------------------------------------------
    (ck () (c-quote (c-reverse '()))) ................................ [ PASS]
    (ck () (c-quote (c-reverse '(1)))) ............................... [ PASS]
    (ck () (c-quote (c-reverse '(1 2 3)))) ........................... [ PASS]
    (ck () (c-quote (c-reverse (c-cons '1 (c-list '2 '3))))) ......... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-reverse ------------------------------------------------


    -- testing c-prefix ------------------------------------------------------
    (ck () (c-quote (c-prefix '() '1 '2 '3 '4 '5))) .................. [ PASS]
    (ck () (c-quote (c-prefix '(1) '2 '3 '4 '5))) .................... [ PASS]
    (ck () (c-quote (c-prefix '(1 2 3) '4 '5))) ...................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-prefix -------------------------------------------------


    -- testing c-suffix ------------------------------------------------------
    (ck () (c-quote (c-suffix '() '1 '2 '3 '4 '5))) .................. [ PASS]
    (ck () (c-quote (c-suffix '(1) '2 '3 '4 '5))) .................... [ PASS]
    (ck () (c-quote (c-suffix '(1 2 3) '4 '5))) ...................... [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-suffix -------------------------------------------------


    -- testing c-append ------------------------------------------------------
    (ck () (c-quote (c-append))) ..................................... [ PASS]
    (ck () (c-quote (c-append '(1 2 3)))) ............................ [ PASS]
    (ck () (c-quote (c-append '() '()))) ............................. [ PASS]
    (ck () (c-quote (c-append '() '(1 2 3 4 5)))) .................... [ PASS]
    (ck () (c-quote (c-append '(1) '(2 3 4 5)))) ..................... [ PASS]
    (ck () (c-quote (c-append '(1 2 3) '(4 5)))) ..................... [ PASS]
    (ck () (c-quote (c-append '(1) '(2) '(3) '(4) '(5)))) ............ [ PASS]
    7 tests completed in 0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-append -------------------------------------------------


    -- testing c-append-map1 -------------------------------------------------
    (ck () (c-quote (c-append-map1 '(c-cons '10) '((1) (2) (3) (4)))))  [ PASS]
    1 test completed in 0 seconds.
    1 out of 1 (100%) test passed.
    -- done testing c-append-map1 --------------------------------------------


    -- testing c-map1 --------------------------------------------------------
    (ck () (c-quote (c-map1 '(c-cons '10) '((1) (2) (3) (4))))) ...... [ PASS]
    1 test completed in 1/1000 seconds.
    1 out of 1 (100%) test passed.
    -- done testing c-map1 ---------------------------------------------------


    -- testing c-map2 --------------------------------------------------------
    (ck () (c-quote (c-map2 '(c-list) '(a1 b1 c1) '(a2 b2 c2)))) ..... [ PASS]
    (ck () (c-quote (c-map2 '(c-list) '(a1 b1) '(a2 b2 c2)))) ........ [ PASS]
    (ck () (c-quote (c-map2 '(c-list) '(a1 b1 c1) '(a2 b2)))) ........ [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-map2 ---------------------------------------------------


    -- testing c-map3 --------------------------------------------------------
    (ck () (c-quote (c-map3 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map3 '(c-list) '(a1 b1) '(a2 b2 c2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map3 '(c-list) '(a1 b1 c1) '(a2 b2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map3 '(c-list) '(a1 b1 c1) '(a2 b2 c3) '(a3 ...  [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-map3 ---------------------------------------------------


    -- testing c-map4 --------------------------------------------------------
    (ck () (c-quote (c-map4 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map4 '(c-list) '(a1 b1) '(a2 b2 c2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map4 '(c-list) '(a1 b1 c1) '(a2 b2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map4 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map4 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-map4 ---------------------------------------------------


    -- testing c-map5 --------------------------------------------------------
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1) '(a2 b2 c2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1 c1) '(a2 b2) '(a3 b3 ...  [ PASS]
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    (ck () (c-quote (c-map5 '(c-list) '(a1 b1 c1) '(a2 b2 c2) '(a3 ...  [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-map5 ---------------------------------------------------


    -- testing c-fold1 -------------------------------------------------------
    (ck () (c-quote (c-fold1 '(c-cons) '() '(a b c d)))) ............. [ PASS]
    (ck () (c-quote (c-fold1 '(c-cons) '() (c-list 'a 'b 'c 'd)))) ... [ PASS]
    (ck () (c-quote (c-fold1 '(c-append) '(x y) (c-list (c-list 'a ...  [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-fold1 --------------------------------------------------


    -- testing c-filter ------------------------------------------------------
    (ck () (c-quote (c-filter '(c-boolean?) '(a #t b #f #t c)))) ..... [ PASS]
    (ck () (c-quote (c-filter '(c-boolean?) (c-list 'a '#t 'b '#f '...  [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-filter -------------------------------------------------


    -- testing c-remove ------------------------------------------------------
    (ck () (c-quote (c-remove '(c-boolean?) '(a #t b #f #t c)))) ..... [ PASS]
    (ck () (c-quote (c-remove '(c-boolean?) (c-list 'a '#t 'b '#f '...  [ PASS]
    2 tests completed in 1/1000 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-remove -------------------------------------------------


    -- testing c-find --------------------------------------------------------
    (ck () (c-quote (c-find '(c-pair?) (c-list '#t 'a '1)))) ......... [ PASS]
    (ck () (c-quote (c-find '(c-pair?) (c-list '#t 'a (c-cons 'a 'b...  [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-find ---------------------------------------------------


    -- testing c-find-tail ---------------------------------------------------
    (ck () (c-quote (c-find-tail '(c-pair?) (c-list '#t 'a '1)))) .... [ PASS]
    (ck () (c-quote (c-find-tail '(c-pair?) (c-list '#t 'a (c-cons ...  [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-find-tail ----------------------------------------------


    -- testing c-member ------------------------------------------------------
    (ck () (c-quote (c-member 'a '()))) .............................. [ PASS]
    (ck () (c-quote (c-member 'b (c-list 'a 'b 'c)))) ................ [ PASS]
    (ck () (c-quote (c-member 'c '(a b c)))) ......................... [ PASS]
    (ck () (c-quote (c-member '(b (c)) '(a (b (z)) (b (c)) d)))) ..... [ PASS]
    (ck () (c-quote (c-member '(b (c)) (c-list 'a '(b (z)) '(b (c))...  [ PASS]
    (ck () (c-quote (c-member '(a b c) '((a) (x y z) (a b)) '(c-u=))))  [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-member -------------------------------------------------


    -- testing c-any1 --------------------------------------------------------
    (ck () (c-any1 '(c-pair?) '())) .................................. [ PASS]
    (ck () (c-any1 '(c-pair?) (c-list '1 '2 '3))) .................... [ PASS]
    (ck () (c-any1 '(c-pair?) (c-list '1 (c-cons 'a 'b) '2))) ........ [ PASS]
    (ck () (c-quote (c-any1 '(c-cons 'a) (c-list '1 '2 '3)))) ........ [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-any1 ---------------------------------------------------


    -- testing c-every1 ------------------------------------------------------
    (ck () (c-every1 '(c-pair?) '())) ................................ [ PASS]
    (ck () (c-every1 '(c-pair?) (c-list (c-cons 'a 'b) (c-cons 'c '...  [ PASS]
    (ck () (c-every1 '(c-pair?) (c-list (c-cons 'a 'b)))) ............ [ PASS]
    (ck () (c-every1 '(c-pair?) (c-list '1 (c-cons 'a 'b) '2))) ...... [ PASS]
    (ck () (c-every1 '(c-pair?) (c-list '1 '2 '3))) .................. [ PASS]
    (ck () (c-quote (c-every1 '(c-cons 'a) (c-list '1 '2 '3)))) ...... [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-every1 -------------------------------------------------


    -- testing c-assoc -------------------------------------------------------
    (ck () (c-quote (c-assoc 'a '()))) ............................... [ PASS]
    (ck () (c-quote (c-assoc 'a '((x . 1) (y . 2))))) ................ [ PASS]
    (ck () (c-quote (c-assoc 'x '((x . 1) (y . 2))))) ................ [ PASS]
    (ck () (c-quote (c-assoc '(x) '(((x) . 1) ((y) . 2))))) .......... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-assoc --------------------------------------------------


    -- testing c-alist-delete ------------------------------------------------
    (ck () (c-quote (c-alist-delete 'a '()))) ........................ [ PASS]
    (ck () (c-quote (c-alist-delete 'the '((the cat meows) (the dog...  [ PASS]
    (ck () (c-quote (c-alist-delete 'a '((a . b) (c . a) (a . z))))) . [ PASS]
    (ck () (c-quote (c-alist-delete '(a) '(((a) . b) (b a) (a . z)))))  [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-alist-delete -------------------------------------------


    -- testing c-vector ------------------------------------------------------
    (ck () (c-quote (c-vector))) ..................................... [ PASS]
    (ck () (c-quote (c-vector '1))) .................................. [ PASS]
    (ck () (c-quote (c-vector '1 (c-vector '2 (c-vector '3 '4 '5)))))  [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector -------------------------------------------------


    -- testing c-list->vector ------------------------------------------------
    (ck () (c-quote (c-list->vector '()))) ........................... [ PASS]
    (ck () (c-quote (c-list->vector '(1)))) .......................... [ PASS]
    (ck () (c-quote (c-list->vector (c-list '1 (c-list '2 '3))))) .... [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-list->vector -------------------------------------------


    -- testing c-vector->list ------------------------------------------------
    (ck () (c-quote (c-vector->list '#()))) .......................... [ PASS]
    (ck () (c-quote (c-vector->list '#(1)))) ......................... [ PASS]
    (ck () (c-quote (c-vector->list (c-vector '1 (c-vector '2 '3)))))  [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector->list -------------------------------------------


    -- testing c-vector-reverse ----------------------------------------------
    (ck () (c-quote (c-vector-reverse '#()))) ........................ [ PASS]
    (ck () (c-quote (c-vector-reverse '#(1)))) ....................... [ PASS]
    (ck () (c-quote (c-vector-reverse (c-vector '1 '2 '3)))) ......... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector-reverse -----------------------------------------


    -- testing c-vector-prefix -----------------------------------------------
    (ck () (c-quote (c-vector-prefix '#() '1 '2 '3 '4 '5))) .......... [ PASS]
    (ck () (c-quote (c-vector-prefix '#(1) '2 '3 '4 '5))) ............ [ PASS]
    (ck () (c-quote (c-vector-prefix '#(1 2 3) '4 '5))) .............. [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector-prefix ------------------------------------------


    -- testing c-vector-suffix -----------------------------------------------
    (ck () (c-quote (c-vector-suffix '#() '1 '2 '3 '4 '5))) .......... [ PASS]
    (ck () (c-quote (c-vector-suffix '#(1) '2 '3 '4 '5))) ............ [ PASS]
    (ck () (c-quote (c-vector-suffix '#(1 2 3) '4 '5))) .............. [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector-suffix ------------------------------------------


    -- testing c-vector-append -----------------------------------------------
    (ck () (c-quote (c-vector-append))) .............................. [ PASS]
    (ck () (c-quote (c-vector-append '#(1)))) ........................ [ PASS]
    (ck () (c-quote (c-vector-append '#() '#()))) .................... [ PASS]
    (ck () (c-quote (c-vector-append '#(1) '#()))) ................... [ PASS]
    (ck () (c-quote (c-vector-append '#() '#(1)))) ................... [ PASS]
    (ck () (c-quote (c-vector-append '#(1) '#(2)))) .................. [ PASS]
    (ck () (c-quote (c-vector-append (c-vector '1 '2) (c-vector '3 ...  [ PASS]
    (ck () (c-quote (c-vector-append '#(1) '#(2) '#(3) '#(4)))) ...... [ PASS]
    8 tests completed in 0 seconds.
    8 out of 8 (100%) tests passed.
    -- done testing c-vector-append ------------------------------------------


    -- testing c-vector-map1 -------------------------------------------------
    (ck () (c-quote (c-vector-map1 '(c-cons 'a) '#()))) .............. [ PASS]
    (ck () (c-quote (c-vector-map1 '(c-cons 'a) '#(1)))) ............. [ PASS]
    (ck () (c-quote (c-vector-map1 '(c-cons 'a) (c-vector '1 '2 '3))))  [ PASS]
    3 tests completed in 1/1000 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-vector-map1 --------------------------------------------


    -- testing c-u= ----------------------------------------------------------
    (ck () (c-u= '() '())) ........................................... [ PASS]
    (ck () (c-u= '(a) '())) .......................................... [ PASS]
    (ck () (c-u= '() '(b))) .......................................... [ PASS]
    (ck () (c-u= '(a) '(b))) ......................................... [ PASS]
    (ck () (c-u= (c-list 'a 'b) (c-list 'c 'd))) ..................... [ PASS]
    (ck () (c-u= (c-list 'a 'b) (c-list 'c 'd 'e))) .................. [ PASS]
    (ck () (c-u= (c-list 'a 'b 'c) (c-list 'd 'e))) .................. [ PASS]
    7 tests completed in 0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-u= -----------------------------------------------------


    -- testing c-u< ----------------------------------------------------------
    (ck () (c-u< '() '())) ........................................... [ PASS]
    (ck () (c-u< '(a) '())) .......................................... [ PASS]
    (ck () (c-u< '() '(b))) .......................................... [ PASS]
    (ck () (c-u< '(a) '(b))) ......................................... [ PASS]
    (ck () (c-u< (c-list 'a 'b) (c-list 'c 'd))) ..................... [ PASS]
    (ck () (c-u< (c-list 'a 'b) (c-list 'c 'd 'e))) .................. [ PASS]
    (ck () (c-u< (c-list 'a 'b 'c) (c-list 'd 'e))) .................. [ PASS]
    7 tests completed in 1/1000 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-u< -----------------------------------------------------


    -- testing c-u<= ---------------------------------------------------------
    (ck () (c-u<= '() '())) .......................................... [ PASS]
    (ck () (c-u<= '(a) '())) ......................................... [ PASS]
    (ck () (c-u<= '() '(b))) ......................................... [ PASS]
    (ck () (c-u<= '(a) '(b))) ........................................ [ PASS]
    (ck () (c-u<= (c-list 'a 'b) (c-list 'c 'd))) .................... [ PASS]
    (ck () (c-u<= (c-list 'a 'b) (c-list 'c 'd 'e))) ................. [ PASS]
    (ck () (c-u<= (c-list 'a 'b 'c) (c-list 'd 'e))) ................. [ PASS]
    7 tests completed in 1/1000 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-u<= ----------------------------------------------------


    -- testing c-u> ----------------------------------------------------------
    (ck () (c-u> '() '())) ........................................... [ PASS]
    (ck () (c-u> '(a) '())) .......................................... [ PASS]
    (ck () (c-u> '() '(b))) .......................................... [ PASS]
    (ck () (c-u> '(a) '(b))) ......................................... [ PASS]
    (ck () (c-u> (c-list 'a 'b) (c-list 'c 'd))) ..................... [ PASS]
    (ck () (c-u> (c-list 'a 'b) (c-list 'c 'd 'e))) .................. [ PASS]
    (ck () (c-u> (c-list 'a 'b 'c) (c-list 'd 'e))) .................. [ PASS]
    7 tests completed in 0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-u> -----------------------------------------------------


    -- testing c-u>= ---------------------------------------------------------
    (ck () (c-u>= '() '())) .......................................... [ PASS]
    (ck () (c-u>= '(a) '())) ......................................... [ PASS]
    (ck () (c-u>= '() '(b))) ......................................... [ PASS]
    (ck () (c-u>= '(a) '(b))) ........................................ [ PASS]
    (ck () (c-u>= (c-list 'a 'b) (c-list 'c 'd))) .................... [ PASS]
    (ck () (c-u>= (c-list 'a 'b) (c-list 'c 'd 'e))) ................. [ PASS]
    (ck () (c-u>= (c-list 'a 'b 'c) (c-list 'd 'e))) ................. [ PASS]
    7 tests completed in 1/1000 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing c-u>= ----------------------------------------------------


    -- testing c-uzero? ------------------------------------------------------
    (ck () (c-uzero? '())) ........................................... [ PASS]
    (ck () (c-uzero? '(a))) .......................................... [ PASS]
    (ck () (c-uzero? (c-cons 'a (c-list 'b)))) ....................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-uzero? -------------------------------------------------


    -- testing c-ueven? ------------------------------------------------------
    (ck () (c-ueven? '())) ........................................... [ PASS]
    (ck () (c-ueven? '(a))) .......................................... [ PASS]
    (ck () (c-ueven? '(a b))) ........................................ [ PASS]
    (ck () (c-ueven? '(a b c))) ...................................... [ PASS]
    (ck () (c-ueven? (c-cons 'a (c-list 'b)))) ....................... [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-ueven? -------------------------------------------------


    -- testing c-uodd? -------------------------------------------------------
    (ck () (c-uodd? '())) ............................................ [ PASS]
    (ck () (c-uodd? '(a))) ........................................... [ PASS]
    (ck () (c-uodd? '(a b))) ......................................... [ PASS]
    (ck () (c-uodd? '(a b c))) ....................................... [ PASS]
    (ck () (c-uodd? (c-cons 'a (c-list 'b)))) ........................ [ PASS]
    5 tests completed in 0 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing c-uodd? --------------------------------------------------


    -- testing c-u+ ----------------------------------------------------------
    (ck () (c-quote (c-u+ (c-list 'a 'b) '()))) ...................... [ PASS]
    (ck () (c-quote (c-u+ (c-list 'a 'b) (c-list 'c 'd 'e)))) ........ [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing c-u+ -----------------------------------------------------


    -- testing c-u- ----------------------------------------------------------
    (ck () (c-quote (c-u- (c-list 'a 'b 'c) '()))) ................... [ PASS]
    (ck () (c-quote (c-u- (c-list 'a 'b 'c 'd) '(x y)))) ............. [ PASS]
    (ck () (c-quote (c-u- (c-list 'a 'b) (c-list 'x 'y 'z)))) ........ [ PASS]
    (ck () (c-quote (c-u- (c-list) (c-list 'x 'y 'z)))) .............. [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-u- -----------------------------------------------------


    -- testing c-u* ----------------------------------------------------------
    (ck () (c-quote (c-u* '() '()))) ................................. [ PASS]
    (ck () (c-quote (c-u* '() '(a b)))) .............................. [ PASS]
    (ck () (c-quote (c-u* '(a b) '()))) .............................. [ PASS]
    (ck () (c-quote (c-u* '(a) '(x)))) ............................... [ PASS]
    (ck () (c-quote (c-u* '(a b) '(x y z)))) ......................... [ PASS]
    (ck () (c-quote (c-u* '(a b c) '(x y)))) ......................... [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-u* -----------------------------------------------------


    -- testing c-u/ ----------------------------------------------------------
    (ck () (c-quote (c-u/ '() '(x)))) ................................ [ PASS]
    (ck () (c-quote (c-u/ '(a) '(x)))) ............................... [ PASS]
    (ck () (c-quote (c-u/ '(a b) '(x)))) ............................. [ PASS]
    (ck () (c-quote (c-u/ '(a b c d e f g h i j k) '(x y z)))) ....... [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-u/ -----------------------------------------------------


    -- testing c-ufactorial --------------------------------------------------
    (ck () (c-quote (c-ufactorial '()))) ............................. [ PASS]
    (ck () (c-quote (c-ufactorial '(x)))) ............................ [ PASS]
    (ck () (c-quote (c-ufactorial '(a b c d)))) ...................... [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing c-ufactorial ---------------------------------------------


    -- testing c-udrop -------------------------------------------------------
    (ck () (c-quote (c-udrop (c-list 'a 'b 'c) '()))) ................ [ PASS]
    (ck () (c-quote (c-udrop (c-list 'a 'b 'c 'd) '(x y)))) .......... [ PASS]
    (ck () (c-quote (c-udrop (c-list 'a 'b) (c-list 'x 'y 'z)))) ..... [ PASS]
    (ck () (c-quote (c-udrop (c-list) (c-list 'x 'y 'z)))) ........... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-udrop --------------------------------------------------


    -- testing c-utake -------------------------------------------------------
    (ck () (c-quote (c-utake (c-list 'a 'b 'c) '()))) ................ [ PASS]
    (ck () (c-quote (c-utake (c-list 'a 'b 'c 'd) '(x y)))) .......... [ PASS]
    (ck () (c-quote (c-utake (c-list 'a 'b) (c-list 'x 'y 'z)))) ..... [ PASS]
    (ck () (c-quote (c-utake (c-list) (c-list 'x 'y 'z)))) ........... [ PASS]
    4 tests completed in 0 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing c-utake --------------------------------------------------


    -- testing c-dadd1 -------------------------------------------------------
    (ck () (c-dadd1 '0)) ............................................. [ PASS]
    (ck () (c-dadd1 '7)) ............................................. [ PASS]
    (ck () (c-dadd1 '15)) ............................................ [ PASS]
    (ck () (c-dadd1 '-1)) ............................................ [ PASS]
    (ck () (c-dadd1 '16)) ............................................ [ PASS]
    (ck () (c-dadd1 'foo)) ........................................... [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-dadd1 --------------------------------------------------


    -- testing c-dsub1 -------------------------------------------------------
    (ck () (c-dsub1 '1)) ............................................. [ PASS]
    (ck () (c-dsub1 '9)) ............................................. [ PASS]
    (ck () (c-dsub1 '16)) ............................................ [ PASS]
    (ck () (c-dsub1 '0)) ............................................. [ PASS]
    (ck () (c-dsub1 '17)) ............................................ [ PASS]
    (ck () (c-dsub1 'foo)) ........................................... [ PASS]
    6 tests completed in 1/1000 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing c-dsub1 --------------------------------------------------


    -- testing c-du ----------------------------------------------------------
    (ck () (c-quote (c-du '0))) ...................................... [ PASS]
    (ck () (c-quote (c-du '1))) ...................................... [ PASS]
    (ck () (c-quote (c-du '2))) ...................................... [ PASS]
    (ck () (c-quote (c-du '16))) ..................................... [ PASS]
    (ck () (c-quote (c-du '17))) ..................................... [ PASS]
    (ck () (c-quote (c-du '-1))) ..................................... [ PASS]
    (ck () (c-quote (c-du '0 '(%sub1)))) ............................. [ PASS]
    (ck () (c-quote (c-du '3 '(%sub1)))) ............................. [ PASS]
    (ck () (c-quote (c-du '5 '(%sub1)))) ............................. [ PASS]
    (ck () (c-quote (c-du '6 '(%sub1)))) ............................. [ PASS]
    (ck () (c-quote (c-du '-1 '(%sub1)))) ............................ [ PASS]
    11 tests completed in 1/1000 seconds.
    11 out of 11 (100%) tests passed.
    -- done testing c-du -----------------------------------------------------


    -- testing c-ud ----------------------------------------------------------
    (ck () (c-ud '())) ............................................... [ PASS]
    (ck () (c-ud '(a))) .............................................. [ PASS]
    (ck () (c-ud (c-du '16))) ........................................ [ PASS]
    (ck () (c-ud '(a b c d e f g h i j k l m n o p))) ................ [ PASS]
    (ck () (c-ud '(a b c d e f g h i j k l m n o p q))) .............. [ PASS]
    (ck () (c-ud '() '(%add1))) ...................................... [ PASS]
    (ck () (c-ud '(a) '(%add1))) ..................................... [ PASS]
    (ck () (c-ud '(a b c d) '(%add1))) ............................... [ PASS]
    (ck () (c-ud '(a b c d e) '(%add1))) ............................. 
Error: unbound variable: ck-wrapper

	Call history:

	<syntax>	  (|+58734| 1 (test-failure-count58733))
	<syntax>	  (test-failure-count58733)
	<syntax>	  (and58740 (##sys#structure? exvar58738 (##core#quote condition)) (##sys#slot exvar58738 1))
	<syntax>	  (##core#if (##sys#structure? exvar58738 (##core#quote condition)) (and58755 (##sys#slot exvar58738 1...
	<syntax>	  (##sys#structure? exvar58738 (##core#quote condition))
	<syntax>	  (##core#quote condition)
	<syntax>	  (and58755 (##sys#slot exvar58738 1))
	<syntax>	  (##sys#slot exvar58738 1)
	<syntax>	  (##core#lambda () (##sys#call-with-values (##core#lambda () (begin58726 (define-syntax %c-add (ck-wr...
	<syntax>	  (##core#begin (##sys#call-with-values (##core#lambda () (begin58726 (define-syntax %c-add (ck-wrappe...
	<syntax>	  (##sys#call-with-values (##core#lambda () (begin58726 (define-syntax %c-add (ck-wrapper +)) (define-...
	<syntax>	  (##core#lambda () (begin58726 (define-syntax %c-add (ck-wrapper +)) (define-syntax %c-sub (ck-wrappe...
	<syntax>	  (##core#begin (##core#letrec-syntax ((%c-add (ck-wrapper +)) (%c-sub (ck-wrapper -)) (%c-mul (ck-wra...
	<syntax>	  (##core#letrec-syntax ((%c-add (ck-wrapper +)) (%c-sub (ck-wrapper -)) (%c-mul (ck-wrapper *))) (tes...
	<syntax>	  (ck-wrapper +)
	<eval>	  (ck-wrapper +)	<--
[ PASS]
    9 tests completed in 1/1000 seconds.
    9 out of 9 (100%) tests passed.
    -- done testing c-ud -----------------------------------------------------