###
### Mon Aug 8 22:32:20 EDT 2005:
### /usr/pkg/bin/bmake bulk-package for scm-5d9
### Current pkg count:  7 installed packages: digest-20050323 gettext-lib-0.11.5nb4 gmake-3.80nb4 jikes-1.22nb2 libiconv-1.9.2nb1 libtool-base-1.5.18nb3 pkg_install-info-4.5nb3
###
BULK> Full rebuild in progress...
BULK> Cleaning package scm-5d9 and pre-requisite packages
===> Cleaning for scm-5d9
===> Cleaning for unzip-5.52nb2
===> Cleaning for gmake-3.80nb4
===> Cleaning for gettext-lib-0.11.5nb4
===> Cleaning for libiconv-1.9.2nb1
===> Cleaning for libtool-base-1.5.18nb3
===> Cleaning for pkg_install-info-4.5nb3
===> Cleaning for zlib-1.2.3
===> Cleaning for ncurses-5.4nb1
===> Cleaning for slib-3.1.1
===> Cleaning for x11-links-0.25
BULK> Removing installed packages which are not needed to build scm-5d9
BULK> Keeping BULK_PREREQ: digest-20050323 (pkgtools/digest)
/usr/pkg/sbin/pkg_delete -K /var/db/pkg -r jikes-1.22nb2
BULK> scm-5d9 requires installed package pkg_install-info-4.5nb3 (pkgtools/pkg_install-info) to build.
BULK> scm-5d9 requires installed package libtool-base-1.5.18nb3 (devel/libtool-base) to build.
BULK> scm-5d9 requires installed package libiconv-1.9.2nb1 (converters/libiconv) to build.
BULK> scm-5d9 requires installed package gettext-lib-0.11.5nb4 (devel/gettext-lib) to build.
BULK> scm-5d9 requires installed package gmake-3.80nb4 (devel/gmake) to build.
BULK> Installing packages which are required to build scm-5d9.
BULK>  /usr/pkg/sbin/pkg_add -K /var/db/pkg  /packages/SunOS-5.8/sparc/All/unzip-5.52nb2.tgz
BULK> Required package gmake-3.80nb4 (devel/gmake) is already installed
BULK> Required package gettext-lib-0.11.5nb4 (devel/gettext-lib) is already installed
BULK> Required package libiconv-1.9.2nb1 (converters/libiconv) is already installed
BULK> Required package libtool-base-1.5.18nb3 (devel/libtool-base) is already installed
BULK> Required package pkg_install-info-4.5nb3 (pkgtools/pkg_install-info) is already installed
BULK> Required package zlib-1.2.3 (devel/zlib) is already installed
BULK>  /usr/pkg/sbin/pkg_add -K /var/db/pkg  /packages/SunOS-5.8/sparc/All/ncurses-5.4nb1.tgz
BULK>  /usr/pkg/sbin/pkg_add -K /var/db/pkg  /packages/SunOS-5.8/sparc/All/slib-3.1.1.tgz
BULK>  /usr/pkg/sbin/pkg_add -K /var/db/pkg  /packages/SunOS-5.8/sparc/All/x11-links-0.25.tgz
BULK> Required package digest-20050323 (pkgtools/digest) is already installed
/usr/pkg/bin/bmake package (scm-5d9)
===> Checking for vulnerabilities in scm-5d9
=> scm5d9.zip doesn't seem to exist on this system.
=> Attempting to fetch scm5d9.zip from ftp://netbsd.stevens-tech.edu/pub/NetBSD/packages/distfiles/.
=> [843122 bytes]
=> Checksum SHA1 OK for scm5d9.zip.
=> Checksum RMD160 OK for scm5d9.zip.
work -> /pkgobj/lang/scm/work
===> Extracting for scm-5d9
===> Required installed package slib>=3.1.1: slib-3.1.1 found
===> Required installed package pkg_install-info-[0-9]*: pkg_install-info-4.5nb3 found
===> Required installed package ncurses>=5.4nb1: ncurses-5.4nb1 found
===> Required installed package gmake>=3.78: gmake-3.80nb4 found
===> Required installed package unzip-[0-9]*: unzip-5.52nb2 found
===> Required installed package x11-links>=0.25: x11-links-0.25 found
===> Patching for scm-5d9
===> Applying pkgsrc patches for scm-5d9
/usr/pkg/bin/nbsed -e 's|%%LOCALBASE%%|/usr/pkg|g'  < /usr/pkgsrc/lang/scm/files/require.scm > /pkgobj/lang/scm/work/scm/require.scm
===> Overriding tools for scm-5d9
===> Creating toolchain wrappers for scm-5d9
===> Configuring for scm-5d9
===> Building for scm-5d9
Makefile:69: srcdir.mk: No such file or directory
echo "CPROTO=`type cproto | sed 's%.* %%'`" > srcdir.mk
echo "srcdir=`pwd`/" >> srcdir.mk
echo "#ifndef IMPLINIT" > newflags.h
echo "#define IMPLINIT \"/pkgobj/lang/scm/work/scm/Init5d9.scm\"" >> newflags.h
echo "#endif" >> newflags.h
echo "#define CAUTIOUS" >> newflags.h
if (diff newflags.h scmflags.h) then rm newflags.h; \
	 else mv newflags.h scmflags.h; fi
