Welcome to the CHICKEN Scheme pasting service
chicken-install -test srfi-1 added by outtabwz on Sun Aug 2 20:09:27 2020
PS C:\Messages\build\chicken\scheme-projects> chicken-install -test srfi-1
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\srfi-1.egg
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\srfi-1.scm
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\srfi-1.types
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\tests\larceny.scm
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\tests\run.scm
C:\Users\od20200617\AppData\Local\Temp\temp7841.10852\tests\srfi-116.scm
6 File(s) copied
C:\Users\od20200617\AppData\Local\Temp\tempa412.10852\test-support.scm
C:\Users\od20200617\AppData\Local\Temp\tempa412.10852\test.egg
C:\Users\od20200617\AppData\Local\Temp\tempa412.10852\test.scm
3 File(s) copied
building test
C:/Messages/build/chicken/bin/csc -host -D compiling-extension -J -s -regenerate-import-libra
ries -setup-mode -I C:\Users\od20200617\AppData\Local\chicken-install\test -C -IC:\Users\od20200
617\AppData\Local\chicken-install\test -O2 -d1 test.scm -o C:\Users\od20200617\AppData\Local\chi
cken-install\test\test.so
C:/Messages/build/chicken/bin/csc -regenerate-import-libraries -M -setup-mode -static -I C:\U
sers\od20200617\AppData\Local\chicken-install\test -emit-link-file C:\Users\od20200617\AppData\L
ocal\chicken-install\test\test.link -host -D compiling-extension -c -unit test -D compiling-stat
ic-extension -C -IC:\Users\od20200617\AppData\Local\chicken-install\test -O2 -d1 test.scm -o C:\
Users\od20200617\AppData\Local\chicken-install\test\test.static.obj
C:/Messages/build/chicken/bin/csc -setup-mode -s -host -I C:\Users\od20200617\AppData\Local\c
hicken-install\test -C -IC:\Users\od20200617\AppData\Local\chicken-install\test -O2 -d0 test.imp
ort.scm -o C:\Users\od20200617\AppData\Local\chicken-install\test\test.import.so
installing test
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
building srfi-1
C:/Messages/build/chicken/bin/csc -host -D compiling-extension -J -s -regenerate-import-libra
ries -setup-mode -I C:\Users\od20200617\AppData\Local\chicken-install\srfi-1 -C -IC:\Users\od202
00617\AppData\Local\chicken-install\srfi-1 -O3 -d0 srfi-1.scm -o C:\Users\od20200617\AppData\Loc
al\chicken-install\srfi-1\srfi-1.so
C:/Messages/build/chicken/bin/csc -regenerate-import-libraries -M -setup-mode -static -I C:\U
sers\od20200617\AppData\Local\chicken-install\srfi-1 -emit-link-file C:\Users\od20200617\AppData
\Local\chicken-install\srfi-1\srfi-1.link -host -D compiling-extension -c -unit srfi-1 -D compil
ing-static-extension -C -IC:\Users\od20200617\AppData\Local\chicken-install\srfi-1 -O3 -d0 srfi-
1.scm -o C:\Users\od20200617\AppData\Local\chicken-install\srfi-1\srfi-1.static.obj
C:/Messages/build/chicken/bin/csc -setup-mode -s -host -I C:\Users\od20200617\AppData\Local\c
hicken-install\srfi-1 -C -IC:\Users\od20200617\AppData\Local\chicken-install\srfi-1 -O3 -d0 srfi
-1.import.scm -o C:\Users\od20200617\AppData\Local\chicken-install\srfi-1\srfi-1.import.so
installing srfi-1
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
1 file(s) copied.
A subdirectory or file C:\Messages\build\chicken\lib\chicken\11 already exists.
-- testing lists -------------------------------------------------------------
-- testing lists/constructors --------------------------------------------
(car abc) ........................................................ [ PASS]
(cadr abc) ....................................................... [ PASS]
(caddr abc) ...................................................... [ PASS]
(xcons 1 2) ...................................................... [ PASS]
(cdddr abc-dot-d) ................................................ [ PASS]
(make-list 4 'c) ................................................. [ PASS]
(list-tabulate 4 values) ......................................... [ PASS]
(iota 5) ......................................................... [ PASS]
8 tests completed in 2/125 seconds.
8 out of 8 (100%) tests passed.
-- done testing lists/constructors ---------------------------------------
-- testing lists/predcates -----------------------------------------------
(pair? (cons 1 2)) ............................................... [ PASS]
(proper-list? '()) ............................................... [ PASS]
(proper-list? '(1 2 3)) .......................................... [ PASS]
(list? '()) ...................................................... [ PASS]
(list? '(1 2 3)) ................................................. [ PASS]
(dotted-list? (cons 1 2)) ........................................ [ PASS]
(dotted-list? 2) ................................................. [ PASS]
(null-list? '()) ................................................. [ PASS]
(not (null-list? '(1 2 3))) ...................................... [ PASS]
(null-list? 'a) .................................................. [ PASS]
(not-pair? 'a) ................................................... [ PASS]
(not (not-pair? (cons 'a 'b))) ................................... [ PASS]
(list= = '(1 2 3) '(1 2 3)) ...................................... [ PASS]
(not (list= = '(1 2 3 4) '(1 2 3))) .............................. [ PASS]
(not (list= = '(1 2 3) '(1 2 3 4))) .............................. [ PASS]
(list= = '(1 2 3) '(1 2 3)) ...................................... [ PASS]
(not (list= = '(1 2 3) '(1 2 3 4) '(1 2 3 4))) ................... [ PASS]
(not (list= = '(1 2 3) '(1 2 3) '(1 2 3 4))) ..................... [ PASS]
18 tests completed in 31/1000 seconds.
18 out of 18 (100%) tests passed.
-- done testing lists/predcates ------------------------------------------
-- testing list/cxrs -----------------------------------------------------
(caar abcd) ...................................................... [ PASS]
(cdar abcd) ...................................................... [ PASS]
(cadr abcd) ...................................................... [ PASS]
(cddr abcd) ...................................................... [ PASS]
(caaar abcdefgh) ................................................. [ PASS]
(cdaar abcdefgh) ................................................. [ PASS]
(cadar abcdefgh) ................................................. [ PASS]
(cddar abcdefgh) ................................................. [ PASS]
(caadr abcdefgh) ................................................. [ PASS]
(cdadr abcdefgh) ................................................. [ PASS]
(caddr abcdefgh) ................................................. [ PASS]
(cdddr abcdefgh) ................................................. [ PASS]
(caaaar abcdefghijklmnop) ........................................ [ PASS]
(cdaaar abcdefghijklmnop) ........................................ [ PASS]
(cadaar abcdefghijklmnop) ........................................ [ PASS]
(cddaar abcdefghijklmnop) ........................................ [ PASS]
(caadar abcdefghijklmnop) ........................................ [ PASS]
(cdadar abcdefghijklmnop) ........................................ [ PASS]
(caddar abcdefghijklmnop) ........................................ [ PASS]
(cdddar abcdefghijklmnop) ........................................ [ PASS]
(caaadr abcdefghijklmnop) ........................................ [ PASS]
(cdaadr abcdefghijklmnop) ........................................ [ PASS]
(cadadr abcdefghijklmnop) ........................................ [ PASS]
(cddadr abcdefghijklmnop) ........................................ [ PASS]
(caaddr abcdefghijklmnop) ........................................ [ PASS]
(cdaddr abcdefghijklmnop) ........................................ [ PASS]
(cadddr abcdefghijklmnop) ........................................ [ PASS]
(cddddr abcdefghijklmnop) ........................................ [ PASS]
28 tests completed in 2/125 seconds.
28 out of 28 (100%) tests passed.
-- done testing list/cxrs ------------------------------------------------
-- testing lists/selectors -----------------------------------------------
(list-ref '(a b c d) 2) .......................................... [ PASS]
(first ten) ...................................................... [ PASS]
(second ten) ..................................................... [ PASS]
(third ten) ...................................................... [ PASS]
(fourth ten) ..................................................... [ PASS]
(fifth ten) ...................................................... [ PASS]
(sixth ten) ...................................................... [ PASS]
(seventh ten) .................................................... [ PASS]
(eighth ten) ..................................................... [ PASS]
(ninth ten) ...................................................... [ PASS]
(tenth ten) ...................................................... [ PASS]
(list-ref '() 2) ................................................. [ PASS]
(call-with-values (lambda () (car+cdr (cons 1 2))) list) ......... [ PASS]
(take abcde 2) ................................................... [ PASS]
(drop abcde 2) ................................................... [ PASS]
(list-tail abcde 2) .............................................. [ PASS]
(take dotted 2) .................................................. [ PASS]
(drop dotted 2) .................................................. [ PASS]
(list-tail dotted 2) ............................................. [ PASS]
(drop dotted 3) .................................................. [ PASS]
(list-tail dotted 3) ............................................. [ PASS]
(append (take abcde 4) (drop abcde 4)) ........................... [ PASS]
(take-right abcde 2) ............................................. [ PASS]
(drop-right abcde 2) ............................................. [ PASS]
(take-right dotted 2) ............................................ [ PASS]
(drop-right dotted 2) ............................................ [ PASS]
(take-right dotted 0) ............................................ [ PASS]
(drop-right dotted 0) ............................................ [ PASS]
(call-with-values (lambda () (split-at abcde 3)) append) ......... [ PASS]
(last '(a b c)) .................................................. [ PASS]
(last-pair '(a b c)) ............................................. [ PASS]
31 tests completed in 31/1000 seconds.
31 out of 31 (100%) tests passed.
-- done testing lists/selectors ------------------------------------------
-- testing lists/misc ----------------------------------------------------
(length '()) ..................................................... [ PASS]
(length '(1 2 3)) ................................................ [ PASS]
(append '(x) '(y)) ............................................... [ PASS]
(append '(a b) '(c d)) ........................................... [ PASS]
(append '() '(a)) ................................................ [ PASS]
(append '(x y)) .................................................. [ PASS]
(append) ......................................................... [ PASS]
(concatenate '((a b) (c d))) ..................................... [ PASS]
(reverse '(a b c)) ............................................... [ PASS]
(reverse '(a (b c) d (e (f)))) ................................... [ PASS]
(append-reverse '(1 2) 'd) ....................................... [ PASS]
(zip '(one two three) '(1 2 3) '(odd even odd)) .................. [ PASS]
(zip '(1 2 3)) ................................................... [ PASS]
(unzip1 '((1) (2) (3))) .......................................... [ PASS]
(call-with-values (lambda () (unzip2 '((1 one) (2 two) (3 three... [ PASS]
(call-with-values (lambda () (unzip3 '((1 one a) (2 two b) (3 t... [ PASS]
(call-with-values (lambda () (unzip4 '((1 one a 4) (2 two b 5) ... [ PASS]
(call-with-values (lambda () (unzip5 '((1 one a 4 #t) (2 two b ... [ PASS]
(count even? '(3 1 4 1 5 9 2 5 6)) ............................... [ PASS]
(count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)) ...................... [ PASS]
20 tests completed in 2/125 seconds.
20 out of 20 (100%) tests passed.
-- done testing lists/misc -----------------------------------------------
-- testing lists/folds ---------------------------------------------------
(fold + 0 lis) ................................................... [ PASS]
(fold cons '() lis) .............................................. [ PASS]
(fold (lambda (x count) (if (symbol? x) (+ count 1) count)) 0 '... [ PASS]
(fold (lambda (s max-len) (max max-len (string-length s))) 0 '(... [ PASS]
(fold (lambda (a b ans) (+ (* a b) ans)) 0 '(1 2 3) '(4 5 6)) .... [ PASS]
(fold z '() '(a b) '(c d)) ....................................... [ PASS]
(fold-right cons '() lis) ........................................ [ PASS]
(fold-right (lambda (x l) (if (even? x) (cons x l) l)) '() '(0 ... [ PASS]
(fold-right z '() '(a b) '(c d)) ................................. [ PASS]
(pair-fold cons '() '(a b c)) .................................... [ PASS]
(pair-fold z '() '(a b) '(c d)) .................................. [ PASS]
(pair-fold-right cons '() '(a b c)) .............................. [ PASS]
(pair-fold-right z '() '(a b) '(c d)) ............................ [ PASS]
(reduce max 0 '(1 3 5 4 2 0)) .................................... [ PASS]
(reduce - 0 '(1 2)) .............................................. [ PASS]
(reduce-right - 0 '(1 2)) ........................................ [ PASS]
(unfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) ... [ PASS]
(unfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) [ PASS]
(unfold null-list? car cdr '(1 2 3)) ............................. [ PASS]
(unfold-right null-list? car cdr '(1 2 3)) ....................... [ PASS]
(unfold null-list? car cdr '(1 2) (lambda (x) '(3 4))) ........... [ PASS]
(map cadr '((a b) (d e) (g h))) .................................. [ PASS]
(map-in-order cadr '((a b) (d e) (g h))) ......................... [ PASS]
(map + '(1 2 3) '(4 5 6)) ........................................ [ PASS]
(map-in-order + '(1 2 3) '(4 5 6)) ............................... [ PASS]
(map-in-order z '(a b)) .......................................... [ PASS]
...v ............................................................. [ PASS]
...v ............................................................. [ PASS]
(append-map (lambda (x) (list x (- x))) '(1 3 8)) ................ [ PASS]
(append-map list '(1 2 3) '(4 5 6)) .............................. [ PASS]
...v ............................................................. [ PASS]
...v ............................................................. [ PASS]
(filter-map (lambda (x) (and (number? x) (* x x))) '(a 1 b 3 c 7)) [ PASS]
(filter-map (lambda (x y) (and (number? x) (number? y) (+ x y))... [ PASS]
34 tests completed in 4/125 seconds.
34 out of 34 (100%) tests passed.
-- done testing lists/folds ----------------------------------------------
-- testing lists/filtering -----------------------------------------------
(filter even? '(0 7 8 8 43 -4)) .................................. [ PASS]
(call-with-values (lambda () (partition symbol? '(one 2 3 four ... [ PASS]
(remove even? '(0 7 8 8 43 -4)) .................................. [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing lists/filtering ------------------------------------------
-- testing lists/searching -----------------------------------------------
(find even? '(1 2 3)) ............................................ [ PASS]
(any even? '(1 2 3)) ............................................. [ PASS]
(find even? '(1 7 3)) ............................................ [ PASS]
(any even? '(1 7 3)) ............................................. [ PASS]
(find even? (cons (1 (cons 3 x)))) ............................... [ PASS]
(any even? (cons (1 (cons 3 x)))) ................................ [ PASS]
(find even? '(3 1 4 1 5 9)) ...................................... [ PASS]
(find-tail even? '(3 1 37 -8 -5 0 0)) ............................ [ PASS]
(take-while even? '(2 18 3 10 22 9)) ............................. [ PASS]
(drop-while even? '(2 18 3 10 22 9)) ............................. [ PASS]
(call-with-values (lambda () (span even? '(2 18 3 10 22 9))) list) [ PASS]
(call-with-values (lambda () (break even? '(3 1 4 1 5 9))) list) . [ PASS]
(any integer? '(a 3 b 2.7)) ...................................... [ PASS]
(any integer? '(a 3.1 b 2.7)) .................................... [ PASS]
(any < '(3 1 4 1 5) '(2 7 1 8 2)) ................................ [ PASS]
(every integer? '(1 2 3 4 5)) .................................... [ PASS]
(every integer? '(1 2 3 4.5 5)) .................................. [ PASS]
(every < '(1 2 3) '(4 5 6)) ...................................... [ PASS]
(list-index even? '(3 1 4 1 5 9)) ................................ [ PASS]
(list-index < '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ................. [ PASS]
(list-index = '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ................. [ PASS]
(memq 'a '(a b c)) ............................................... [ PASS]
(memq 'b '(a b c)) ............................................... [ PASS]
(memq 'a '(b c d)) ............................................... [ PASS]
(memq (list 'a) '(b (a) c)) ...................................... [ PASS]
(member (list 'a) '(b (a) c)) .................................... [ PASS]
(memv 101 '(100 101 102)) ........................................ [ PASS]
27 tests completed in 31/1000 seconds.
27 out of 27 (100%) tests passed.
-- done testing lists/searching ------------------------------------------
-- testing lists/deletion ------------------------------------------------
(delete 3 '(1 2 3 4 5)) .......................................... [ PASS]
(delete 5 '(3 4 5 6 7) <) ........................................ [ PASS]
(delete-duplicates '(a b a c a b c z)) ........................... [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing lists/deletion -------------------------------------------
-- testing lists/alists --------------------------------------------------
(assq 'a e) ...................................................... [ PASS]
(assq 'b e) ...................................................... [ PASS]
(assq 'd e) ...................................................... [ PASS]
(assq (list 'a) '(((a)) ((b)) ((c)))) ............................ [ PASS]
(assoc (list 'a) '(((a)) ((b)) ((c)))) ........................... [ PASS]
(assv 5 e2) ...................................................... [ PASS]
(assoc 5 e2 <) ................................................... [ PASS]
(alist-cons 1 (list 1) e2) ....................................... [ PASS]
(alist-delete 5 e2) .............................................. [ PASS]
(alist-delete 5 e2 <) ............................................ [ PASS]
10 tests completed in 2/125 seconds.
10 out of 10 (100%) tests passed.
-- done testing lists/alists ---------------------------------------------
-- testing lists/mutators ------------------------------------------------
'(3 . 2) ......................................................... [ PASS]
'(3 . 4) ......................................................... [ PASS]
2 tests completed in 0 seconds.
2 out of 2 (100%) tests passed.
-- done testing lists/mutators -------------------------------------------
11 subgroups completed in 51/250 seconds.
11 out of 11 (100%) subgroups passed.
-- done testing lists --------------------------------------------------------
-- testing srfi-1 ------------------------------------------------------------
(xcons 1 2) .......................................................... [ PASS]
(cons* 1) ............................................................ [ PASS]
(cons* 1 2 3 4 5) .................................................... [ PASS]
(make-list 5 #t) ..................................................... [ PASS]
(make-list 0 #f) ..................................................... [ PASS]
(length (make-list 3)) ............................................... [ PASS]
(list-tabulate 5 (lambda (x) x)) ..................................... [ PASS]
(list-tabulate 0 (lambda (x) (error "FOO!"))) ........................ [ PASS]
(call/cc (lambda (abort) (let* ((c (list 1 2 3 4 5)) (cp (list-... ... [ PASS]
(list-copy '(1 2 3 . 4)) ............................................. [ PASS]
(list? (circular-list 1 2 3)) ........................................ [ PASS]
(let* ((a (list 'a)) (b (list 'b)) (c (list 'c)) (x (circular-l... ... [ PASS]
(iota 0) ............................................................. [ PASS]
(iota 5 2 3) ......................................................... [ PASS]
(iota 5 2) ........................................................... [ PASS]
(proper-list? '(1 2 3 4 5)) .......................................... [ PASS]
(proper-list? '()) ................................................... [ PASS]
(proper-list? '(1 2 . 3)) ............................................ [ PASS]
(proper-list? (circular-list 1 2 3)) ................................. [ PASS]
(circular-list? '(1 2 3 4 5)) ........................................ [ PASS]
(circular-list? '()) ................................................. [ PASS]
(circular-list? '(1 2 . 3)) .......................................... [ PASS]
(circular-list? (circular-list 1 2 3)) ............................... [ PASS]
(dotted-list? '(1 2 3 4 5)) .......................................... [ PASS]
(dotted-list? '()) ................................................... [ PASS]
(dotted-list? '(1 2 . 3)) ............................................ [ PASS]
(dotted-list? (circular-list 1 2 3)) ................................. [ PASS]
(null-list? '()) ..................................................... [ PASS]
(null-list? '(1 2)) .................................................. [ PASS]
(null-list? (circular-list 1 2)) ..................................... [ PASS]
(not-pair? 1) ........................................................ [ PASS]
(not-pair? (cons 1 2)) ............................................... [ PASS]
(list= = '(1 2 3) '(1 2 3) '(1 2 3)) ................................. [ PASS]
(list= = '(1 2 3) '(1 2 3) '(1 4 3)) ................................. [ PASS]
(list= (lambda (a b) (not (eq? a b))) '(#f #f #f) '(#t #t #t) '... ... [ PASS]
(list= =) ............................................................ [ PASS]
(= (first '(1 2 3 4 5 6 7 8 9 10)) 1) ................................ [ PASS]
(= (second '(1 2 3 4 5 6 7 8 9 10)) 2) ............................... [ PASS]
(= (third '(1 2 3 4 5 6 7 8 9 10)) 3) ................................ [ PASS]
(= (fourth '(1 2 3 4 5 6 7 8 9 10)) 4) ............................... [ PASS]
(= (fifth '(1 2 3 4 5 6 7 8 9 10)) 5) ................................ [ PASS]
(= (sixth '(1 2 3 4 5 6 7 8 9 10)) 6) ................................ [ PASS]
(= (seventh '(1 2 3 4 5 6 7 8 9 10)) 7) .............................. [ PASS]
(= (eighth '(1 2 3 4 5 6 7 8 9 10)) 8) ............................... [ PASS]
(= (ninth '(1 2 3 4 5 6 7 8 9 10)) 9) ................................ [ PASS]
(= (tenth '(1 2 3 4 5 6 7 8 9 10)) 10) ............................... [ PASS]
(let-values (((a b) (car+cdr '(1 . 2)))) (and (= a 1) (= b 2))) ...... [ PASS]
(take '(1 2 3 4 5 6) 3) .............................................. [ PASS]
(take '(1) 1) ........................................................ [ PASS]
(let ((x (list 1 2 3 4 5 6))) (eq? (cdddr x) (drop x 3))) ............ [ PASS]
(let ((x (list 1 2 3))) (eq? x (drop x 0))) .......................... [ PASS]
(take-right '(1 2 3 4 5 6) 3) ........................................ [ PASS]
(null? (take-right '(1 2 3 4 5 6) 0)) ................................ [ PASS]
(take-right '(1 2 3 . 4) 2) .......................................... [ PASS]
(take-right '(1 2 3 . 4) 0) .......................................... [ PASS]
(drop-right '(1 2 3 4 5 6) 3) ........................................ [ PASS]
(drop-right '(1 2 3) 0) .............................................. [ PASS]
(drop-right '(1 2 3 . 4) 0) .......................................... [ PASS]
...(and (eq? x y) (eq? (cdr x) (cdr y)) (eq? (cddr x) (cddr y))... ... [ PASS]
...(and (eq? x y) (eq? (cdr x) (cdr y)) (eq? (cddr x) (cddr y))... ... [ PASS]
(let-values (((a b) (split-at '(1 2 3 4 5 6) 2))) (and (equal? ... ... [ PASS]
(let* ((x (list 1 2 3 4 5 6)) (y (cddr x))) (let-values (((a b)... ... [ PASS]
(last '(1 2 3 37)) ................................................... [ PASS]
(length+ (circular-list 1 2 3)) ...................................... [ PASS]
(length+ '(1 2 3 4)) ................................................. [ PASS]
...(and (equal? r '(1 2 3 4 5 6)) (eq? r x) (eq? (cdr r) (cdr x... ... [ PASS]
(concatenate '((1 2 3) (4 5 6) () (7 8 9))) .......................... [ PASS]
(concatenate! `(,(list 1 2 3) ,(list 4 5 6) () ,(list 7 8 9))) ....... [ PASS]
(append-reverse '(3 2 1) '(4 5 6)) ................................... [ PASS]
(append-reverse! (list 3 2 1) (list 4 5 6)) .......................... [ PASS]
(zip '(1 2 3) '(4 5 6)) .............................................. [ PASS]
(zip '() '() '() '()) ................................................ [ PASS]
(zip '(1) (circular-list 1 2)) ....................................... [ PASS]
(unzip1 '((1) (2) (3) (4) (5))) ...................................... [ PASS]
(let-values (((a b) (unzip2 '((10 11) (20 21) (30 31))))) (and ... ... [ PASS]
(let-values (((a b c) (unzip3 '((10 11 12) (20 21 22) (30 31 32... ... [ PASS]
(let-values (((a b c d) (unzip4 '((10 11 12 13) (20 21 22 23) (... ... [ PASS]
(let-values (((a b c d e) (unzip5 '((10 11 12 13 14) (20 21 22 ... ... [ PASS]
(count even? '(3 1 4 1 5 9 2 5 6)) ................................... [ PASS]
(count < '(1 2 4 8) '(2 4 6 8 10 12 14 16)) .......................... [ PASS]
(count < '(3 1 4 1) (circular-list 1 10)) ............................ [ PASS]
(fold cons* '() '(a b c) '(1 2 3 4 5)) ............................... [ PASS]
(fold-right cons* '() '(a b c) '(1 2 3 4 5)) ......................... [ PASS]
(let* ((x (list 1 2 3)) (r (list x (cdr x) (cddr x))) (y (pair-... ... [ PASS]
(pair-fold-right cons '() '(a b c)) .................................. [ PASS]
(reduce max 'illegal '(1 2 3 4 5)) ................................... [ PASS]
(reduce max 0 '()) ................................................... [ PASS]
(reduce-right append 'illegal '((1 2) () (3 4 5))) ................... [ PASS]
(unfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) ... ... [ PASS]
(unfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) .... [ PASS]
(map + '(3 1 4 1) (circular-list 1 0)) ............................... [ PASS]
...l ................................................................. [ PASS]
(append-map (lambda (x) (list x (- x))) '(1 3 8)) .................... [ PASS]
(append-map! (lambda (x) (list x (- x))) '(1 3 8)) ................... [ PASS]
(let* ((l (list 1 2 3)) (m (map! (lambda (x) (* x x)) l))) (and... ... [ PASS]
...(map-in-order (lambda (x) (let ((n v)) (set! v (+ v 1)) n)) ... ... [ PASS]
...l ................................................................. [ PASS]
(filter-map (lambda (x y) (and (number? x) (* x x))) '(a 1 b 3 ... ... [ PASS]
(filter even? '(0 7 8 8 43 -4)) ...................................... [ PASS]
(let-values (((a b) (partition symbol? '(one 2 3 four five 6)))... ... [ PASS]
(remove even? '(0 7 8 8 43 -4)) ...................................... [ PASS]
(let* ((x (list 0 7 8 8 43 -4)) (y (pair-fold cons '() x)) (r (... ... [ PASS]
(let* ((x (list 'one 2 3 'four 'five 6)) (y (pair-fold cons '()... ... [ PASS]
(let* ((x (list 0 7 8 8 43 -4)) (y (pair-fold cons '() x)) (r (... ... [ PASS]
(find even? '(3 1 4 1 5 9 8)) ........................................ [ PASS]
(find-tail even? '(3 1 4 1 5 9 8)) ................................... [ PASS]
(find-tail even? '(1 3 5 7)) ......................................... [ PASS]
(take-while even? '(2 18 3 10 22 9)) ................................. [ PASS]
(let* ((x (list 2 18 3 10 22 9)) (r (take-while! even? x))) (an... ... [ PASS]
(drop-while even? '(2 18 3 10 22 9)) ................................. [ PASS]
(let-values (((a b) (span even? '(2 18 3 10 22 9)))) (and (equa... ... [ PASS]
(let-values (((a b) (break even? '(3 1 4 1 5 9)))) (and (equal?... ... [ PASS]
(let* ((x (list 2 18 3 10 22 9)) (cells (pair-fold cons '() x))... ... [ PASS]
(let* ((x (list 3 1 4 1 5 9)) (cells (pair-fold cons '() x))) (... ... [ PASS]
(any integer? '(a 3 b 2.7)) .......................................... [ PASS]
(any integer? '(a 3.1 b 2.7)) ........................................ [ PASS]
(any < '(3 1 4 1 5) (circular-list 2 7 1 8 2)) ....................... [ PASS]
(any (lambda (a b) (if (< a b) 'yes #f)) '(1 2 3) '(0 1 4)) .......... [ PASS]
(every integer? '(1 2 3)) ............................................ [ PASS]
(every integer? '(3 4 5.1)) .......................................... [ PASS]
(every < '(1 2 3) (circular-list 2 3 4)) ............................. [ PASS]
(list-index even? '(3 1 4 1 5 9)) .................................... [ PASS]
(list-index < '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ..................... [ PASS]
(list-index = '(3 1 4 1 5 9 2 5 6) '(2 7 1 8 2)) ..................... [ PASS]
(member 5 '(1 2 5 37 48) <) .......................................... [ PASS]
(delete 5 '(1 48 2 5 37) <) .......................................... [ PASS]
(delete 5 '(1 5 2 5 7)) .............................................. [ PASS]
(let* ((x (list 1 48 2 5 37)) (cells (pair-fold cons '() x)) (r... ... [ PASS]
(delete-duplicates '((a . 3) (b . 7) (a . 9) (c . 1)) (lambda (... ... [ PASS]
(delete-duplicates '(a b a c a b c z) eq?) ........................... [ PASS]
(let* ((x (list 'a 'b 'a 'c 'a 'b 'c 'z)) (cells (pair-fold con... ... [ PASS]
(assoc 6 '((4 . #t) (3 . #t) (5 . #t)) (lambda (x y) (zero? (re... ... [ PASS]
(alist-cons 1 #t '((2 . #f))) ........................................ [ PASS]
(let* ((a (list (cons 1 2) (cons 3 4))) (b (alist-copy a))) (an... ... [ PASS]
(alist-delete 5 '((1 . #t) (2 . #t) (37 . #t) (4 . #t) (48 #t)) <) ... [ PASS]
(alist-delete 7 '((1 . #t) (2 . #t) (7 . #t) (4 . #t) (7 #t))) ....... [ PASS]
(let* ((x '((1 . #t) (2 . #t) (7 . #t) (4 . #t) (7 #t))) (y (li... ... [ PASS]
(lset<= eq? '(a) '(a b a) '(a b c c)) ................................ [ PASS]
(lset<= eq? '(a) '(a b a) '(a)) ...................................... [ PASS]
(lset<= eq?) ......................................................... [ PASS]
(lset<= eq? '(a)) .................................................... [ PASS]
(lset= eq? '(b e a) '(a e b) '(e e b a)) ............................. [ PASS]
(lset= eq? '(b e a) '(a e b) '(e e b a c)) ........................... [ PASS]
(lset= eq?) .......................................................... [ PASS]
(lset= eq? '(a)) ..................................................... [ PASS]
(lset-adjoin eq? '(a b c d c e) 'a 'e 'i 'o 'u) ...................... [ PASS]
(lset-union eq? '(a b c d e) '(a e i o u)) ........................... [ PASS]
(lset-union eq? '(a a c) '(x a x)) ................................... [ PASS]
(null? (lset-union eq?)) ............................................. [ PASS]
(lset-union eq? '(a b c)) ............................................ [ PASS]
(lset-intersection eq? '(a b c d e) '(a e i o u)) .................... [ PASS]
(lset-intersection eq? '(a x y a) '(x a x z)) ........................ [ PASS]
(lset-intersection eq? '(a b c)) ..................................... [ PASS]
(lset-difference eq? '(a b c d e) '(a e i o u)) ...................... [ PASS]
(lset-difference eq? '(a b c)) ....................................... [ PASS]
(lset= eq? '(d c b i o u) (lset-xor eq? '(a b c d e) '(a e i o ... ... [ PASS]
(lset= eq? '() (lset-xor eq?)) ....................................... [ PASS]
(lset= eq? '(a b c d e) (lset-xor eq? '(a b c d e))) ................. [ PASS]
(let-values (((d i) (lset-diff+intersection eq? '(a b c d e) '(... ... [ PASS]
(lset-union! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o 'u)) ........ [ PASS]
(lset-union! eq? (list 'a 'a 'c) (list 'x 'a 'x)) .................... [ PASS]
(null? (lset-union! eq?)) ............................................ [ PASS]
(lset-union! eq? (list 'a 'b 'c)) .................................... [ PASS]
(lset-intersection! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o... ... [ PASS]
(lset-intersection! eq? (list 'a 'x 'y 'a) (list 'x 'a 'x 'z)) ....... [ PASS]
(lset-intersection! eq? (list 'a 'b 'c)) ............................. [ PASS]
(lset-difference! eq? (list 'a 'b 'c 'd 'e) (list 'a 'e 'i 'o 'u)) ... [ PASS]
(lset-difference! eq? (list 'a 'b 'c)) ............................... [ PASS]
(lset= eq? '(d c b i o u) (lset-xor! eq? (list 'a 'b 'c 'd 'e) ... ... [ PASS]
(lset= eq? '() (lset-xor! eq?)) ...................................... [ PASS]
(lset= eq? '(a b c d e) (lset-xor! eq? (list 'a 'b 'c 'd 'e))) ....... [ PASS]
(let-values (((d i) (lset-diff+intersection! eq? (list 'a 'b 'c... ... [ PASS]
172 tests completed in 813/1000 seconds.
172 out of 172 (100%) tests passed.
-- done testing srfi-1 -------------------------------------------------------
PS C:\Messages\build\chicken\scheme-projects>