Input buildinfo: https://buildinfos.debian.net/buildinfo-pool/s/scm/scm_5f2-2+b2_amd64.buildinfo Use metasnap for getting required timestamps New buildinfo file: /tmp/scm-5f2-2+b27fijgcvy/scm_5f2-2+b2_amd64.buildinfo Get source package info: scm=5f2-2 Source URL: http://snapshot.notset.fr/mr/package/scm/5f2-2/srcfiles?fileinfo=1 env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin TMPDIR=/tmp mmdebstrap --arch=amd64 --include=autoconf=2.69-11 automake=1:1.16.1-4 autopoint=0.19.8.1-9 autotools-dev=20180224.1 base-files=11 base-passwd=3.5.46 bash=5.0-4 binutils=2.32.51.20190707-1 binutils-common=2.32.51.20190707-1 binutils-x86-64-linux-gnu=2.32.51.20190707-1 bsdmainutils=11.1.2+b1 bsdutils=1:2.33.1-0.1 build-essential=12.6 bzip2=1.0.6-9.2 coreutils=8.30-3 cpp=4:8.3.0-1 cpp-8=8.3.0-19 dash=0.5.10.2-5 debconf=1.5.72 debhelper=12.2.3 debianutils=4.8.6.3 dh-autoreconf=19 dh-strip-nondeterminism=1.2.3-1 diffutils=1:3.7-3 dpkg=1.19.7 dpkg-dev=1.19.7 dwz=0.12.20190716-1 fdisk=2.33.1-0.1 file=1:5.37-3 findutils=4.6.0+git+20190510-2 g++=4:8.3.0-1 g++-8=8.3.0-19 gcc=4:8.3.0-1 gcc-8=8.3.0-19 gcc-8-base=8.3.0-19 gcc-9-base=9.1.0-8 gettext=0.19.8.1-9 gettext-base=0.19.8.1-9 grep=3.3-1 groff-base=1.22.4-3 gzip=1.9-3 hostname=3.21 init-system-helpers=1.57 intltool-debian=0.35.0+20060710.5 libacl1=2.2.53-4 libarchive-zip-perl=1.64-1 libasan5=9.1.0-8 libatomic1=9.1.0-8 libattr1=1:2.4.48-4 libaudit-common=1:2.8.5-1 libaudit1=1:2.8.5-1 libbinutils=2.32.51.20190707-1 libblkid1=2.33.1-0.1 libbsd0=0.9.1-2 libbz2-1.0=1.0.6-9.2 libc-bin=2.28-10 libc-dev-bin=2.28-10 libc6=2.28-10 libc6-dev=2.28-10 libcap-ng0=0.7.9-2 libcc1-0=9.1.0-8 libcroco3=0.6.12-3 libdb5.3=5.3.28+dfsg1-0.6 libdebconfclient0=0.249 libdpkg-perl=1.19.7 libelf1=0.176-1.1 libfdisk1=2.33.1-0.1 libffi6=3.2.1-9 libfile-stripnondeterminism-perl=1.2.3-1 libgcc-8-dev=8.3.0-19 libgcc1=1:9.1.0-8 libgcrypt20=1.8.4-5 libgdbm-compat4=1.18.1-4+b1 libgdbm6=1.18.1-4+b1 libglib2.0-0=2.60.5-1 libgmp10=2:6.1.2+dfsg-4 libgomp1=9.1.0-8 libgpg-error0=1.36-7 libicu63=63.2-2 libisl19=0.20-2 libitm1=9.1.0-8 liblsan0=9.1.0-8 liblz4-1=1.8.3-1 liblzma5=5.2.4-1 libmagic-mgc=1:5.37-3 libmagic1=1:5.37-3 libmount1=2.33.1-0.1 libmpc3=1.1.0-1 libmpfr6=4.0.2-1 libmpx2=8.3.0-19 libncurses-dev=6.1+20190713-1 libncurses5-dev=6.1+20190713-1 libncurses6=6.1+20190713-1 libncursesw6=6.1+20190713-1 libpam-modules=1.3.1-5 libpam-modules-bin=1.3.1-5 libpam-runtime=1.3.1-5 libpam0g=1.3.1-5 libpcre2-8-0=10.32-5 libpcre3=2:8.39-12 libperl5.28=5.28.1-6 libpipeline1=1.5.1-2 libpthread-stubs0-dev=0.4-1 libquadmath0=9.1.0-8 libreadline-dev=8.0-2 libreadline8=8.0-2 libseccomp2=2.3.3-4 libselinux1=2.9-2 libsigsegv2=2.12-2 libsmartcols1=2.33.1-0.1 libstdc++-8-dev=8.3.0-19 libstdc++6=9.1.0-8 libsub-override-perl=0.09-2 libsystemd0=241-6+b1 libtext-unidecode-perl=1.30-1 libtinfo6=6.1+20190713-1 libtool=2.4.6-10 libtsan0=9.1.0-8 libubsan1=9.1.0-8 libuchardet0=0.0.6-3 libudev1=241-6+b1 libunistring2=0.9.10-2 libuuid1=2.33.1-0.1 libx11-6=2:1.6.7-1 libx11-data=2:1.6.7-1 libx11-dev=2:1.6.7-1 libxau-dev=1:1.0.8-1+b2 libxau6=1:1.0.8-1+b2 libxcb1=1.13.1-2 libxcb1-dev=1.13.1-2 libxdmcp-dev=1:1.1.2-3 libxdmcp6=1:1.1.2-3 libxml-libxml-perl=2.0134+dfsg-1 libxml-namespacesupport-perl=1.12-1 libxml-sax-base-perl=1.09-1 libxml-sax-perl=1.00+dfsg-1 libxml2=2.9.4+dfsg1-7+b3 linux-libc-dev=4.19.37-5 login=1:4.7-2 m4=1.4.18-2 make=4.2.1-1.2 man-db=2.8.5-2 mawk=1.3.3-17+b3 ncurses-base=6.1+20181013-2 ncurses-bin=6.1+20181013-2 patch=2.7.6-4 perl=5.28.1-6 perl-base=5.28.1-6 perl-modules-5.28=5.28.1-6 po-debconf=1.0.21 readline-common=8.0-2 sed=4.7-1 sensible-utils=0.0.12 slib=3b1-5 sysvinit-utils=2.95-1 tar=1.30+dfsg-6 tex-common=6.11 texinfo=6.6.0.dfsg.1-2 ucf=3.0038+nmu1 util-linux=2.33.1-0.1 x11proto-core-dev=2018.4-4 x11proto-dev=2018.4-4 xorg-sgml-doctools=1:1.11-1 xtrans-dev=1.3.5-1 xz-utils=5.2.4-1 zlib1g=1:1.2.11.dfsg-1 --variant=apt --aptopt=Acquire::Check-Valid-Until "false" --aptopt=Acquire::http::Dl-Limit "1000"; --aptopt=Acquire::https::Dl-Limit "1000"; --aptopt=Acquire::Retries "5"; --aptopt=APT::Get::allow-downgrades "true"; --keyring=/usr/share/keyrings/ --essential-hook=chroot "$1" sh -c "apt-get --yes install fakeroot util-linux" --essential-hook=copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ --essential-hook=chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20190722T153337Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20190717T213444Z/ unstable main' >> /etc/apt/sources.list && apt-get update" --customize-hook=chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash --customize-hook=chroot "$1" env sh -c "apt-get source --only-source -d scm=5f2-2 && mkdir -p /build/scm-emkGmo && dpkg-source --no-check -x /*.dsc /build/scm-emkGmo/scm-5f2 && cd /build/scm-emkGmo/scm-5f2 && { printf '%s' 'scm (5f2-2+b2) sid; urgency=low, binary-only=yes * Binary-only non-maintainer upload for amd64; no source changes. * Rebuild with libreadline8. -- amd64 / i386 Build Daemon (x86-ubc-01) Sun, 21 Jul 2019 04:45:11 +0000 '; cat debian/changelog; } > debian/changelog.debrebuild && mv debian/changelog.debrebuild debian/changelog && chown -R builduser:builduser /build/scm-emkGmo" --customize-hook=chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/scm-emkGmo/scm-5f2 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" SOURCE_DATE_EPOCH="1563684311" dpkg-buildpackage -uc -a amd64 --build=any" --customize-hook=sync-out /build/scm-emkGmo /tmp/scm-5f2-2+b27fijgcvy bullseye /dev/null deb http://snapshot.notset.fr/archive/debian/20190717T213444Z unstable main I: automatically chosen mode: root I: chroot architecture amd64 is equal to the host's architecture I: automatically chosen format: tar I: using /tmp/mmdebstrap.0od07UijAx as tempdir I: running apt-get update... I: downloading packages with apt... I: extracting archives... I: installing essential packages... I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "apt-get --yes install fakeroot util-linux"' exec /tmp/mmdebstrap.0od07UijAx Reading package lists... Building dependency tree... util-linux is already the newest version (2.33.1-0.1). The following NEW packages will be installed: fakeroot libfakeroot 0 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 132 kB of archives. After this operation, 373 kB of additional disk space will be used. Get:1 http://snapshot.notset.fr/archive/debian/20190717T213444Z unstable/main amd64 libfakeroot amd64 1.23-1 [45.9 kB] Get:2 http://snapshot.notset.fr/archive/debian/20190717T213444Z unstable/main amd64 fakeroot amd64 1.23-1 [85.8 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 132 kB in 0s (1068 kB/s) Selecting previously unselected package libfakeroot:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 4451 files and directories currently installed.) Preparing to unpack .../libfakeroot_1.23-1_amd64.deb ... Unpacking libfakeroot:amd64 (1.23-1) ... Selecting previously unselected package fakeroot. Preparing to unpack .../fakeroot_1.23-1_amd64.deb ... Unpacking fakeroot (1.23-1) ... Setting up libfakeroot:amd64 (1.23-1) ... Setting up fakeroot (1.23-1) ... update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode Processing triggers for libc-bin (2.28-10) ... I: running special hook: copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20190722T153337Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20190717T213444Z/ unstable main' >> /etc/apt/sources.list && apt-get update"' exec /tmp/mmdebstrap.0od07UijAx Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm InRelease [81.6 kB] Get:2 http://snapshot.notset.fr/archive/debian/20190722T153337Z unstable InRelease [149 kB] Hit:3 http://snapshot.notset.fr/archive/debian/20190717T213444Z unstable InRelease Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Get:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources [11.4 MB] Get:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages [11.1 MB] Ign:6 http://snapshot.notset.fr/archive/debian/20190722T153337Z unstable/main amd64 Packages Ign:6 http://snapshot.notset.fr/archive/debian/20190722T153337Z unstable/main amd64 Packages Ign:6 http://snapshot.notset.fr/archive/debian/20190722T153337Z unstable/main amd64 Packages Get:6 http://snapshot.notset.fr/archive/debian/20190722T153337Z unstable/main amd64 Packages [11.2 MB] Fetched 33.9 MB in 31s (1107 kB/s) Reading package lists... I: installing remaining packages inside the chroot... I: running --customize-hook in shell: sh -c 'chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash' exec /tmp/mmdebstrap.0od07UijAx I: running --customize-hook in shell: sh -c 'chroot "$1" env sh -c "apt-get source --only-source -d scm=5f2-2 && mkdir -p /build/scm-emkGmo && dpkg-source --no-check -x /*.dsc /build/scm-emkGmo/scm-5f2 && cd /build/scm-emkGmo/scm-5f2 && { printf '%s' 'scm (5f2-2+b2) sid; urgency=low, binary-only=yes * Binary-only non-maintainer upload for amd64; no source changes. * Rebuild with libreadline8. -- amd64 / i386 Build Daemon (x86-ubc-01) Sun, 21 Jul 2019 04:45:11 +0000 '; cat debian/changelog; } > debian/changelog.debrebuild && mv debian/changelog.debrebuild debian/changelog && chown -R builduser:builduser /build/scm-emkGmo"' exec /tmp/mmdebstrap.0od07UijAx Reading package lists... NOTICE: 'scm' packaging is maintained in the 'Git' version control system at: https://git.bnewbold.net/debian/scm Please use: git clone https://git.bnewbold.net/debian/scm to retrieve the latest (possibly unreleased) updates to the package. Need to get 937 kB of source archives. Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main scm 5f2-2 (dsc) [1842 B] Get:2 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main scm 5f2-2 (tar) [921 kB] Get:3 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main scm 5f2-2 (diff) [14.2 kB] Fetched 937 kB in 1s (1212 kB/s) Download complete and in download only mode W: Download is performed unsandboxed as root as file 'scm_5f2-2.dsc' couldn't be accessed by user '_apt'. - pkgAcquire::Run (13: Permission denied) dpkg-source: info: extracting scm in /build/scm-emkGmo/scm-5f2 dpkg-source: info: unpacking scm_5f2.orig.tar.gz dpkg-source: info: unpacking scm_5f2-2.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying not-usr-local.patch dpkg-source: info: applying kfreebsd_support.patch dpkg-source: info: applying texinfo5_fixes.patch dpkg-source: info: applying ppc64_short_int.patch dpkg-source: info: applying arm64_short_int.patch dpkg-source: info: applying hurd_maxpathlen.patch dpkg-source: info: applying bigrecy_32bit_upstream.patch I: running --customize-hook in shell: sh -c 'chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/scm-emkGmo/scm-5f2 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="C.UTF-8" SOURCE_DATE_EPOCH="1563684311" dpkg-buildpackage -uc -a amd64 --build=any"' exec /tmp/mmdebstrap.0od07UijAx dpkg-buildpackage: info: source package scm dpkg-buildpackage: info: source version 5f2-2+b2 dpkg-buildpackage: info: source distribution sid dpkg-buildpackage: info: source changed by amd64 / i386 Build Daemon (x86-ubc-01) dpkg-source --before-build . dpkg-buildpackage: info: host architecture amd64 fakeroot debian/rules clean dh clean debian/rules override_dh_testdir make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_auto_clean make -j1 distclean make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' rm -f core a.out ramap.o ramap.obj 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 lints rm -rf *temp rm -f *.o *.obj a.out TAGS implcat slibcat gdbscm make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_clean debian/rules build-arch dh build-arch debian/rules override_dh_testdir make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_update_autotools_config -a debian/rules override_dh_auto_configure make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' ./configure #! /bin/cat # Generated by configure for scm 5f2. # This file (config.status) is included by the (scm) Makefile. PACKAGE_NAME=scm PACKAGE_TARNAME=scm PACKAGE_VERSION=5f2 PACKAGE_STRING=scm 5f2 PACKAGE_BUGREPORT=scm-discuss@gnu.org srcdir=/build/scm-emkGmo/scm-5f2/ prefix=/usr/local/ exec_prefix=${prefix} bindir=${exec_prefix}bin/ sbindir=${exec_prefix}sbin/ libexecdir=${exec_prefix}libexec/ datarootdir=${prefix}share/ datadir=${datarootdir} sysconfdir=${prefix}etc/ sharedstatedir=${prefix}com/ localstatedir=${prefix}var/ includedir=${prefix}include/ oldincludedir=/usr/include/ docdir=${datarootdir}doc/${PACKAGE_TARNAME}/ infodir=${datarootdir}info/ htmldir=${docdir} dvidir=${docdir} pdfdir=${docdir} psdir=${docdir} libdir=${exec_prefix}lib/ localedir=${datarootdir}locale/ mandir=${datarootdir}man/ distdir=${srcdir} snapdir=${srcdir} cp debian/require.scm.debian require.scm cp debian/scm.opt.debian libscm.opt make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' debian/rules override_dh_auto_build make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' make scmlit make[2]: Entering directory '/build/scm-emkGmo/scm-5f2' echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"/build/scm-emkGmo/scm-5f2/Init5f2.scm\"" >> newflags.h echo "#endif" >> newflags.h echo "#define CHEAP_CONTINUATIONS" >> newflags.h echo "#define CAUTIOUS" >> newflags.h if (cmp -s newflags.h scmflags.h) then rm newflags.h; \ else mv newflags.h scmflags.h; fi cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scm.c -o scm.o scm.c: In function ‘process_signals’: scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function ‘scmable_signal’: scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security time.c -o time.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security repl.c -o repl.o repl.c: In function ‘handle_it’: repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ repl.c: In function ‘def_err_response’: repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function ‘everr’: repl.c:2133:11: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2134:14: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:260:21: note: in definition of macro ‘COOKIE’ # define COOKIE(n) (n) ^ cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scl.c -o scl.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security sys.c -o sys.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security eval.c -o eval.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security subr.c -o subr.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security unif.c -o unif.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security rope.c -o rope.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security continue.c -o continue.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security findexec.c -o findexec.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security script.c -o script.o script.c: In function ‘find_impl_file’: script.c:149:18: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:165:10: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function ‘script_process_argv’: script.c:362:12: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:377:22: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:380:39: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security debug.c -o debug.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-emkGmo/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scmmain.c -o scmmain.o scmmain.c: In function ‘main’: scmmain.c:109:32: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ ^ scmmain.c:119:16: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] script_arg = argv[2]; /* Save for scm_find_execpath() call */ ^ scmmain.c:120:31: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type [-Wincompatible-pointer-types] nargc = script_count_argv(nargv); ^~~~~ In file included from scmmain.c:30: scm.h:1080:51: note: expected ‘const char **’ but argument is of type ‘char **’ SCM_EXPORT int script_count_argv P((const char **argv)); ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ scmmain.c:122:15: warning: assignment to ‘char **’ from incompatible pointer type ‘const char **’ [-Wincompatible-pointer-types] else {nargv = argv; nargc = argc;} ^ scmmain.c:124:39: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type [-Wincompatible-pointer-types] execpath = scm_find_execpath(nargc, nargv, script_arg); ^~~~~ In file included from scmmain.c:30: scm.h:775:18: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); ^~~~~~~~~~~~~~~~~ scmmain.c:131:31: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type [-Wincompatible-pointer-types] scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); ^~~~~ In file included from scmmain.c:30: scm.h:768:69: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ 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/bin/ld: sys.o: in function `ltmpnam': ./sys.c:267: warning: the use of `tmpnam' is dangerous, better use `mkstemp' make checklit make[3]: Entering directory '/build/scm-emkGmo/scm-5f2' ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null 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 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 (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) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 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 (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 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 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 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": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (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 (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #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 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 make[3]: Leaving directory '/build/scm-emkGmo/scm-5f2' make[2]: Leaving directory '/build/scm-emkGmo/scm-5f2' # Use the same options for both static library and executable ./build -p linux -hsystem -f libscm.opt ; Scheme (linux) script created by SLIB/batch ; [-p linux] ; 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 \"Init5f2.scm\"" "#define INITS init_sc2();init_ioext();" "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();" "#define CAUTIOUS" "#define BIGNUMS" "#define ARRAYS" "#define FLOATS" "#define CCLO" "#define TICKS" "#define CAN_DUMP" "#define MACRO")))) ; ================ Compile C source files (system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.c continue.c scm.c scmmain.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c unexelf.c gmalloc.c") socket.c: In function ‘l_hostinfo’: socket.c:147:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->h_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c:152:13: warning: assignment to ‘const char **’ from incompatible pointer type ‘char **’ [-Wincompatible-pointer-types] for (argv = entry->h_addr_list; argv[i]; i++); ^ socket.c: In function ‘l_netinfo’: socket.c:184:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->n_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c: In function ‘l_protoinfo’: socket.c:214:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->p_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c: In function ‘l_servinfo’: socket.c:247:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->s_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ posix.c: In function ‘l_grinfo’: posix.c:194:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 3] = makfromstrs(-1, entry->gr_mem); ~~~~~^~~~~~~~ In file included from posix.c:21: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ crs.c:72:3: warning: initialization of ‘int (*)(FILE *)’ {aka ‘int (*)(struct _IO_FILE *)’} from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types] wrefresh, ^~~~~~~~ crs.c:72:3: note: (near initialization for ‘winptob.fflush’) crs.c:73:3: warning: initialization of ‘int (*)(FILE *)’ {aka ‘int (*)(struct _IO_FILE *)’} from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types] wgetch, ^~~~~~ crs.c:73:3: note: (near initialization for ‘winptob.fgetc’) crs.c: In function ‘lunctrl’: crs.c:241:17: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] char *str = unctrl(ICHR(c)); ^~~~~~ crs.c: In function ‘init_crs’: crs.c:390:13: warning: passing argument 1 of ‘add_final’ from incompatible pointer type [-Wincompatible-pointer-types] add_final(lendwin); ^~~~~~~ In file included from crs.c:21: scm.h:1001:37: note: expected ‘void (*)(void)’ but argument is of type ‘SCM (*)()’ {aka ‘long int (*)()’} SCM_EXPORT void add_final P((void (*final)(void))); ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ x.c: In function ‘make_xcolormap’: x.c:337:51: warning: passing argument 4 of ‘XSaveContext’ makes pointer from integer without a cast [-Wint-conversion] XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); ^ In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected ‘const char *’ but argument is of type ‘SCM’ {aka ‘long int’} _Xconst char* /* data */ ^ x.c: In function ‘CCC2SCM’: x.c:585:47: warning: passing argument 4 of ‘XSaveContext’ makes pointer from integer without a cast [-Wint-conversion] XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); ^~~~~ In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected ‘const char *’ but argument is of type ‘SCM’ {aka ‘long int’} _Xconst char* /* data */ ^ x.c: In function ‘x_draw_string’: x.c:2070:35: warning: passing argument 4 of ‘xldraw_string’ from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); ^~~~~~~~~~~~ x.c:2053:12: note: expected ‘int (*)(void)’ but argument is of type ‘int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)’ {aka ‘int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)’} int (*proc)(); ^~~~ x.c: In function ‘x_image_string’: x.c:2076:35: warning: passing argument 4 of ‘xldraw_string’ from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); ^~~~~~~~~~~~~~~~~ x.c:2053:12: note: expected ‘int (*)(void)’ but argument is of type ‘int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)’ {aka ‘int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)’} int (*proc)(); ^~~~ differ.c:33: warning: "I32" redefined #define I32 long differ.c:27: note: this is the location of the previous definition # define I32 int differ.c:122:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘long int * (*)()’ [-Wincompatible-pointer-types] {long_subarray, ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for ‘long_procs.subarray’) differ.c:126:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘short int * (*)()’ [-Wincompatible-pointer-types] {short_subarray, ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for ‘short_procs.subarray’) differ.c:130:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘char * (*)()’ [-Wincompatible-pointer-types] {char_subarray, ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for ‘char_procs.subarray’) In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scm.c: In function ‘scm_init_extensions’: scmflags.h:3:116: warning: implicit declaration of function ‘init_unix’; did you mean ‘init_unif’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scmflags.h:3:128: warning: implicit declaration of function ‘init_crs’; did you mean ‘init_subrs’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scmflags.h:3:139: warning: implicit declaration of function ‘init_x’; did you mean ‘init_rgx’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scmflags.h:3:148: warning: implicit declaration of function ‘init_differ’; did you mean ‘init_banner’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scm.c: In function ‘process_signals’: scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function ‘scmable_signal’: scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scmmain.c: In function ‘main’: scmmain.c:109:32: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ ^ scmmain.c:119:16: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] script_arg = argv[2]; /* Save for scm_find_execpath() call */ ^ scmmain.c:120:31: warning: passing argument 1 of ‘script_count_argv’ from incompatible pointer type [-Wincompatible-pointer-types] nargc = script_count_argv(nargv); ^~~~~ In file included from scmmain.c:30: scm.h:1080:51: note: expected ‘const char **’ but argument is of type ‘char **’ SCM_EXPORT int script_count_argv P((const char **argv)); ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ scmmain.c:122:15: warning: assignment to ‘char **’ from incompatible pointer type ‘const char **’ [-Wincompatible-pointer-types] else {nargv = argv; nargc = argc;} ^ scmmain.c:124:39: warning: passing argument 2 of ‘scm_find_execpath’ from incompatible pointer type [-Wincompatible-pointer-types] execpath = scm_find_execpath(nargc, nargv, script_arg); ^~~~~ In file included from scmmain.c:30: scm.h:775:18: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); ^~~~~~~~~~~~~~~~~ scmmain.c:131:31: warning: passing argument 2 of ‘scm_init_from_argv’ from incompatible pointer type [-Wincompatible-pointer-types] scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); ^~~~~ In file included from scmmain.c:30: scm.h:768:69: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ script.c: In function ‘find_impl_file’: script.c:149:18: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:165:10: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function ‘script_process_argv’: script.c:362:12: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:377:22: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:380:39: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ repl.c: In function ‘handle_it’: repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ repl.c: In function ‘def_err_response’: repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function ‘everr’: repl.c:2133:11: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2134:14: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:260:21: note: in definition of macro ‘COOKIE’ # define COOKIE(n) (n) ^ unexelf.c: In function ‘find_section’: unexelf.c:406:51: warning: implicit declaration of function ‘exit’ [-Wimplicit-function-declaration] #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:525:1: +#include #endif unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c: In function ‘unexec’: unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:692:5: note: in expansion of macro ‘fatal’ fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:692:5: note: in expansion of macro ‘fatal’ fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:695:5: note: in expansion of macro ‘fatal’ fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:695:5: note: in expansion of macro ‘fatal’ fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:711:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:711:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:714:5: note: in expansion of macro ‘fatal’ fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:714:5: note: in expansion of macro ‘fatal’ fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:782:5: note: in expansion of macro ‘fatal’ fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:782:5: note: in expansion of macro ‘fatal’ fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:790:5: note: in expansion of macro ‘fatal’ fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:790:5: note: in expansion of macro ‘fatal’ fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:795:5: note: in expansion of macro ‘fatal’ fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:795:5: note: in expansion of macro ‘fatal’ fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:800:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:800:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:855:4: note: in expansion of macro ‘fatal’ fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:855:4: note: in expansion of macro ‘fatal’ fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:865:5: note: in expansion of macro ‘fatal’ fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:865:5: note: in expansion of macro ‘fatal’ fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:895:5: note: in expansion of macro ‘fatal’ fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:895:5: note: in expansion of macro ‘fatal’ fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1256:5: note: in expansion of macro ‘fatal’ fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1256:5: note: in expansion of macro ‘fatal’ fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1272:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1272:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1275:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1275:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1278:5: note: in expansion of macro ‘fatal’ fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1278:5: note: in expansion of macro ‘fatal’ fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1284:5: note: in expansion of macro ‘fatal’ fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1284:5: note: in expansion of macro ‘fatal’ fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ gmalloc.c: In function ‘__malloc_initialize’: gmalloc.c:56:28: warning: implicit declaration of function ‘bzero’ [-Wimplicit-function-declaration] #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:486:3: note: in expansion of macro ‘memset’ memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:486:3: note: in expansion of macro ‘memset’ memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c: In function ‘morecore’: gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:556:8: note: in expansion of macro ‘memset’ memset (&newinfo[heapsize], 0, ^~~~~~ gmalloc.c:59:26: warning: implicit declaration of function ‘bcopy’ [-Wimplicit-function-declaration] #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:590:7: note: in expansion of macro ‘memcpy’ memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:590:7: note: in expansion of macro ‘memcpy’ memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:591:7: note: in expansion of macro ‘memset’ memset (&newinfo[heapsize], 0, ^~~~~~ gmalloc.c: In function ‘__malloc_safe_bcopy’: gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (from, to, size); ^~~~~ gmalloc.c:1241:8: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (endf, endt, to - from); ^~~~~ gmalloc.c:1247:4: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (from, to, endt - from); ^~~~~ gmalloc.c: In function ‘_realloc_internal’: gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:1301:8: note: in expansion of macro ‘memcpy’ memcpy (result, ptr, size); ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:1376:4: note: in expansion of macro ‘memcpy’ memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type)); ^~~~~~ gmalloc.c: In function ‘calloc’: gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:1431:12: note: in expansion of macro ‘memset’ (void) memset (result, 0, nmemb * size); ^~~~~~ gmalloc.c: In function ‘valloc’: gmalloc.c:1646:16: warning: implicit declaration of function ‘__getpagesize’ [-Wimplicit-function-declaration] pagesize = __getpagesize (); ^~~~~~~~~~~~~ ; ================ Link C object files (system "gcc -rdynamic -o scm sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o scmmain.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o -lm -lreadline -ltermcap -lcurses -ldl -L/usr/X11R6/lib -lX11 -lc") /usr/bin/ld: sys.o: in function `ltmpnam': sys.c:(.text+0x81f): warning: the use of `tmpnam' is dangerous, better use `mkstemp' ./build -p linux -hsystem -f libscm.opt -t lib ; Scheme (linux) script created by SLIB/batch ; [-p linux] ; 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 \"Init5f2.scm\"" "#define INITS init_sc2();init_ioext();" "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();" "#define CAUTIOUS" "#define BIGNUMS" "#define ARRAYS" "#define FLOATS" "#define CCLO" "#define TICKS" "#define CAN_DUMP" "#define MACRO")))) ; ================ Compile C source files (system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.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 unexelf.c gmalloc.c") socket.c: In function ‘l_hostinfo’: socket.c:147:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->h_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c:152:13: warning: assignment to ‘const char **’ from incompatible pointer type ‘char **’ [-Wincompatible-pointer-types] for (argv = entry->h_addr_list; argv[i]; i++); ^ socket.c: In function ‘l_netinfo’: socket.c:184:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->n_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c: In function ‘l_protoinfo’: socket.c:214:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->p_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ socket.c: In function ‘l_servinfo’: socket.c:247:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->s_aliases); ~~~~~^~~~~~~~~~~ In file included from socket.c:24: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ posix.c: In function ‘l_grinfo’: posix.c:194:33: warning: passing argument 2 of ‘makfromstrs’ from incompatible pointer type [-Wincompatible-pointer-types] ve[ 3] = makfromstrs(-1, entry->gr_mem); ~~~~~^~~~~~~~ In file included from posix.c:21: scm.h:1037:62: note: expected ‘const char * const*’ but argument is of type ‘char **’ SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ crs.c:72:3: warning: initialization of ‘int (*)(FILE *)’ {aka ‘int (*)(struct _IO_FILE *)’} from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types] wrefresh, ^~~~~~~~ crs.c:72:3: note: (near initialization for ‘winptob.fflush’) crs.c:73:3: warning: initialization of ‘int (*)(FILE *)’ {aka ‘int (*)(struct _IO_FILE *)’} from incompatible pointer type ‘int (*)(WINDOW *)’ {aka ‘int (*)(struct _win_st *)’} [-Wincompatible-pointer-types] wgetch, ^~~~~~ crs.c:73:3: note: (near initialization for ‘winptob.fgetc’) crs.c: In function ‘lunctrl’: crs.c:241:17: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] char *str = unctrl(ICHR(c)); ^~~~~~ crs.c: In function ‘init_crs’: crs.c:390:13: warning: passing argument 1 of ‘add_final’ from incompatible pointer type [-Wincompatible-pointer-types] add_final(lendwin); ^~~~~~~ In file included from crs.c:21: scm.h:1001:37: note: expected ‘void (*)(void)’ but argument is of type ‘SCM (*)()’ {aka ‘long int (*)()’} SCM_EXPORT void add_final P((void (*final)(void))); ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro ‘P’ # define P(s) s ^ x.c: In function ‘make_xcolormap’: x.c:337:51: warning: passing argument 4 of ‘XSaveContext’ makes pointer from integer without a cast [-Wint-conversion] XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); ^ In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected ‘const char *’ but argument is of type ‘SCM’ {aka ‘long int’} _Xconst char* /* data */ ^ x.c: In function ‘CCC2SCM’: x.c:585:47: warning: passing argument 4 of ‘XSaveContext’ makes pointer from integer without a cast [-Wint-conversion] XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); ^~~~~ In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected ‘const char *’ but argument is of type ‘SCM’ {aka ‘long int’} _Xconst char* /* data */ ^ x.c: In function ‘x_draw_string’: x.c:2070:35: warning: passing argument 4 of ‘xldraw_string’ from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); ^~~~~~~~~~~~ x.c:2053:12: note: expected ‘int (*)(void)’ but argument is of type ‘int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)’ {aka ‘int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)’} int (*proc)(); ^~~~ x.c: In function ‘x_image_string’: x.c:2076:35: warning: passing argument 4 of ‘xldraw_string’ from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); ^~~~~~~~~~~~~~~~~ x.c:2053:12: note: expected ‘int (*)(void)’ but argument is of type ‘int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)’ {aka ‘int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)’} int (*proc)(); ^~~~ differ.c:33: warning: "I32" redefined #define I32 long differ.c:27: note: this is the location of the previous definition # define I32 int differ.c:122:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘long int * (*)()’ [-Wincompatible-pointer-types] {long_subarray, ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for ‘long_procs.subarray’) differ.c:126:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘short int * (*)()’ [-Wincompatible-pointer-types] {short_subarray, ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for ‘short_procs.subarray’) differ.c:130:4: warning: initialization of ‘void * (*)()’ from incompatible pointer type ‘char * (*)()’ [-Wincompatible-pointer-types] {char_subarray, ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for ‘char_procs.subarray’) In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scm.c: In function ‘scm_init_extensions’: scmflags.h:3:116: warning: implicit declaration of function ‘init_unix’; did you mean ‘init_unif’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scmflags.h:3:128: warning: implicit declaration of function ‘init_crs’; did you mean ‘init_subrs’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scmflags.h:3:139: warning: implicit declaration of function ‘init_x’; did you mean ‘init_rgx’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scmflags.h:3:148: warning: implicit declaration of function ‘init_differ’; did you mean ‘init_banner’? [-Wimplicit-function-declaration] #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); ^~~~~~~~~~~ scm.c:110:3: note: in expansion of macro ‘COMPILED_INITS’ COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scm.c: In function ‘process_signals’: scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function ‘scmable_signal’: scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ script.c: In function ‘find_impl_file’: script.c:149:18: warning: initialization discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:165:10: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function ‘script_process_argv’: script.c:362:12: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:377:22: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:380:39: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ repl.c: In function ‘handle_it’: repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ repl.c: In function ‘def_err_response’: repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function ‘everr’: repl.c:2133:11: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2134:14: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:260:21: note: in definition of macro ‘COOKIE’ # define COOKIE(n) (n) ^ unexelf.c: In function ‘find_section’: unexelf.c:406:51: warning: implicit declaration of function ‘exit’ [-Wimplicit-function-declaration] #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:525:1: +#include #endif unexelf.c:634:2: note: in expansion of macro ‘fatal’ fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c: In function ‘unexec’: unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:692:5: note: in expansion of macro ‘fatal’ fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:692:5: note: in expansion of macro ‘fatal’ fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:695:5: note: in expansion of macro ‘fatal’ fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:695:5: note: in expansion of macro ‘fatal’ fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:711:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:711:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:714:5: note: in expansion of macro ‘fatal’ fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:714:5: note: in expansion of macro ‘fatal’ fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:782:5: note: in expansion of macro ‘fatal’ fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:782:5: note: in expansion of macro ‘fatal’ fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:790:5: note: in expansion of macro ‘fatal’ fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:790:5: note: in expansion of macro ‘fatal’ fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:795:5: note: in expansion of macro ‘fatal’ fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:795:5: note: in expansion of macro ‘fatal’ fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:800:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:800:5: note: in expansion of macro ‘fatal’ fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:855:4: note: in expansion of macro ‘fatal’ fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:855:4: note: in expansion of macro ‘fatal’ fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:865:5: note: in expansion of macro ‘fatal’ fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:865:5: note: in expansion of macro ‘fatal’ fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:895:5: note: in expansion of macro ‘fatal’ fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:895:5: note: in expansion of macro ‘fatal’ fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1256:5: note: in expansion of macro ‘fatal’ fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1256:5: note: in expansion of macro ‘fatal’ fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1272:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1272:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1275:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1275:5: note: in expansion of macro ‘fatal’ fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1278:5: note: in expansion of macro ‘fatal’ fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1278:5: note: in expansion of macro ‘fatal’ fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1284:5: note: in expansion of macro ‘fatal’ fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:406:51: note: include ‘’ or provide a declaration of ‘exit’ #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^~~~ unexelf.c:1284:5: note: in expansion of macro ‘fatal’ fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ gmalloc.c: In function ‘__malloc_initialize’: gmalloc.c:56:28: warning: implicit declaration of function ‘bzero’ [-Wimplicit-function-declaration] #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:486:3: note: in expansion of macro ‘memset’ memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:486:3: note: in expansion of macro ‘memset’ memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c: In function ‘morecore’: gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:556:8: note: in expansion of macro ‘memset’ memset (&newinfo[heapsize], 0, ^~~~~~ gmalloc.c:59:26: warning: implicit declaration of function ‘bcopy’ [-Wimplicit-function-declaration] #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:590:7: note: in expansion of macro ‘memcpy’ memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:590:7: note: in expansion of macro ‘memcpy’ memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:591:7: note: in expansion of macro ‘memset’ memset (&newinfo[heapsize], 0, ^~~~~~ gmalloc.c: In function ‘__malloc_safe_bcopy’: gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (from, to, size); ^~~~~ gmalloc.c:1241:8: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (endf, endt, to - from); ^~~~~ gmalloc.c:1247:4: warning: incompatible implicit declaration of built-in function ‘bcopy’ bcopy (from, to, endt - from); ^~~~~ gmalloc.c: In function ‘_realloc_internal’: gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:1301:8: note: in expansion of macro ‘memcpy’ memcpy (result, ptr, size); ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function ‘bcopy’ #define memcpy(d, s, n) bcopy ((s), (d), (n)) ^~~~~ gmalloc.c:1376:4: note: in expansion of macro ‘memcpy’ memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type)); ^~~~~~ gmalloc.c: In function ‘calloc’: gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function ‘bzero’ #define memset(s, zero, n) bzero ((s), (n)) ^~~~~ gmalloc.c:1431:12: note: in expansion of macro ‘memset’ (void) memset (result, 0, nmemb * size); ^~~~~~ gmalloc.c: In function ‘valloc’: gmalloc.c:1646:16: warning: implicit declaration of function ‘__getpagesize’ [-Wimplicit-function-declaration] pagesize = __getpagesize (); ^~~~~~~~~~~~~ ; ================ Link C object files (system "ar rc libscm.a sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.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 unexelf.o gmalloc.o") (system "ranlib libscm.a") makeinfo --html --no-split scm.texi scm.texi:4020: warning: multiple @menu makeinfo --html --no-split Xlibscm.texi cp XlibScm.html Xlibscm.html cp ChangeLog changelog make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_auto_test -a make -j1 check VERBOSE=1 make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' ./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null 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 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 (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) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 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 (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 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 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 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": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t (# 0.0-1.i) ==> #t (# 0.0+1.i) ==> #t (# 2.+1.i) ==> #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 (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #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 ;testing inexact numbers; SECTION(6 2) (# 1 1.) ==> #f (# 0 0.0) ==> #f (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t SECTION(6 5 5) (magnitude 1.) ==> 1. (# 1.e300+1.e300i 4.e300+4.e300i) ==> 2.5e-1 (magnitude 1.) ==> 1. (# 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 2.5e-1 (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 3.9) ==> #t (max #t) ==> #t (# 3.9 4) ==> 4. (#inexact> 4) ==> 4. (#inexact> 4.) ==> 4. (#exact> 4) ==> 4 (#exact> 4.) ==> 4 (# -4.5) ==> -4. (# -3.5) ==> -4. (# -3.9) ==> -4. (# 0.0) ==> 0.0 (# 2.5e-1) ==> 0.0 (# 8.e-1) ==> 1. (# 3.5) ==> 4. (# 4.5) ==> 4. (# 0.0 1.) ==> 0.0 (# 0.0 1) ==> 0.0 (# 0 1.) ==> 0.0 (# -25 0.0) ==> 1. (# -3.25 0.0) ==> 1. (# -3.25 0) ==> 1. (# 1 1) ==> 7.853981633974483e-1 (# "tmp3" # "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 (2.5e-1 -3.25))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (2.5e-1 -3.25) (# #) ==> (define foo (quote (2.5e-1 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests SECTION(6 5 6) (float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (# cnt 308) success) (let* ((estr (string-append "1.e" (number->string cnt))) (num (string->number estr)) (str (number->string num))) (cond ((or (>= (string-length str) 10) (not (equal? (string->number str) num))) (set! success #f) (for-each write (list estr num str (string->number str))))))))>) ==> #t ;testing bignums; SECTION(6 5 7) (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> -1 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> 2 (# -33333333333333333332 3) ==> 1 (# -33333333333333333332 -3) ==> -2 (# -33333333333333333332 3) ==> -2 (# -33333333333333333332 -3) ==> -2 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> 33333333333333333330 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> -33333333333333333330 (# -3 -33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> 3 (# -3 -33333333333333333333) ==> -3 (# -2177452800 86400) ==> 0 (# 2177452800 -86400) ==> 0 (# 2177452800 86400) ==> 0 (# -2177452800 -86400) ==> 0 (# 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t (# 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (# 33333333333333333332 11111111111111111111) ==> 1 (# 33333333333333333330 11111111111111111111) ==> 1 (# 33333333333333333333 33333333333333333330) ==> 3 (# 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (# -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#string> 281474976710655325431) ==> "281474976710655325431" Passed all tests ;testing bignum-inexact comparisons; SECTION(6 5 5) (# 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f (# 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f (# 1427247692705959881058285969449495136382746623 1.42724769270596e45 1427247692705959881058285969449495136382746625) ==> #t 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 make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' fakeroot debian/rules binary-arch dh binary-arch dh_testroot -a dh_prep -a debian/rules override_dh_auto_install make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' # Make .scm scheme library scripts non-executable... chmod a-x *.scm *.c # except compile.scm chmod a+x compile.scm # skip; files listed explicitly make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_install -a dh_installdocs -a dh_installchangelogs -a dh_installexamples -a dh_installman -a dh_installinfo -a dh_perl -a dh_link -a dh_strip_nondeterminism -a dh_compress -a dh_fixperms -a dh_missing -a debian/rules override_dh_strip make[1]: Entering directory '/build/scm-emkGmo/scm-5f2' dh_strip --no-automatic-dbgsym make[1]: Leaving directory '/build/scm-emkGmo/scm-5f2' dh_makeshlibs -a dh_shlibdeps -a dh_installdeb -a dh_gencontrol -a dh_md5sums -a dh_builddeb -a dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f2-2+b2_amd64.deb'. dpkg-deb: building package 'scm' in '../scm_5f2-2+b2_amd64.deb'. dpkg-genbuildinfo --build=any dpkg-genchanges --build=any >../scm_5f2-2+b2_amd64.changes dpkg-genchanges: info: binary-only arch-specific upload (source code and arch-indep packages not included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) I: running special hook: sync-out /build/scm-emkGmo /tmp/scm-5f2-2+b27fijgcvy I: cleaning package lists and apt cache... I: creating tarball... I: done I: removing tempdir /tmp/mmdebstrap.0od07UijAx... I: success in 362.1233 seconds md5: libscm-dev_5f2-2+b2_amd64.deb: OK md5: scm_5f2-2+b2_amd64.deb: OK sha1: libscm-dev_5f2-2+b2_amd64.deb: OK sha1: scm_5f2-2+b2_amd64.deb: OK sha256: libscm-dev_5f2-2+b2_amd64.deb: OK sha256: scm_5f2-2+b2_amd64.deb: OK Checksums: OK