diff: scmflags.h: No such file or directory
cc -c -O -I/usr/pkg/include scm.c -o scm.o
cc -c -O -I/usr/pkg/include time.c -o time.o
cc -c -O -I/usr/pkg/include repl.c -o repl.o
"repl.c", line 1355: warning: implicit function declaration: isspace
"repl.c", line 1586: warning: implicit function declaration: sbrk
cc -c -O -I/usr/pkg/include scl.c -o scl.o
cc -c -O -I/usr/pkg/include sys.c -o sys.o
"sys.c", line 545: warning: initialization type mismatch
"sys.c", line 546: warning: initialization type mismatch
"sys.c", line 547: warning: initialization type mismatch
"sys.c", line 549: warning: initialization type mismatch
"sys.c", line 550: warning: initialization type mismatch
"sys.c", line 644: warning: initialization type mismatch
"sys.c", line 645: warning: initialization type mismatch
"sys.c", line 646: warning: initialization type mismatch
"sys.c", line 647: warning: initialization type mismatch
"sys.c", line 648: warning: initialization type mismatch
"sys.c", line 649: warning: initialization type mismatch
"sys.c", line 681: warning: initialization type mismatch
"sys.c", line 682: warning: initialization type mismatch
"sys.c", line 756: warning: initialization type mismatch
"sys.c", line 757: warning: initialization type mismatch
"sys.c", line 850: warning: initialization type mismatch
"sys.c", line 851: warning: initialization type mismatch
"sys.c", line 852: warning: initialization type mismatch
"sys.c", line 853: warning: initialization type mismatch
cc -c -O -I/usr/pkg/include eval.c -o eval.o
cc -c -O -I/usr/pkg/include subr.c -o subr.o
cc -c -O -I/usr/pkg/include unif.c -o unif.o
cc -c -O -I/usr/pkg/include rope.c -o rope.o
cc -c -O -I/usr/pkg/include continue.c -o continue.o
cc -c -O -I/usr/pkg/include findexec.c -o findexec.o
cc -c -O -I/usr/pkg/include script.c -o script.o
cc -c -O -I/usr/pkg/include debug.c -o debug.o
cc -c -O -I/usr/pkg/include scmmain.c -o scmmain.o
cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o 
/usr/pkg/bin/gmake checklit
gmake[1]: Entering directory `/pkgobj/lang/scm/work/scm'
./scmlit -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \
-e '(or (null? errs) (quit 1))'
SECTION(2 1)
SECTION(3 4)
 #
    #
       #
          #
             #
                #
                   #
                      #
                         #
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a))  ==> (quote a)
(quote (quote a))  ==> (quote a)
SECTION(4 1 3)
(# 3 4)  ==> 12
SECTION(4 1 4)
(# "r4rstest.scm": (x) (+ x x)> 4)  ==> 8
(# 7 10)  ==> 3
(# "r4rstest.scm": (y) (+ x y)> 6)  ==> 10
(# "r4rstest.scm": x x> 3 4 5 6)  ==> (3 4 5 6)
(# "r4rstest.scm": (x y . z) z> 3 4 5 6)  ==> (5 6)
SECTION(4 1 5)
(if yes)  ==> yes
(if no)  ==> no
(if 1)  ==> 1
SECTION(4 1 6)
(define 3)  ==> 3
(set! 5)  ==> 5
SECTION(4 2 1)
(cond greater)  ==> greater
(cond equal)  ==> equal
(cond 2)  ==> 2
(case composite)  ==> composite
(case consonant)  ==> consonant
(and #t)  ==> #t
(and #f)  ==> #f
(and (f g))  ==> (f g)
(and #t)  ==> #t
(or #t)  ==> #t
(or #t)  ==> #t
(or #f)  ==> #f
(or #f)  ==> #f
(or (b c))  ==> (b c)
SECTION(4 2 2)
(let 6)  ==> 6
(let 35)  ==> 35
(let* 70)  ==> 70
(letrec #t)  ==> #t
(let 5)  ==> 5
(let 34)  ==> 34
(let 6)  ==> 6
(let 34)  ==> 34
(let* 7)  ==> 7
(let* 34)  ==> 34
(let* 8)  ==> 8
(let* 34)  ==> 34
(letrec 9)  ==> 9
(letrec 34)  ==> 34
(letrec 10)  ==> 10
(letrec 34)  ==> 34
SECTION(4 2 3)
(begin 6)  ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4))  ==> #(0 1 2 3 4)
(do 25)  ==> 25
(let 1)  ==> 1
(let ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
(let -1)  ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (list a (quote a)))  ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b))  ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons))  ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
(quasiquote 5)  ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f))  ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e))  ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4))  ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4)))  ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(define 6)  ==> 6
(define 1)  ==> 1
(# 6)  ==> (3 6)
(# 6)  ==> 9
SECTION(5 2 2)
(define 45)  ==> 45
(#)  ==> 5
(define 34)  ==> 34
(#)  ==> 5
(define 34)  ==> 34
(# 88)  ==> 88
(# 4)  ==> 4
(define 34)  ==> 34
(internal-define 99)  ==> 99
(internal-define 77)  ==> 77
SECTION(6 1)
(# #t)  ==> #f
(# 3)  ==> #f
(# (3))  ==> #f
(# #f)  ==> #t
(# ())  ==> #f
(# ())  ==> #f
(# nil)  ==> #f
SECTION(6 2)
(# a a)  ==> #t
(# a b)  ==> #f
(# 2 2)  ==> #t
(# () ())  ==> #t
(# 10000 10000)  ==> #t
(# (1 . 2) (1 . 2))  ==> #f
(# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>)  ==> #f
(# #f nil)  ==> #f
(# # #)  ==> #t
(# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #t
(# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>)  ==> #f
(# # #)  ==> #f
(# a a)  ==> #t
(# (a) (a))  ==> #f
(# () ())  ==> #t
(# # #)  ==> #t
(# (a) (a))  ==> #t
(# #() #())  ==> #t
(# # #)  ==> #t
(# a a)  ==> #t
(# (a) (a))  ==> #t
(# (a (b) c) (a (b) c))  ==> #t
(# "abc" "abc")  ==> #t
(# 2 2)  ==> #t
(# #(a a a a a) #(a a a a a))  ==> #t
SECTION(6 3)
(dot (a b c d e))  ==> (a b c d e)
(# (a b c))  ==> #t
(set-cdr! (a . 4))  ==> (a . 4)
(# (a . 4) (a . 4))  ==> #t
(dot (a b c . d))  ==> (a b c . d)
(# (a . 4))  ==> #f
(list? #f)  ==> #f
(# a ())  ==> (a)
(# (a) (b c d))  ==> ((a) b c d)
(# "a" (b c))  ==> ("a" b c)
(# a 3)  ==> (a . 3)
(# (a b) c)  ==> ((a b) . c)
(# (a b c))  ==> a
(# ((a) b c d))  ==> (a)
(# (1 . 2))  ==> 1
(# ((a) b c d))  ==> (b c d)
(# (1 . 2))  ==> 2
(# a 7 c)  ==> (a 7 c)
(#)  ==> ()
(# (a b c))  ==> 3
(# (a (b) (c d e)))  ==> 3
(# ())  ==> 0
(# (x) (y))  ==> (x y)
(# (a) (b c d))  ==> (a b c d)
(# (a (b)) ((c)))  ==> (a (b) (c))
(#)  ==> ()
(# (a b) (c . d))  ==> (a b c . d)
(# () a)  ==> a
(# (a b c))  ==> (c b a)
(# (a (b c) d (e (f))))  ==> ((e (f)) d (b c) a)
(# (a b c d) 2)  ==> c
(# a (a b c))  ==> (a b c)
(# b (a b c))  ==> (b c)
(# a (b c d))  ==> #f
(# (a) (b (a) c))  ==> #f
(# (a) (b (a) c))  ==> ((a) c)
(# 101 (100 101 102))  ==> (101 102)
(# a ((a 1) (b 2) (c 3)))  ==> (a 1)
(# b ((a 1) (b 2) (c 3)))  ==> (b 2)
(# d ((a 1) (b 2) (c 3)))  ==> #f
(# (a) (((a)) ((b)) ((c))))  ==> #f
(# (a) (((a)) ((b)) ((c))))  ==> ((a))
(# 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
SECTION(6 4)
(# a)  ==> #t
(standard-case #t)  ==> #t
(standard-case #t)  ==> #t
(#string> flying-fish)  ==> "flying-fish"
(#string> martin)  ==> "martin"
(#string> Malvina)  ==> "Malvina"
(standard-case #t)  ==> #t
(string-set! "cb")  ==> "cb"
(#string> ab)  ==> "ab"
(#symbol> "ab")  ==> ab
(# mississippi mississippi)  ==> #t
(string->symbol #f)  ==> #f
(#symbol> "jollywog")  ==> jollywog
SECTION(6 5 5)
(# 3)  ==> #t
(# 3)  ==> #t
(# 3)  ==> #t
(# 3)  ==> #t
(# 3)  ==> #t
(# 3)  ==> #t
(# 3)  ==> #f
(# 22 22 22)  ==> #t
(# 22 22)  ==> #t
(# 34 34 35)  ==> #f
(# 34 35)  ==> #f
(#> 3 -6246)  ==> #t
(#> 9 9 -2424)  ==> #f
(#=> 3 -4 -6246)  ==> #t
(#=> 9 9)  ==> #t
(#=> 8 9)  ==> #f
(# -1 2 3 4 5 6 7 8)  ==> #t
(# -1 2 3 4 4 5 6 7)  ==> #f
(# -1 2 3 4 5 6 7 8)  ==> #t
(# -1 2 3 4 4 5 6 7)  ==> #t
(# 1 3 2)  ==> #f
(#=> 1 3 2)  ==> #f
(# 0)  ==> #t
(# 1)  ==> #f
(# -1)  ==> #f
(# -100)  ==> #f
(# 4)  ==> #t
(# -4)  ==> #f
(# 0)  ==> #f
(# 4)  ==> #f
(# -4)  ==> #t
(# 0)  ==> #f
(# 3)  ==> #t
(# 2)  ==> #f
(# -4)  ==> #f
(# -1)  ==> #t
(# 3)  ==> #f
(# 2)  ==> #t
(# -4)  ==> #t
(# -1)  ==> #f
(# 34 5 7 38 6)  ==> 38
(# 3 5 5 330 4 -24)  ==> -24
(# 3 4)  ==> 7
(# 3)  ==> 3
(#)  ==> 0
(# 4)  ==> 4
(#)  ==> 1
(# 3 4)  ==> -1
(# 3)  ==> -3
(# -7)  ==> 7
(# 7)  ==> 7
(# 0)  ==> 0
(# 35 7)  ==> 5
(# -35 7)  ==> -5
(# 35 -7)  ==> -5
(# -35 -7)  ==> 5
(# 13 4)  ==> 1
(# 13 4)  ==> 1
(# -13 4)  ==> 3
(# -13 4)  ==> -1
(# 13 -4)  ==> -3
(# 13 -4)  ==> 1
(# -13 -4)  ==> -1
(# -13 -4)  ==> -1
(# 0 86400)  ==> 0
(# 0 -86400)  ==> 0
(# 238 9)  ==> #t
(# -238 9)  ==> #t
(# 238 -9)  ==> #t
(# -238 -9)  ==> #t
(# 0 4)  ==> 4
(# -4 0)  ==> 4
(# 32 -36)  ==> 4
(#)  ==> 0
(# 32 -36)  ==> 288
(#)  ==> 1
SECTION(6 5 5)
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (string->number str)))  (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#")  ==> #t
(#number "r4rstest.scm", line 563: (str) (#@define ((ans (#@string->number #@str)))  (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0")  ==> #t
SECTION(6 5 9)
(#string> 0)  ==> "0"
(#string> 100)  ==> "100"
(#string> 256 16)  ==> "100"
(#number> "100")  ==> 100
(#number> "100" 16)  ==> 256
(#number> "")  ==> #f
(#number> ".")  ==> #f
(#number> "d")  ==> #f
(#number> "D")  ==> #f
(#number> "i")  ==> #f
(#number> "I")  ==> #f
(#number> "3i")  ==> #f
(#number> "3I")  ==> #f
(#number> "33i")  ==> #f
(#number> "33I")  ==> #f
(#number> "3.3i")  ==> #f
(#number> "3.3I")  ==> #f
(#number> "-")  ==> #f
(#number> "+")  ==> #f
(string->number #t)  ==> #t
(string->number #t)  ==> #t
SECTION(6 6)
(# #\space #\space)  ==> #t
(# #\space #\space)  ==> #t
(# #\a)  ==> #t
(# #\()  ==> #t
(# #\space)  ==> #t
(# #\nl)  ==> #t
(# #\A #\B)  ==> #f
(# #\a #\b)  ==> #f
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #t
(# #\A #\B)  ==> #t
(# #\a #\b)  ==> #t
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #f
(#?> #\A #\B)  ==> #f
(#?> #\a #\b)  ==> #f
(#?> #\9 #\0)  ==> #t
(#?> #\A #\A)  ==> #f
(# #\A #\B)  ==> #t
(# #\a #\b)  ==> #t
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #t
(#=?> #\A #\B)  ==> #f
(#=?> #\a #\b)  ==> #f
(#=?> #\9 #\0)  ==> #t
(#=?> #\A #\A)  ==> #t
(# #\A #\B)  ==> #f
(# #\a #\B)  ==> #f
(# #\A #\b)  ==> #f
(# #\a #\b)  ==> #f
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #t
(# #\A #\a)  ==> #t
(# #\A #\B)  ==> #t
(# #\a #\B)  ==> #t
(# #\A #\b)  ==> #t
(# #\a #\b)  ==> #t
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #f
(# #\A #\a)  ==> #f
(#?> #\A #\B)  ==> #f
(#?> #\a #\B)  ==> #f
(#?> #\A #\b)  ==> #f
(#?> #\a #\b)  ==> #f
(#?> #\9 #\0)  ==> #t
(#?> #\A #\A)  ==> #f
(#?> #\A #\a)  ==> #f
(# #\A #\B)  ==> #t
(# #\a #\B)  ==> #t
(# #\A #\b)  ==> #t
(# #\a #\b)  ==> #t
(# #\9 #\0)  ==> #f
(# #\A #\A)  ==> #t
(# #\A #\a)  ==> #t
(#=?> #\A #\B)  ==> #f
(#=?> #\a #\B)  ==> #f
(#=?> #\A #\b)  ==> #f
(#=?> #\a #\b)  ==> #f
(#=?> #\9 #\0)  ==> #t
(#=?> #\A #\A)  ==> #t
(#=?> #\A #\a)  ==> #t
(# #\a)  ==> #t
(# #\A)  ==> #t
(# #\z)  ==> #t
(# #\Z)  ==> #t
(# #\0)  ==> #f
(# #\9)  ==> #f
(# #\space)  ==> #f
(# #\;)  ==> #f
(# #\a)  ==> #f
(# #\A)  ==> #f
(# #\z)  ==> #f
(# #\Z)  ==> #f
(# #\0)  ==> #t
(# #\9)  ==> #t
(# #\space)  ==> #f
(# #\;)  ==> #f
(# #\a)  ==> #f
(# #\A)  ==> #f
(# #\z)  ==> #f
(# #\Z)  ==> #f
(# #\0)  ==> #f
(# #\9)  ==> #f
(# #\space)  ==> #t
(# #\;)  ==> #f
(# #\0)  ==> #f
(# #\9)  ==> #f
(# #\space)  ==> #f
(# #\;)  ==> #f
(# #\0)  ==> #f
(# #\9)  ==> #f
(# #\space)  ==> #f
(# #\;)  ==> #f
(#char> 46)  ==> #\.
(#char> 65)  ==> #\A
(#char> 97)  ==> #\a
(# #\A)  ==> #\A
(# #\a)  ==> #\A
(# #\A)  ==> #\a
(# #\a)  ==> #\a
SECTION(6 7)
(# "The word \"recursion\\\" has many meanings.")  ==> #t
(string-set! "?**")  ==> "?**"
(# #\a #\b #\c)  ==> "abc"
(#)  ==> ""
(# "abc")  ==> 3
(# "abc" 0)  ==> #\a
(# "abc" 2)  ==> #\c
(# "")  ==> 0
(# "ab" 0 0)  ==> ""
(# "ab" 1 1)  ==> ""
(# "ab" 2 2)  ==> ""
(# "ab" 0 1)  ==> "a"
(# "ab" 1 2)  ==> "b"
(# "ab" 0 2)  ==> "ab"
(# "foo" "bar")  ==> "foobar"
(# "foo")  ==> "foo"
(# "foo" "")  ==> "foo"
(# "" "foo")  ==> "foo"
(#)  ==> ""
(# 0)  ==> ""
(# "" "")  ==> #t
(# "" "")  ==> #f
(#?> "" "")  ==> #f
(# "" "")  ==> #t
(#=?> "" "")  ==> #t
(# "" "")  ==> #t
(# "" "")  ==> #f
(#?> "" "")  ==> #f
(# "" "")  ==> #t
(#=?> "" "")  ==> #t
(# "A" "B")  ==> #f
(# "a" "b")  ==> #f
(# "9" "0")  ==> #f
(# "A" "A")  ==> #t
(# "A" "B")  ==> #t
(# "a" "b")  ==> #t
(# "9" "0")  ==> #f
(# "A" "A")  ==> #f
(#?> "A" "B")  ==> #f
(#?> "a" "b")  ==> #f
(#?> "9" "0")  ==> #t
(#?> "A" "A")  ==> #f
(# "A" "B")  ==> #t
(# "a" "b")  ==> #t
(# "9" "0")  ==> #f
(# "A" "A")  ==> #t
(#=?> "A" "B")  ==> #f
(#=?> "a" "b")  ==> #f
(#=?> "9" "0")  ==> #t
(#=?> "A" "A")  ==> #t
(# "A" "B")  ==> #f
(# "a" "B")  ==> #f
(# "A" "b")  ==> #f
(# "a" "b")  ==> #f
(# "9" "0")  ==> #f
(# "A" "A")  ==> #t
(# "A" "a")  ==> #t
(# "A" "B")  ==> #t
(# "a" "B")  ==> #t
(# "A" "b")  ==> #t
(# "a" "b")  ==> #t
(# "9" "0")  ==> #f
(# "A" "A")  ==> #f
(# "A" "a")  ==> #f
(#?> "A" "B")  ==> #f
(#?> "a" "B")  ==> #f
(#?> "A" "b")  ==> #f
(#?> "a" "b")  ==> #f
(#?> "9" "0")  ==> #t
(#?> "A" "A")  ==> #f
(#?> "A" "a")  ==> #f
(# "A" "B")  ==> #t
(# "a" "B")  ==> #t
(# "A" "b")  ==> #t
(# "a" "b")  ==> #t
(# "9" "0")  ==> #f
(# "A" "A")  ==> #t
(# "A" "a")  ==> #t
(#=?> "A" "B")  ==> #f
(#=?> "a" "B")  ==> #f
(#=?> "A" "b")  ==> #f
(#=?> "a" "b")  ==> #f
(#=?> "9" "0")  ==> #t
(#=?> "A" "A")  ==> #t
(#=?> "A" "a")  ==> #t
SECTION(6 8)
(# #(0 (2 2 2 2) "Anna"))  ==> #t
(# a b c)  ==> #(a b c)
(#)  ==> #()
(# #(0 (2 2 2 2) "Anna"))  ==> 3
(# #())  ==> 0
(# #(1 1 2 3 5 8 13 21) 5)  ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
(# 2 hi)  ==> #(hi hi)
(# 0)  ==> #()
(# 0 a)  ==> #()
SECTION(6 9)
(# #)  ==> #t
(# # "r4rstest.scm": (x) (* x x)>)  ==> #t
(# (lambda (x) (* x x)))  ==> #f
(# #)  ==> #t
(# # (3 4))  ==> 7
(# # "r4rstest.scm": (a b) (+ a b)> (3 4))  ==> 7
(# # 10 (3 4))  ==> 17
(# # ())  ==> ()
(# "r4rstest.scm": args (f (apply g args))> 12 75)  ==> 30
(# # ((a b) (d e) (g h)))  ==> (b e h)
(# # (1 2 3) (4 5 6))  ==> (5 7 9)
(# # (1 2 3))  ==> (1 2 3)
(# # (1 2 3))  ==> (1 2 3)
(# # (1 2 3))  ==> (-1 -2 -3)
(for-each #(0 1 4 9 16))  ==> #(0 1 4 9 16)
(# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>)  ==> -3
(# (1 2 3 4))  ==> 4
(# (a b . c))  ==> #f
(# # ())  ==> ()
SECTION(6 10 1)
(# #)  ==> #t
(# #)  ==> #t
(# "r4rstest.scm" #)  ==> #t
(# #)  ==> #t
SECTION(6 10 2)
(# #)  ==> #\;
(# #)  ==> #\;
(# #)  ==> (define cur-section (quote ()))
(# #)  ==> #\(
(# #)  ==> (define errs (quote ()))
SECTION(6 10 3)
(# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>)  ==> #t
(# #)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(# #)  ==> #t
(# #)  ==> #t
(input-port? #t)  ==> #t
(# #)  ==> #\;
(# #)  ==> #\;
(# #)  ==> #\;
(# #)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(# #)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(# #)  ==> #t
(# #)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(# #)  ==> #t
(# #)  ==> #t
(input-port? #t)  ==> #t
(# #)  ==> #\;
(# #)  ==> #\;
(# #)  ==> #\;
(# #)  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(# #)  ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))

Passed all tests

To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)

;testing scheme 4 functions; 
SECTION(6 7)
(#list> "P l")  ==> (#\P #\space #\l)
(#list> "")  ==> ()
(#string> (#\1 #\\ #\"))  ==> "1\\\""
(#string> ())  ==> ""
SECTION(6 8)
(#list> #(dah dah didah))  ==> (dah dah didah)
(#list> #())  ==> ()
(#vector> (dididit dah))  ==> #(dididit dah)
(#vector> ())  ==> #()
SECTION(6 10 4)
(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))  ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))

Passed all tests

;testing continuations; 
SECTION(6 9)
(# (a (b (c))) ((a) b c))  ==> #t
(# (a (b (c))) ((a) b c d))  ==> #f

Passed all tests

;testing DELAY and FORCE; 
SECTION(6 9)
(delay 3)  ==> 3
(delay (3 3))  ==> (3 3)
(delay 2)  ==> 2
(# # count x) count (force p)))>>)  ==> 6
(# #)  ==> 6
(force 3)  ==> 3

Passed all tests
gmake[1]: Leaving directory `/pkgobj/lang/scm/work/scm'
echo "-F cautious bignums arrays inexact" >> libscm.opt
echo "-F engineering-notation" >> libscm.opt
echo "-F dynamic-linking" >> libscm.opt
./build -hsystem -t lib -f libscm.opt
; Scheme (sunos) script created by SLIB/batch 
; used options from: libscm.opt
; ================ Write file with C defines
(delete-file "scmflags.h")
(call-with-output-file
  "scmflags.h"
  (lambda (fp)
    (for-each
      (lambda (string) (write-line string fp))
      '("#define IMPLINIT \"Init5d9.scm\""
        "#define CAUTIOUS"
        "#define BIGNUMS"
        "#define ARRAYS"
        "#define FLOATS"
        "#define ENGNOT"))))
; ================ Compile C source files
(system "cc -c -DSUN_DL dynl.c continue.c scm.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c")
dynl.c:
"dynl.c", line 427: warning: assignment type mismatch:
	pointer to function() returning void "=" pointer to void
"dynl.c", line 456: warning: assignment type mismatch:
	pointer to function(int, pointer to pointer to char) returning int "=" pointer to void
continue.c:
scm.c:
findexec.c:
script.c:
time.c:
repl.c:
"repl.c", line 1355: warning: implicit function declaration: isspace
"repl.c", line 1586: warning: implicit function declaration: sbrk
scl.c:
"scl.c", line 1035: warning: argument #2 is incompatible with prototype:
	prototype: pointer to int : "/usr/include/iso/math_iso.h", line 50
	argument : pointer to unsigned int
eval.c:
sys.c:
"sys.c", line 545: warning: initialization type mismatch
"sys.c", line 546: warning: initialization type mismatch
"sys.c", line 547: warning: initialization type mismatch
"sys.c", line 549: warning: initialization type mismatch
"sys.c", line 550: warning: initialization type mismatch
"sys.c", line 644: warning: initialization type mismatch
"sys.c", line 645: warning: initialization type mismatch
"sys.c", line 646: warning: initialization type mismatch
"sys.c", line 647: warning: initialization type mismatch
"sys.c", line 648: warning: initialization type mismatch
"sys.c", line 649: warning: initialization type mismatch
"sys.c", line 681: warning: initialization type mismatch
"sys.c", line 682: warning: initialization type mismatch
"sys.c", line 756: warning: initialization type mismatch
"sys.c", line 757: warning: initialization type mismatch
"sys.c", line 850: warning: initialization type mismatch
"sys.c", line 851: warning: initialization type mismatch
"sys.c", line 852: warning: initialization type mismatch
"sys.c", line 853: warning: initialization type mismatch
subr.c:
"subr.c", line 1979: warning: identifier redeclared: divbigdig
	current : function() returning unsigned int
	previous: function(pointer to unsigned short, unsigned int, unsigned short) returning unsigned int : "scm.h", line 1074
"subr.c", line 1982: warning: Prototype mismatch in arg 3 for function divbigdig:
	function : old style declaration unsigned short promoted to int
	prototype: unsigned short
debug.c:
unif.c:
"unif.c", line 130: identifier redeclared: makflo
	current : function() returning long
	previous: function(float) returning long : "scm.h", line 999
"unif.c", line 131: warning: Prototype mismatch in arg 1 for function makflo:
	function : old style declaration float promoted to double
	prototype: float
"unif.c", line 1585: warning: integer overflow detected: op "<<"
cc: acomp failed for unif.c
rope.c:
; ================ Link C object files
(system "ar rc libscm.a dynl.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o")
(system "ranlib libscm.a")
=> Unwrapping files-to-be-installed.
/usr/bin/cat /usr/pkgsrc/lang/scm/files/buildscm.sh  | /usr/pkg/bin/nbsed -e 's|%%PREFIX%%|/usr/pkg|g'  | /usr/pkg/bin/nbsed -e 's|%%LOCALBASE%%|/usr/pkg|g'  > /pkgobj/lang/scm/work/scm/buildscm.sh
cd /pkgobj/lang/scm/work/scm && /bin/ksh ./buildscm.sh
sc2.c:
ramap.c:
dynl.c:
edline.c:
gsubr.c:
ioext.c:
posix.c:
record.c:
rgx.c:
socket.c:
unix.c:
continue.c:
scm.c:
"scm.c", line 125: warning: implicit function declaration: init_unix
scmmain.c:
findexec.c:
script.c:
time.c:
repl.c:
"repl.c", line 1355: warning: implicit function declaration: isspace
"repl.c", line 1586: warning: implicit function declaration: sbrk
scl.c:
"scl.c", line 1035: warning: argument #2 is incompatible with prototype:
	prototype: pointer to int : "/usr/include/iso/math_iso.h", line 50
	argument : pointer to unsigned int
eval.c:
sys.c:
"sys.c", line 545: warning: initialization type mismatch
"sys.c", line 546: warning: initialization type mismatch
"sys.c", line 547: warning: initialization type mismatch
"sys.c", line 549: warning: initialization type mismatch
"sys.c", line 550: warning: initialization type mismatch
"sys.c", line 644: warning: initialization type mismatch
"sys.c", line 645: warning: initialization type mismatch
"sys.c", line 646: warning: initialization type mismatch
"sys.c", line 647: warning: initialization type mismatch
"sys.c", line 648: warning: initialization type mismatch
"sys.c", line 649: warning: initialization type mismatch
"sys.c", line 681: warning: initialization type mismatch
"sys.c", line 682: warning: initialization type mismatch
"sys.c", line 756: warning: initialization type mismatch
"sys.c", line 757: warning: initialization type mismatch
"sys.c", line 850: warning: initialization type mismatch
"sys.c", line 851: warning: initialization type mismatch
"sys.c", line 852: warning: initialization type mismatch
"sys.c", line 853: warning: initialization type mismatch
subr.c:
"subr.c", line 1979: warning: identifier redeclared: divbigdig
	current : function() returning unsigned int
	previous: function(pointer to unsigned short, unsigned int, unsigned short) returning unsigned int : "scm.h", line 1074
"subr.c", line 1982: warning: Prototype mismatch in arg 3 for function divbigdig:
	function : old style declaration unsigned short promoted to int
	prototype: unsigned short
debug.c:
unif.c:
"unif.c", line 130: identifier redeclared: makflo
	current : function() returning long
	previous: function(float) returning long : "scm.h", line 999
"unif.c", line 131: warning: Prototype mismatch in arg 1 for function makflo:
	function : old style declaration float promoted to double
	prototype: float
"unif.c", line 1585: warning: integer overflow detected: op "<<"
cc: acomp failed for unif.c
rope.c:
unexelf.c:
"unexelf.c", line 533: warning: implicit function declaration: exit
mv: cannot access scm
ld: fatal: symbol `array_equal' is multiply-defined:
	(file ramap.o type=FUNC; file unif.o type=FUNC);
ld: fatal: file unexelf.o: open failed: No such file or directory
ld: fatal: library -ledit: not found
ld: fatal: File processing errors. No output written to scm
*** Error code 1

Stop.
bmake: stopped in /usr/pkgsrc/lang/scm
===> 
===> There was an error during the ``build'' phase.
===> Please investigate the following for more information:
===>      * log of the build
===>      * /pkgobj/lang/scm/work/.work.log
===> 
*** Error code 1

Stop.
bmake: stopped in /usr/pkgsrc/lang/scm

Please view the work log for scm-5d9

BULK> scm-5d9 was marked as broken:
-rw-r--r--   1 root     other      46464 Aug  8 22:36 .broken.html
/usr/pkg/bin/bmake deinstall
===> Deinstalling for scm
BULK> Marking all packages which depend upon scm-5d9 as broken:
BULK> Build for scm-5d9 was not successful, aborting.