Mon Jan 13 18:39:24 UTC 2025 I: starting to build scm/unstable/arm64 on jenkins on '2025-01-13 18:39' Mon Jan 13 18:39:24 UTC 2025 I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/arm64_3/73625/console.log Mon Jan 13 18:39:24 UTC 2025 I: Downloading source for unstable/scm=5f4-3 --2025-01-13 18:39:24-- http://deb.debian.org/debian/pool/main/s/scm/scm_5f4-3.dsc Connecting to 46.16.76.132:3128... connected. Proxy request sent, awaiting response... 200 OK Length: 2274 (2.2K) [text/prs.lines.tag] Saving to: ‘scm_5f4-3.dsc’ 0K .. 100% 244M=0s 2025-01-13 18:39:24 (244 MB/s) - ‘scm_5f4-3.dsc’ saved [2274/2274] Mon Jan 13 18:39:24 UTC 2025 I: scm_5f4-3.dsc -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Format: 3.0 (quilt) Source: scm Binary: scm, libscm-dev Architecture: any Version: 5f4-3 Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org> Uploaders: Bryan Newbold <bnewbold@robocracy.org>, Barak A. Pearlmutter <bap@debian.org>, Gwen Weinholt <weinholt@debian.org> Homepage: https://people.csail.mit.edu/jaffer/SCM.html Standards-Version: 4.6.1 Vcs-Browser: https://salsa.debian.org/scheme-team/scm Vcs-Git: https://salsa.debian.org/scheme-team/scm.git Build-Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev Package-List: libscm-dev deb libdevel optional arch=any scm deb interpreters optional arch=any Checksums-Sha1: 39c34712f61a7c36ae51e77368902388d4da475b 902111 scm_5f4.orig.tar.gz a7f883ecf87f389c887e93f7877d28579cff6c1d 488 scm_5f4.orig.tar.gz.asc 539be7eea1eadd884dd70e78ecfe7cee8e2026e8 21176 scm_5f4-3.debian.tar.xz Checksums-Sha256: af8d36c22131e85d40e42fe261a27fe8fcbf02878c86b0adf7859b81281bbbb5 902111 scm_5f4.orig.tar.gz 19d6b99f44824351bf1f2d0894820cb54d776c33a36fb264e1fcd1379e947887 488 scm_5f4.orig.tar.gz.asc b291f23de0b56618650712ba9e5725c6cc3badd3e4b69fa37175581627928fca 21176 scm_5f4-3.debian.tar.xz Files: b0a64075e2cc7078ab3fba776c882c02 902111 scm_5f4.orig.tar.gz d2725e053ee451447b028710c57e05ea 488 scm_5f4.orig.tar.gz.asc 04ea19e034448016db2d2ea4fd19707d 21176 scm_5f4-3.debian.tar.xz -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEENcUspJdnK0ANRheT3YObdI8QrU0FAmeETa0ACgkQ3YObdI8Q rU223g/9GpybM0Cai0fT1T2rTTf85h9ds8ACUEQgGkpIT+u5uSOpKZw2qnbX+557 ts5R2dWhDnTGTG9egC0fTsa2zOqL0rh8G94MACRFt9nY2NhF4rPHJ7R12w4adfhI qy6pD6oOILP/iCXDrrsDqOc526qZ93XzNYzz0SLNEf9s3BWAJu9mDzA/qFyd8DR2 xAYfr05j3NTO58rziwDzE3zCZaleRkxrYRNvq11qguuS47e9s40MJK28A4f1U2I2 vymKmqy2Yn8Z30Hjvf8j2gp9aF9JyV0GnEz3E0s4NgGq5g+g02CfWLfgj/T2jz7Y ojjRo775IGc1IaUThsAi4CH2t3x7SCKAzU/hDlix4f2bTwqnocyQ4McBqLl8IRM8 3aTAqjBI1sN8yvYRIXKUprglN7JsAqa7MjGhHFlY91ykBlP00S5Vwe5LcWd7pDHg 5jFaoUJ5YYJNrbfJrEFPfFZGFswhBJpu6I4oWTHSIX+HsdMmAGWrReQ0qUr3P+2N T1JwwaAmr8023YguYFrwGYZ6ngzHEbYtE1shnfSSTZ+1PIBESoGthnFgHb8JSOsp UCIMJ76yp/Kd8D5IaHyilIYbyuXJokWDuFIZi9M81LXf61QhrZ8MNvVqP6vEUfJG 6iSZYRgCOuaeOHkrcgOLBzqspD8QgC+nnT25z5XEhDFV671KS00= =aor4 -----END PGP SIGNATURE----- Mon Jan 13 18:39:24 UTC 2025 I: Checking whether the package is not for us Mon Jan 13 18:39:24 UTC 2025 I: Starting 1st build on remote node codethink01-arm64.debian.net. Mon Jan 13 18:39:24 UTC 2025 I: Preparing to do remote build '1' on codethink01-arm64.debian.net. Mon Jan 13 18:40:44 UTC 2025 I: Deleting $TMPDIR on codethink01-arm64.debian.net. I: pbuilder: network access will be disabled during build I: Current time: Sun Feb 15 13:02:26 -12 2026 I: pbuilder-time-stamp: 1771203746 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration W: --override-config is not set; not updating apt.conf Read the manpage for details. I: mounting /proc filesystem I: mounting /sys filesystem I: creating /{dev,run}/shm I: mounting /dev/pts filesystem I: redirecting /dev/ptmx to /dev/pts/ptmx I: policy-rc.d already exists I: Copying source file I: copying [scm_5f4-3.dsc] I: copying [./scm_5f4.orig.tar.gz] I: copying [./scm_5f4.orig.tar.gz.asc] I: copying [./scm_5f4-3.debian.tar.xz] I: Extracting source dpkg-source: warning: cannot verify inline signature for ./scm_5f4-3.dsc: unsupported subcommand dpkg-source: info: extracting scm in scm-5f4 dpkg-source: info: unpacking scm_5f4.orig.tar.gz dpkg-source: info: unpacking scm_5f4-3.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 ppc64_short_int.patch dpkg-source: info: applying hurd_maxpathlen.patch dpkg-source: info: applying add-missing-edit-line-feature.patch dpkg-source: info: applying fix-argument-imm-being-ignored-in-m_letstar1.patch dpkg-source: info: applying fix-readline-related-bug.patch dpkg-source: info: applying use-compiler-flags.patch dpkg-source: info: applying disable-bigrecy.patch dpkg-source: info: applying support-rv64-mips64el-s390x.patch dpkg-source: info: applying fix-build-with-opaque-ncurses.patch dpkg-source: info: applying fix-implicit-decl-libc.patch dpkg-source: info: applying fix-implicit-decl-init.patch dpkg-source: info: applying do-not-use-catalog-expand-path.patch dpkg-source: info: applying fix-numerous-compilation-errors.patch dpkg-source: info: applying support-loong64.patch dpkg-source: info: applying fix-i386-build.patch dpkg-source: info: applying fix-arm-builds.patch dpkg-source: info: applying define-scm-llong-for-64-bit-archs.patch I: Not using root during the build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/1522930/tmp/hooks/D02_print_environment starting I: set BUILDDIR='/build/reproducible-path' BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' BUILDUSERNAME='pbuilder1' BUILD_ARCH='arm64' DEBIAN_FRONTEND='noninteractive' DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' DISTRIBUTION='unstable' HOME='/root' HOST_ARCH='arm64' IFS=' ' INVOCATION_ID='8c5e7fa1427e469b8ea5a02e4c7710a6' LANG='C' LANGUAGE='en_US:en' LC_ALL='C' MAIL='/var/mail/root' OPTIND='1' PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' PBCURRENTCOMMANDLINEOPERATION='build' PBUILDER_OPERATION='build' PBUILDER_PKGDATADIR='/usr/share/pbuilder' PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' PBUILDER_SYSCONFDIR='/etc' PPID='1522930' PS1='# ' PS2='> ' PS4='+ ' PWD='/' SHELL='/bin/bash' SHLVL='2' SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/pbuilderrc_HAxk --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/b1 --logfile b1/build.log scm_5f4-3.dsc' SUDO_GID='109' SUDO_UID='104' SUDO_USER='jenkins' TERM='unknown' TZ='/usr/share/zoneinfo/Etc/GMT+12' USER='root' _='/usr/bin/systemd-run' http_proxy='http://192.168.101.4:3128' I: uname -a Linux codethink01-arm64 6.1.0-29-cloud-arm64 #1 SMP Debian 6.1.123-1 (2025-01-02) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Nov 22 2024 /bin -> usr/bin I: user script /srv/workspace/pbuilder/1522930/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy Version: 0.invalid.0 Architecture: arm64 Maintainer: Debian Pbuilder Team <pbuilder-maint@lists.alioth.debian.org> Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder This package was created automatically by pbuilder to satisfy the build-dependencies of the package being currently built. Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'. Selecting previously unselected package pbuilder-satisfydepends-dummy. (Reading database ... 19963 files and directories currently installed.) Preparing to unpack .../pbuilder-satisfydepends-dummy.deb ... Unpacking pbuilder-satisfydepends-dummy (0.invalid.0) ... dpkg: pbuilder-satisfydepends-dummy: dependency problems, but configuring anyway as you requested: pbuilder-satisfydepends-dummy depends on debhelper-compat (= 13); however: Package debhelper-compat is not installed. pbuilder-satisfydepends-dummy depends on slib; however: Package slib is not installed. pbuilder-satisfydepends-dummy depends on libncurses-dev; however: Package libncurses-dev is not installed. pbuilder-satisfydepends-dummy depends on libreadline-dev; however: Package libreadline-dev is not installed. pbuilder-satisfydepends-dummy depends on texinfo; however: Package texinfo is not installed. pbuilder-satisfydepends-dummy depends on libx11-dev; however: Package libx11-dev is not installed. Setting up pbuilder-satisfydepends-dummy (0.invalid.0) ... Reading package lists... Building dependency tree... Reading state information... Initializing package states... Writing extended state information... Building tag database... pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) The following NEW packages will be installed: autoconf{a} automake{a} autopoint{a} autotools-dev{a} bsdextrautils{a} debhelper{a} dh-autoreconf{a} dh-strip-nondeterminism{a} dwz{a} file{a} gettext{a} gettext-base{a} groff-base{a} intltool-debian{a} libarchive-zip-perl{a} libdebhelper-perl{a} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libncurses-dev{a} libncurses6{a} libpipeline1{a} libproc2-0{a} libreadline-dev{a} libreadline8t64{a} libtext-unidecode-perl{a} libtool{a} libuchardet0{a} libunistring5{a} libx11-6{a} libx11-data{a} libx11-dev{a} libxau-dev{a} libxau6{a} libxcb1{a} libxcb1-dev{a} libxdmcp-dev{a} libxdmcp6{a} libxml-libxml-perl{a} libxml-namespacesupport-perl{a} libxml-sax-base-perl{a} libxml-sax-perl{a} libxml2{a} m4{a} man-db{a} po-debconf{a} procps{a} readline-common{a} sensible-utils{a} slib{a} tex-common{a} texinfo{a} texinfo-lib{a} ucf{a} x11proto-dev{a} xorg-sgml-doctools{a} xtrans-dev{a} The following packages are RECOMMENDED but will NOT be installed: curl libarchive-cpio-perl libgpm2 libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl linux-sysctl-defaults lynx psmisc wget 0 packages upgraded, 59 newly installed, 0 to remove and 0 not upgraded. Need to get 28.2 MB of archives. After unpacking 115 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian unstable/main arm64 libproc2-0 arm64 2:4.0.4-6 [62.3 kB] Get: 2 http://deb.debian.org/debian unstable/main arm64 procps arm64 2:4.0.4-6 [872 kB] Get: 3 http://deb.debian.org/debian unstable/main arm64 readline-common all 8.2-6 [69.4 kB] Get: 4 http://deb.debian.org/debian unstable/main arm64 sensible-utils all 0.0.24 [24.8 kB] Get: 5 http://deb.debian.org/debian unstable/main arm64 libmagic-mgc arm64 1:5.45-3+b1 [314 kB] Get: 6 http://deb.debian.org/debian unstable/main arm64 libmagic1t64 arm64 1:5.45-3+b1 [102 kB] Get: 7 http://deb.debian.org/debian unstable/main arm64 file arm64 1:5.45-3+b1 [43.4 kB] Get: 8 http://deb.debian.org/debian unstable/main arm64 gettext-base arm64 0.22.5-4 [198 kB] Get: 9 http://deb.debian.org/debian unstable/main arm64 libuchardet0 arm64 0.0.8-1+b2 [69.2 kB] Get: 10 http://deb.debian.org/debian unstable/main arm64 groff-base arm64 1.23.0-7 [1129 kB] Get: 11 http://deb.debian.org/debian unstable/main arm64 bsdextrautils arm64 2.40.3-1 [91.5 kB] Get: 12 http://deb.debian.org/debian unstable/main arm64 libpipeline1 arm64 1.5.8-1 [40.2 kB] Get: 13 http://deb.debian.org/debian unstable/main arm64 man-db arm64 2.13.0-1 [1404 kB] Get: 14 http://deb.debian.org/debian unstable/main arm64 ucf all 3.0046 [41.1 kB] Get: 15 http://deb.debian.org/debian unstable/main arm64 m4 arm64 1.4.19-5 [284 kB] Get: 16 http://deb.debian.org/debian unstable/main arm64 autoconf all 2.72-3 [493 kB] Get: 17 http://deb.debian.org/debian unstable/main arm64 autotools-dev all 20220109.1 [51.6 kB] Get: 18 http://deb.debian.org/debian unstable/main arm64 automake all 1:1.16.5-1.3 [823 kB] Get: 19 http://deb.debian.org/debian unstable/main arm64 autopoint all 0.22.5-4 [723 kB] Get: 20 http://deb.debian.org/debian unstable/main arm64 libdebhelper-perl all 13.23 [90.6 kB] Get: 21 http://deb.debian.org/debian unstable/main arm64 libtool all 2.5.4-2 [539 kB] Get: 22 http://deb.debian.org/debian unstable/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 23 http://deb.debian.org/debian unstable/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 24 http://deb.debian.org/debian unstable/main arm64 libfile-stripnondeterminism-perl all 1.14.0-1 [19.5 kB] Get: 25 http://deb.debian.org/debian unstable/main arm64 dh-strip-nondeterminism all 1.14.0-1 [8448 B] Get: 26 http://deb.debian.org/debian unstable/main arm64 libelf1t64 arm64 0.192-4 [189 kB] Get: 27 http://deb.debian.org/debian unstable/main arm64 dwz arm64 0.15-1+b1 [102 kB] Get: 28 http://deb.debian.org/debian unstable/main arm64 libunistring5 arm64 1.3-1 [449 kB] Get: 29 http://deb.debian.org/debian unstable/main arm64 libicu72 arm64 72.1-6 [9239 kB] Get: 30 http://deb.debian.org/debian unstable/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB] Get: 31 http://deb.debian.org/debian unstable/main arm64 gettext arm64 0.22.5-4 [1532 kB] Get: 32 http://deb.debian.org/debian unstable/main arm64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 33 http://deb.debian.org/debian unstable/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 34 http://deb.debian.org/debian unstable/main arm64 debhelper all 13.23 [919 kB] Get: 35 http://deb.debian.org/debian unstable/main arm64 libncurses6 arm64 6.5-2+b1 [96.1 kB] Get: 36 http://deb.debian.org/debian unstable/main arm64 libncurses-dev arm64 6.5-2+b1 [338 kB] Get: 37 http://deb.debian.org/debian unstable/main arm64 libreadline8t64 arm64 8.2-6 [159 kB] Get: 38 http://deb.debian.org/debian unstable/main arm64 libreadline-dev arm64 8.2-6 [155 kB] Get: 39 http://deb.debian.org/debian unstable/main arm64 libtext-unidecode-perl all 1.30-3 [101 kB] Get: 40 http://deb.debian.org/debian unstable/main arm64 libxau6 arm64 1:1.0.11-1 [20.6 kB] Get: 41 http://deb.debian.org/debian unstable/main arm64 libxdmcp6 arm64 1:1.1.5-1 [27.8 kB] Get: 42 http://deb.debian.org/debian unstable/main arm64 libxcb1 arm64 1.17.0-2+b1 [143 kB] Get: 43 http://deb.debian.org/debian unstable/main arm64 libx11-data all 2:1.8.10-2 [337 kB] Get: 44 http://deb.debian.org/debian unstable/main arm64 libx11-6 arm64 2:1.8.10-2 [789 kB] Get: 45 http://deb.debian.org/debian unstable/main arm64 xorg-sgml-doctools all 1:1.11-1.1 [22.1 kB] Get: 46 http://deb.debian.org/debian unstable/main arm64 x11proto-dev all 2024.1-1 [603 kB] Get: 47 http://deb.debian.org/debian unstable/main arm64 libxau-dev arm64 1:1.0.11-1 [23.9 kB] Get: 48 http://deb.debian.org/debian unstable/main arm64 libxdmcp-dev arm64 1:1.1.5-1 [44.2 kB] Get: 49 http://deb.debian.org/debian unstable/main arm64 xtrans-dev all 1.4.0-1 [98.7 kB] Get: 50 http://deb.debian.org/debian unstable/main arm64 libxcb1-dev arm64 1.17.0-2+b1 [182 kB] Get: 51 http://deb.debian.org/debian unstable/main arm64 libx11-dev arm64 2:1.8.10-2 [877 kB] Get: 52 http://deb.debian.org/debian unstable/main arm64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB] Get: 53 http://deb.debian.org/debian unstable/main arm64 libxml-sax-base-perl all 1.09-3 [20.6 kB] Get: 54 http://deb.debian.org/debian unstable/main arm64 libxml-sax-perl all 1.02+dfsg-4 [53.4 kB] Get: 55 http://deb.debian.org/debian unstable/main arm64 libxml-libxml-perl arm64 2.0207+dfsg+really+2.0134-5+b1 [300 kB] Get: 56 http://deb.debian.org/debian unstable/main arm64 slib all 3b6-3 [837 kB] Get: 57 http://deb.debian.org/debian unstable/main arm64 tex-common all 6.18 [32.5 kB] Get: 58 http://deb.debian.org/debian unstable/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 59 http://deb.debian.org/debian unstable/main arm64 texinfo all 7.1.1-1 [1753 kB] Fetched 28.2 MB in 0s (96.4 MB/s) Preconfiguring packages ... Selecting previously unselected package libproc2-0:arm64. (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 ... 19963 files and directories currently installed.) Preparing to unpack .../00-libproc2-0_2%3a4.0.4-6_arm64.deb ... Unpacking libproc2-0:arm64 (2:4.0.4-6) ... Selecting previously unselected package procps. Preparing to unpack .../01-procps_2%3a4.0.4-6_arm64.deb ... Unpacking procps (2:4.0.4-6) ... Selecting previously unselected package readline-common. Preparing to unpack .../02-readline-common_8.2-6_all.deb ... Unpacking readline-common (8.2-6) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../03-sensible-utils_0.0.24_all.deb ... Unpacking sensible-utils (0.0.24) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../04-libmagic-mgc_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic-mgc (1:5.45-3+b1) ... Selecting previously unselected package libmagic1t64:arm64. Preparing to unpack .../05-libmagic1t64_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic1t64:arm64 (1:5.45-3+b1) ... Selecting previously unselected package file. Preparing to unpack .../06-file_1%3a5.45-3+b1_arm64.deb ... Unpacking file (1:5.45-3+b1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../07-gettext-base_0.22.5-4_arm64.deb ... Unpacking gettext-base (0.22.5-4) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../08-libuchardet0_0.0.8-1+b2_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.8-1+b2) ... Selecting previously unselected package groff-base. Preparing to unpack .../09-groff-base_1.23.0-7_arm64.deb ... Unpacking groff-base (1.23.0-7) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../10-bsdextrautils_2.40.3-1_arm64.deb ... Unpacking bsdextrautils (2.40.3-1) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../11-libpipeline1_1.5.8-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.8-1) ... Selecting previously unselected package man-db. Preparing to unpack .../12-man-db_2.13.0-1_arm64.deb ... Unpacking man-db (2.13.0-1) ... Selecting previously unselected package ucf. Preparing to unpack .../13-ucf_3.0046_all.deb ... Moving old data out of the way Unpacking ucf (3.0046) ... Selecting previously unselected package m4. Preparing to unpack .../14-m4_1.4.19-5_arm64.deb ... Unpacking m4 (1.4.19-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../15-autoconf_2.72-3_all.deb ... Unpacking autoconf (2.72-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../16-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../17-automake_1%3a1.16.5-1.3_all.deb ... Unpacking automake (1:1.16.5-1.3) ... Selecting previously unselected package autopoint. Preparing to unpack .../18-autopoint_0.22.5-4_all.deb ... Unpacking autopoint (0.22.5-4) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../19-libdebhelper-perl_13.23_all.deb ... Unpacking libdebhelper-perl (13.23) ... Selecting previously unselected package libtool. Preparing to unpack .../20-libtool_2.5.4-2_all.deb ... Unpacking libtool (2.5.4-2) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../21-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../22-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../23-libfile-stripnondeterminism-perl_1.14.0-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.14.0-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../24-dh-strip-nondeterminism_1.14.0-1_all.deb ... Unpacking dh-strip-nondeterminism (1.14.0-1) ... Selecting previously unselected package libelf1t64:arm64. Preparing to unpack .../25-libelf1t64_0.192-4_arm64.deb ... Unpacking libelf1t64:arm64 (0.192-4) ... Selecting previously unselected package dwz. Preparing to unpack .../26-dwz_0.15-1+b1_arm64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libunistring5:arm64. Preparing to unpack .../27-libunistring5_1.3-1_arm64.deb ... Unpacking libunistring5:arm64 (1.3-1) ... Selecting previously unselected package libicu72:arm64. Preparing to unpack .../28-libicu72_72.1-6_arm64.deb ... Unpacking libicu72:arm64 (72.1-6) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../29-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ... Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Selecting previously unselected package gettext. Preparing to unpack .../30-gettext_0.22.5-4_arm64.deb ... Unpacking gettext (0.22.5-4) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../31-intltool-debian_0.35.0+20060710.6_all.deb ... Unpacking intltool-debian (0.35.0+20060710.6) ... Selecting previously unselected package po-debconf. Preparing to unpack .../32-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../33-debhelper_13.23_all.deb ... Unpacking debhelper (13.23) ... Selecting previously unselected package libncurses6:arm64. Preparing to unpack .../34-libncurses6_6.5-2+b1_arm64.deb ... Unpacking libncurses6:arm64 (6.5-2+b1) ... Selecting previously unselected package libncurses-dev:arm64. Preparing to unpack .../35-libncurses-dev_6.5-2+b1_arm64.deb ... Unpacking libncurses-dev:arm64 (6.5-2+b1) ... Selecting previously unselected package libreadline8t64:arm64. Preparing to unpack .../36-libreadline8t64_8.2-6_arm64.deb ... Adding 'diversion of /lib/aarch64-linux-gnu/libhistory.so.8 to /lib/aarch64-linux-gnu/libhistory.so.8.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/aarch64-linux-gnu/libhistory.so.8.2 to /lib/aarch64-linux-gnu/libhistory.so.8.2.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/aarch64-linux-gnu/libreadline.so.8 to /lib/aarch64-linux-gnu/libreadline.so.8.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/aarch64-linux-gnu/libreadline.so.8.2 to /lib/aarch64-linux-gnu/libreadline.so.8.2.usr-is-merged by libreadline8t64' Unpacking libreadline8t64:arm64 (8.2-6) ... Selecting previously unselected package libreadline-dev:arm64. Preparing to unpack .../37-libreadline-dev_8.2-6_arm64.deb ... Unpacking libreadline-dev:arm64 (8.2-6) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../38-libtext-unidecode-perl_1.30-3_all.deb ... Unpacking libtext-unidecode-perl (1.30-3) ... Selecting previously unselected package libxau6:arm64. Preparing to unpack .../39-libxau6_1%3a1.0.11-1_arm64.deb ... Unpacking libxau6:arm64 (1:1.0.11-1) ... Selecting previously unselected package libxdmcp6:arm64. Preparing to unpack .../40-libxdmcp6_1%3a1.1.5-1_arm64.deb ... Unpacking libxdmcp6:arm64 (1:1.1.5-1) ... Selecting previously unselected package libxcb1:arm64. Preparing to unpack .../41-libxcb1_1.17.0-2+b1_arm64.deb ... Unpacking libxcb1:arm64 (1.17.0-2+b1) ... Selecting previously unselected package libx11-data. Preparing to unpack .../42-libx11-data_2%3a1.8.10-2_all.deb ... Unpacking libx11-data (2:1.8.10-2) ... Selecting previously unselected package libx11-6:arm64. Preparing to unpack .../43-libx11-6_2%3a1.8.10-2_arm64.deb ... Unpacking libx11-6:arm64 (2:1.8.10-2) ... Selecting previously unselected package xorg-sgml-doctools. Preparing to unpack .../44-xorg-sgml-doctools_1%3a1.11-1.1_all.deb ... Unpacking xorg-sgml-doctools (1:1.11-1.1) ... Selecting previously unselected package x11proto-dev. Preparing to unpack .../45-x11proto-dev_2024.1-1_all.deb ... Unpacking x11proto-dev (2024.1-1) ... Selecting previously unselected package libxau-dev:arm64. Preparing to unpack .../46-libxau-dev_1%3a1.0.11-1_arm64.deb ... Unpacking libxau-dev:arm64 (1:1.0.11-1) ... Selecting previously unselected package libxdmcp-dev:arm64. Preparing to unpack .../47-libxdmcp-dev_1%3a1.1.5-1_arm64.deb ... Unpacking libxdmcp-dev:arm64 (1:1.1.5-1) ... Selecting previously unselected package xtrans-dev. Preparing to unpack .../48-xtrans-dev_1.4.0-1_all.deb ... Unpacking xtrans-dev (1.4.0-1) ... Selecting previously unselected package libxcb1-dev:arm64. Preparing to unpack .../49-libxcb1-dev_1.17.0-2+b1_arm64.deb ... Unpacking libxcb1-dev:arm64 (1.17.0-2+b1) ... Selecting previously unselected package libx11-dev:arm64. Preparing to unpack .../50-libx11-dev_2%3a1.8.10-2_arm64.deb ... Unpacking libx11-dev:arm64 (2:1.8.10-2) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../51-libxml-namespacesupport-perl_1.12-2_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-2) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../52-libxml-sax-base-perl_1.09-3_all.deb ... Unpacking libxml-sax-base-perl (1.09-3) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../53-libxml-sax-perl_1.02+dfsg-4_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-4) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../54-libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b1) ... Selecting previously unselected package slib. Preparing to unpack .../55-slib_3b6-3_all.deb ... Unpacking slib (3b6-3) ... Selecting previously unselected package tex-common. Preparing to unpack .../56-tex-common_6.18_all.deb ... Unpacking tex-common (6.18) ... Selecting previously unselected package texinfo-lib. Preparing to unpack .../57-texinfo-lib_7.1.1-1+b1_arm64.deb ... Unpacking texinfo-lib (7.1.1-1+b1) ... Selecting previously unselected package texinfo. Preparing to unpack .../58-texinfo_7.1.1-1_all.deb ... Unpacking texinfo (7.1.1-1) ... Setting up libpipeline1:arm64 (1.5.8-1) ... Setting up libxau6:arm64 (1:1.0.11-1) ... Setting up libxdmcp6:arm64 (1:1.1.5-1) ... Setting up libxcb1:arm64 (1.17.0-2+b1) ... Setting up libicu72:arm64 (72.1-6) ... Setting up bsdextrautils (2.40.3-1) ... Setting up libmagic-mgc (1:5.45-3+b1) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.23) ... Setting up libmagic1t64:arm64 (1:5.45-3+b1) ... Setting up libxml-namespacesupport-perl (1.12-2) ... Setting up gettext-base (0.22.5-4) ... Setting up m4 (1.4.19-5) ... Setting up file (1:5.45-3+b1) ... Setting up texinfo-lib (7.1.1-1+b1) ... Setting up libelf1t64:arm64 (0.192-4) ... Setting up libxml-sax-base-perl (1.09-3) ... Setting up xtrans-dev (1.4.0-1) ... Setting up autotools-dev (20220109.1) ... Setting up libx11-data (2:1.8.10-2) ... Setting up libncurses6:arm64 (6.5-2+b1) ... Setting up libproc2-0:arm64 (2:4.0.4-6) ... Setting up libunistring5:arm64 (1.3-1) ... Setting up autopoint (0.22.5-4) ... Setting up autoconf (2.72-3) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.24) ... Setting up libuchardet0:arm64 (0.0.8-1+b2) ... Setting up procps (2:4.0.4-6) ... Setting up libx11-6:arm64 (2:1.8.10-2) ... Setting up xorg-sgml-doctools (1:1.11-1.1) ... Setting up libtext-unidecode-perl (1.30-3) ... Setting up readline-common (8.2-6) ... Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Setting up automake (1:1.16.5-1.3) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up x11proto-dev (2024.1-1) ... Setting up libfile-stripnondeterminism-perl (1.14.0-1) ... Setting up libncurses-dev:arm64 (6.5-2+b1) ... Setting up gettext (0.22.5-4) ... Setting up libxau-dev:arm64 (1:1.0.11-1) ... Setting up libtool (2.5.4-2) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up slib (3b6-3) ... Setting up dh-autoreconf (20) ... Setting up libxdmcp-dev:arm64 (1:1.1.5-1) ... Setting up ucf (3.0046) ... Setting up libreadline8t64:arm64 (8.2-6) ... Setting up dh-strip-nondeterminism (1.14.0-1) ... Setting up groff-base (1.23.0-7) ... Setting up libxcb1-dev:arm64 (1.17.0-2+b1) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up libx11-dev:arm64 (2:1.8.10-2) ... Setting up libreadline-dev:arm64 (8.2-6) ... Setting up man-db (2.13.0-1) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-4) ... update-perl-sax-parsers: Registering Perl SAX parser XML::SAX::PurePerl with priority 10... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Creating config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up tex-common (6.18) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b1) ... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up debhelper (13.23) ... Setting up texinfo (7.1.1-1) ... Processing triggers for libc-bin (2.40-5) ... Reading package lists... Building dependency tree... Reading state information... Reading extended state information... Initializing package states... Writing extended state information... Building tag database... -> Finished parsing the build-deps I: Building the package I: Running cd /build/reproducible-path/scm-5f4/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../scm_5f4-3_source.changes dpkg-buildpackage: info: source package scm dpkg-buildpackage: info: source version 5f4-3 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Gwen Weinholt <weinholt@debian.org> dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 debian/rules clean dh clean debian/rules override_dh_testdir make[1]: Entering directory '/build/reproducible-path/scm-5f4' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/reproducible-path/scm-5f4' dh_auto_clean make -j12 distclean make[1]: Entering directory '/build/reproducible-path/scm-5f4' 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/reproducible-path/scm-5f4' dh_clean debian/rules binary dh binary debian/rules override_dh_testdir make[1]: Entering directory '/build/reproducible-path/scm-5f4' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/reproducible-path/scm-5f4' dh_update_autotools_config dh_autoreconf debian/rules override_dh_auto_configure make[1]: Entering directory '/build/reproducible-path/scm-5f4' ./configure #! /bin/cat # Generated by configure for scm 5f4. # This file (config.status) is included by the (scm) Makefile. PACKAGE_NAME=scm PACKAGE_TARNAME=scm PACKAGE_VERSION=5f4 PACKAGE_STRING=scm 5f4 PACKAGE_BUGREPORT=scm-discuss@gnu.org srcdir=/build/reproducible-path/scm-5f4/ 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/reproducible-path/scm-5f4' debian/rules override_dh_auto_build make[1]: Entering directory '/build/reproducible-path/scm-5f4' make scmlit make[2]: Entering directory '/build/reproducible-path/scm-5f4' echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"/build/reproducible-path/scm-5f4/Init5f4.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 -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 scm.c -o scm.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 time.c -o time.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 repl.c -o repl.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 scl.c -o scl.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 sys.c -o sys.o In file included from scm.h:65, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:465:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 465 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:293:39: note: in expansion of macro 'PTR2INT' 293 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:292:20: note: in expansion of macro 'NCELLP' 292 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2652:29: note: in expansion of macro 'CELLP' 2652 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 eval.c -o eval.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 subr.c -o subr.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 unif.c -o unif.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 rope.c -o rope.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 continue.c -o continue.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 findexec.c -o findexec.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 script.c -o script.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 debug.c -o debug.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 scmmain.c -o scmmain.o cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o -Wl,-z,relro -Wl,-z,now /usr/bin/ld: sys.o: in function `ltmpnam': ././sys.c:267:(.text+0xae4): warning: the use of `tmpnam' is dangerous, better use `mkstemp' make checklit make[3]: Entering directory '/build/reproducible-path/scm-5f4' ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null SECTION(2 1) SECTION(3 4) #<primitive-procedure boolean?> #<primitive-procedure char?> #<primitive-procedure null?> #<primitive-procedure number?> #<primitive-procedure pair?> #<primitive-procedure procedure?> #<primitive-procedure string?> #<primitive-procedure symbol?> #<primitive-procedure vector?> (#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)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))> (#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) (#<primitive-procedure *> 3 4) ==> 12 SECTION(4 1 4) (#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10) ==> 3 (#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (#<CLOSURE <anon> "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 (#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> (3 6) (#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5 (define 34) ==> 34 (#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5 (define 34) ==> 34 (#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88) ==> 88 (#<CLOSURE foo "r4rstest.scm": (x) (#@let () (#@define ((x 5)) #@x)) #@x> 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (#<primitive-procedure not> #t) ==> #f (#<primitive-procedure not> 3) ==> #f (#<primitive-procedure not> (3)) ==> #f (#<primitive-procedure not> #f) ==> #t (#<primitive-procedure not> ()) ==> #f (#<primitive-procedure not> ()) ==> #f (#<primitive-procedure not> nil) ==> #f SECTION(6 2) (#<primitive-procedure eqv?> a a) ==> #t (#<primitive-procedure eqv?> a b) ==> #f (#<primitive-procedure eqv?> 2 2) ==> #t (#<primitive-procedure eqv?> () ()) ==> #t (#<primitive-procedure eqv?> 10000 10000) ==> #t (#<primitive-procedure eqv?> (1 . 2) (1 . 2)) ==> #f (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>) ==> #f (#<primitive-procedure eqv?> #f nil) ==> #f (#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>) ==> #t (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>) ==> #f (#<primitive-procedure eq?> a a) ==> #t (#<primitive-procedure eq?> (a) (a)) ==> #f (#<primitive-procedure eq?> () ()) ==> #t (#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>) ==> #t (#<primitive-procedure eq?> (a) (a)) ==> #t (#<primitive-procedure eq?> #() #()) ==> #t (#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>) ==> #t (#<primitive-procedure equal?> a a) ==> #t (#<primitive-procedure equal?> (a) (a)) ==> #t (#<primitive-procedure equal?> (a (b) c) (a (b) c)) ==> #t (#<primitive-procedure equal?> "abc" "abc") ==> #t (#<primitive-procedure equal?> 2 2) ==> #t (#<primitive-procedure equal?> #(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) (#<primitive-procedure list?> (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (#<primitive-procedure eqv?> (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (#<primitive-procedure list?> (a . 4)) ==> #f (list? #f) ==> #f (#<primitive-procedure cons> a ()) ==> (a) (#<primitive-procedure cons> (a) (b c d)) ==> ((a) b c d) (#<primitive-procedure cons> "a" (b c)) ==> ("a" b c) (#<primitive-procedure cons> a 3) ==> (a . 3) (#<primitive-procedure cons> (a b) c) ==> ((a b) . c) (#<primitive-procedure car> (a b c)) ==> a (#<primitive-procedure car> ((a) b c d)) ==> (a) (#<primitive-procedure car> (1 . 2)) ==> 1 (#<primitive-procedure cdr> ((a) b c d)) ==> (b c d) (#<primitive-procedure cdr> (1 . 2)) ==> 2 (#<primitive-procedure list> a 7 c) ==> (a 7 c) (#<primitive-procedure list>) ==> () (#<primitive-procedure length> (a b c)) ==> 3 (#<primitive-procedure length> (a (b) (c d e))) ==> 3 (#<primitive-procedure length> ()) ==> 0 (#<primitive-procedure append> (x) (y)) ==> (x y) (#<primitive-procedure append> (a) (b c d)) ==> (a b c d) (#<primitive-procedure append> (a (b)) ((c))) ==> (a (b) (c)) (#<primitive-procedure append>) ==> () (#<primitive-procedure append> (a b) (c . d)) ==> (a b c . d) (#<primitive-procedure append> () a) ==> a (#<primitive-procedure reverse> (a b c)) ==> (c b a) (#<primitive-procedure reverse> (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (#<primitive-procedure list-ref> (a b c d) 2) ==> c (#<primitive-procedure memq> a (a b c)) ==> (a b c) (#<primitive-procedure memq> b (a b c)) ==> (b c) (#<primitive-procedure memq> a (b c d)) ==> #f (#<primitive-procedure memq> (a) (b (a) c)) ==> #f (#<primitive-procedure member> (a) (b (a) c)) ==> ((a) c) (#<primitive-procedure memv> 101 (100 101 102)) ==> (101 102) (#<primitive-procedure assq> a ((a 1) (b 2) (c 3))) ==> (a 1) (#<primitive-procedure assq> b ((a 1) (b 2) (c 3))) ==> (b 2) (#<primitive-procedure assq> d ((a 1) (b 2) (c 3))) ==> #f (#<primitive-procedure assq> (a) (((a)) ((b)) ((c)))) ==> #f (#<primitive-procedure assoc> (a) (((a)) ((b)) ((c)))) ==> ((a)) (#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (#<primitive-procedure symbol?> a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#<primitive-procedure symbol->string> flying-fish) ==> "flying-fish" (#<primitive-procedure symbol->string> martin) ==> "martin" (#<primitive-procedure symbol->string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#<primitive-procedure symbol->string> ab) ==> "ab" (#<primitive-procedure string->symbol> "ab") ==> ab (#<primitive-procedure eq?> mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#<primitive-procedure string->symbol> "jollywog") ==> jollywog SECTION(6 5 5) (#<primitive-procedure number?> 3) ==> #t (#<primitive-procedure complex?> 3) ==> #t (#<primitive-procedure real?> 3) ==> #t (#<primitive-procedure rational?> 3) ==> #t (#<primitive-procedure integer?> 3) ==> #t (#<primitive-procedure exact?> 3) ==> #t (#<primitive-procedure inexact?> 3) ==> #f (#<primitive-procedure integer-expt> 0 0) ==> 1 (#<primitive-procedure integer-expt> 0 1) ==> 0 (#<primitive-procedure integer-expt> 0 256) ==> 0 (#<primitive-procedure integer-expt> -1 256) ==> 1 (#<primitive-procedure integer-expt> -1 255) ==> -1 (#<primitive-procedure integer-expt> -1 -256) ==> 1 (#<primitive-procedure integer-expt> -1 -255) ==> -1 (#<primitive-procedure integer-expt> 256 0) ==> 1 (#<primitive-procedure integer-expt> -256 0) ==> 1 (#<primitive-procedure integer-expt> 256 1) ==> 256 (#<primitive-procedure integer-expt> -256 1) ==> -256 (#<primitive-procedure integer-expt> 2 3) ==> 8 (#<primitive-procedure integer-expt> -2 3) ==> -8 (#<primitive-procedure integer-expt> 3 2) ==> 9 (#<primitive-procedure integer-expt> -3 2) ==> 9 (#<primitive-procedure => 22 22 22) ==> #t (#<primitive-procedure => 22 22) ==> #t (#<primitive-procedure => 34 34 35) ==> #f (#<primitive-procedure => 34 35) ==> #f (#<primitive-procedure >> 3 -6246) ==> #t (#<primitive-procedure >> 9 9 -2424) ==> #f (#<primitive-procedure >=> 3 -4 -6246) ==> #t (#<primitive-procedure >=> 9 9) ==> #t (#<primitive-procedure >=> 8 9) ==> #f (#<primitive-procedure <> -1 2 3 4 5 6 7 8) ==> #t (#<primitive-procedure <> -1 2 3 4 4 5 6 7) ==> #f (#<primitive-procedure <=> -1 2 3 4 5 6 7 8) ==> #t (#<primitive-procedure <=> -1 2 3 4 4 5 6 7) ==> #t (#<primitive-procedure <> 1 3 2) ==> #f (#<primitive-procedure >=> 1 3 2) ==> #f (#<primitive-procedure zero?> 0) ==> #t (#<primitive-procedure zero?> 1) ==> #f (#<primitive-procedure zero?> -1) ==> #f (#<primitive-procedure zero?> -100) ==> #f (#<primitive-procedure positive?> 4) ==> #t (#<primitive-procedure positive?> -4) ==> #f (#<primitive-procedure positive?> 0) ==> #f (#<primitive-procedure negative?> 4) ==> #f (#<primitive-procedure negative?> -4) ==> #t (#<primitive-procedure negative?> 0) ==> #f (#<primitive-procedure odd?> 3) ==> #t (#<primitive-procedure odd?> 2) ==> #f (#<primitive-procedure odd?> -4) ==> #f (#<primitive-procedure odd?> -1) ==> #t (#<primitive-procedure even?> 3) ==> #f (#<primitive-procedure even?> 2) ==> #t (#<primitive-procedure even?> -4) ==> #t (#<primitive-procedure even?> -1) ==> #f (#<primitive-procedure max> 34 5 7 38 6) ==> 38 (#<primitive-procedure min> 3 5 5 330 4 -24) ==> -24 (#<primitive-procedure +> 3 4) ==> 7 (#<primitive-procedure +> 3) ==> 3 (#<primitive-procedure +>) ==> 0 (#<primitive-procedure *> 4) ==> 4 (#<primitive-procedure *>) ==> 1 (#<primitive-procedure /> 1) ==> 1 (#<primitive-procedure /> -1) ==> -1 (#<primitive-procedure /> 6 3) ==> 2 (#<primitive-procedure /> 6 -2) ==> -3 (#<primitive-procedure /> -6 2) ==> -3 (#<primitive-procedure /> -6 -2) ==> 3 (#<primitive-procedure -> 3 4) ==> -1 (#<primitive-procedure -> 3) ==> -3 (#<primitive-procedure abs> -7) ==> 7 (#<primitive-procedure abs> 7) ==> 7 (#<primitive-procedure abs> 0) ==> 0 (#<primitive-procedure quotient> 35 7) ==> 5 (#<primitive-procedure quotient> -35 7) ==> -5 (#<primitive-procedure quotient> 35 -7) ==> -5 (#<primitive-procedure quotient> -35 -7) ==> 5 (#<primitive-procedure modulo> 13 4) ==> 1 (#<primitive-procedure remainder> 13 4) ==> 1 (#<primitive-procedure modulo> -13 4) ==> 3 (#<primitive-procedure remainder> -13 4) ==> -1 (#<primitive-procedure modulo> 13 -4) ==> -3 (#<primitive-procedure remainder> 13 -4) ==> 1 (#<primitive-procedure modulo> -13 -4) ==> -1 (#<primitive-procedure remainder> -13 -4) ==> -1 (#<primitive-procedure modulo> 0 86400) ==> 0 (#<primitive-procedure modulo> 0 -86400) ==> 0 (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9) ==> #t (#<primitive-procedure gcd> 0 4) ==> 4 (#<primitive-procedure gcd> -4 0) ==> 4 (#<primitive-procedure gcd> 32 -36) ==> 4 (#<primitive-procedure gcd>) ==> 0 (#<primitive-procedure lcm> 32 -36) ==> 288 (#<primitive-procedure lcm>) ==> 1 SECTION(6 5 5) (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#<CLOSURE test-string->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) (#<primitive-procedure number->string> 0) ==> "0" (#<primitive-procedure number->string> 100) ==> "100" (#<primitive-procedure number->string> 256 16) ==> "100" (#<primitive-procedure string->number> "100") ==> 100 (#<primitive-procedure string->number> "100" 16) ==> 256 (#<primitive-procedure string->number> "") ==> #f (#<primitive-procedure string->number> ".") ==> #f (#<primitive-procedure string->number> "d") ==> #f (#<primitive-procedure string->number> "D") ==> #f (#<primitive-procedure string->number> "i") ==> #f (#<primitive-procedure string->number> "I") ==> #f (#<primitive-procedure string->number> "3i") ==> #f (#<primitive-procedure string->number> "3I") ==> #f (#<primitive-procedure string->number> "33i") ==> #f (#<primitive-procedure string->number> "33I") ==> #f (#<primitive-procedure string->number> "3.3i") ==> #f (#<primitive-procedure string->number> "3.3I") ==> #f (#<primitive-procedure string->number> "-") ==> #f (#<primitive-procedure string->number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (#<primitive-procedure eqv?> #\space #\space) ==> #t (#<primitive-procedure eqv?> #\space #\space) ==> #t (#<primitive-procedure char?> #\a) ==> #t (#<primitive-procedure char?> #\() ==> #t (#<primitive-procedure char?> #\space) ==> #t (#<primitive-procedure char?> #\nl) ==> #t (#<primitive-procedure char=?> #\A #\B) ==> #f (#<primitive-procedure char=?> #\a #\b) ==> #f (#<primitive-procedure char=?> #\9 #\0) ==> #f (#<primitive-procedure char=?> #\A #\A) ==> #t (#<primitive-procedure char<?> #\A #\B) ==> #t (#<primitive-procedure char<?> #\a #\b) ==> #t (#<primitive-procedure char<?> #\9 #\0) ==> #f (#<primitive-procedure char<?> #\A #\A) ==> #f (#<primitive-procedure char>?> #\A #\B) ==> #f (#<primitive-procedure char>?> #\a #\b) ==> #f (#<primitive-procedure char>?> #\9 #\0) ==> #t (#<primitive-procedure char>?> #\A #\A) ==> #f (#<primitive-procedure char<=?> #\A #\B) ==> #t (#<primitive-procedure char<=?> #\a #\b) ==> #t (#<primitive-procedure char<=?> #\9 #\0) ==> #f (#<primitive-procedure char<=?> #\A #\A) ==> #t (#<primitive-procedure char>=?> #\A #\B) ==> #f (#<primitive-procedure char>=?> #\a #\b) ==> #f (#<primitive-procedure char>=?> #\9 #\0) ==> #t (#<primitive-procedure char>=?> #\A #\A) ==> #t (#<primitive-procedure char-ci=?> #\A #\B) ==> #f (#<primitive-procedure char-ci=?> #\a #\B) ==> #f (#<primitive-procedure char-ci=?> #\A #\b) ==> #f (#<primitive-procedure char-ci=?> #\a #\b) ==> #f (#<primitive-procedure char-ci=?> #\9 #\0) ==> #f (#<primitive-procedure char-ci=?> #\A #\A) ==> #t (#<primitive-procedure char-ci=?> #\A #\a) ==> #t (#<primitive-procedure char-ci<?> #\A #\B) ==> #t (#<primitive-procedure char-ci<?> #\a #\B) ==> #t (#<primitive-procedure char-ci<?> #\A #\b) ==> #t (#<primitive-procedure char-ci<?> #\a #\b) ==> #t (#<primitive-procedure char-ci<?> #\9 #\0) ==> #f (#<primitive-procedure char-ci<?> #\A #\A) ==> #f (#<primitive-procedure char-ci<?> #\A #\a) ==> #f (#<primitive-procedure char-ci>?> #\A #\B) ==> #f (#<primitive-procedure char-ci>?> #\a #\B) ==> #f (#<primitive-procedure char-ci>?> #\A #\b) ==> #f (#<primitive-procedure char-ci>?> #\a #\b) ==> #f (#<primitive-procedure char-ci>?> #\9 #\0) ==> #t (#<primitive-procedure char-ci>?> #\A #\A) ==> #f (#<primitive-procedure char-ci>?> #\A #\a) ==> #f (#<primitive-procedure char-ci<=?> #\A #\B) ==> #t (#<primitive-procedure char-ci<=?> #\a #\B) ==> #t (#<primitive-procedure char-ci<=?> #\A #\b) ==> #t (#<primitive-procedure char-ci<=?> #\a #\b) ==> #t (#<primitive-procedure char-ci<=?> #\9 #\0) ==> #f (#<primitive-procedure char-ci<=?> #\A #\A) ==> #t (#<primitive-procedure char-ci<=?> #\A #\a) ==> #t (#<primitive-procedure char-ci>=?> #\A #\B) ==> #f (#<primitive-procedure char-ci>=?> #\a #\B) ==> #f (#<primitive-procedure char-ci>=?> #\A #\b) ==> #f (#<primitive-procedure char-ci>=?> #\a #\b) ==> #f (#<primitive-procedure char-ci>=?> #\9 #\0) ==> #t (#<primitive-procedure char-ci>=?> #\A #\A) ==> #t (#<primitive-procedure char-ci>=?> #\A #\a) ==> #t (#<primitive-procedure char-alphabetic?> #\a) ==> #t (#<primitive-procedure char-alphabetic?> #\A) ==> #t (#<primitive-procedure char-alphabetic?> #\z) ==> #t (#<primitive-procedure char-alphabetic?> #\Z) ==> #t (#<primitive-procedure char-alphabetic?> #\0) ==> #f (#<primitive-procedure char-alphabetic?> #\9) ==> #f (#<primitive-procedure char-alphabetic?> #\space) ==> #f (#<primitive-procedure char-alphabetic?> #\;) ==> #f (#<primitive-procedure char-numeric?> #\a) ==> #f (#<primitive-procedure char-numeric?> #\A) ==> #f (#<primitive-procedure char-numeric?> #\z) ==> #f (#<primitive-procedure char-numeric?> #\Z) ==> #f (#<primitive-procedure char-numeric?> #\0) ==> #t (#<primitive-procedure char-numeric?> #\9) ==> #t (#<primitive-procedure char-numeric?> #\space) ==> #f (#<primitive-procedure char-numeric?> #\;) ==> #f (#<primitive-procedure char-whitespace?> #\a) ==> #f (#<primitive-procedure char-whitespace?> #\A) ==> #f (#<primitive-procedure char-whitespace?> #\z) ==> #f (#<primitive-procedure char-whitespace?> #\Z) ==> #f (#<primitive-procedure char-whitespace?> #\0) ==> #f (#<primitive-procedure char-whitespace?> #\9) ==> #f (#<primitive-procedure char-whitespace?> #\space) ==> #t (#<primitive-procedure char-whitespace?> #\;) ==> #f (#<primitive-procedure char-upper-case?> #\0) ==> #f (#<primitive-procedure char-upper-case?> #\9) ==> #f (#<primitive-procedure char-upper-case?> #\space) ==> #f (#<primitive-procedure char-upper-case?> #\;) ==> #f (#<primitive-procedure char-lower-case?> #\0) ==> #f (#<primitive-procedure char-lower-case?> #\9) ==> #f (#<primitive-procedure char-lower-case?> #\space) ==> #f (#<primitive-procedure char-lower-case?> #\;) ==> #f (#<primitive-procedure integer->char> 46) ==> #\. (#<primitive-procedure integer->char> 65) ==> #\A (#<primitive-procedure integer->char> 97) ==> #\a (#<primitive-procedure char-upcase> #\A) ==> #\A (#<primitive-procedure char-upcase> #\a) ==> #\A (#<primitive-procedure char-downcase> #\A) ==> #\a (#<primitive-procedure char-downcase> #\a) ==> #\a SECTION(6 7) (#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (#<primitive-procedure string> #\a #\b #\c) ==> "abc" (#<primitive-procedure string>) ==> "" (#<primitive-procedure string-length> "abc") ==> 3 (#<primitive-procedure string-ref> "abc" 0) ==> #\a (#<primitive-procedure string-ref> "abc" 2) ==> #\c (#<primitive-procedure string-length> "") ==> 0 (#<primitive-procedure substring> "ab" 0 0) ==> "" (#<primitive-procedure substring> "ab" 1 1) ==> "" (#<primitive-procedure substring> "ab" 2 2) ==> "" (#<primitive-procedure substring> "ab" 0 1) ==> "a" (#<primitive-procedure substring> "ab" 1 2) ==> "b" (#<primitive-procedure substring> "ab" 0 2) ==> "ab" (#<primitive-procedure string-append> "foo" "bar") ==> "foobar" (#<primitive-procedure string-append> "foo") ==> "foo" (#<primitive-procedure string-append> "foo" "") ==> "foo" (#<primitive-procedure string-append> "" "foo") ==> "foo" (#<primitive-procedure string-append>) ==> "" (#<primitive-procedure make-string> 0) ==> "" (#<primitive-procedure string=?> "" "") ==> #t (#<primitive-procedure string<?> "" "") ==> #f (#<primitive-procedure string>?> "" "") ==> #f (#<primitive-procedure string<=?> "" "") ==> #t (#<primitive-procedure string>=?> "" "") ==> #t (#<primitive-procedure string-ci=?> "" "") ==> #t (#<primitive-procedure string-ci<?> "" "") ==> #f (#<primitive-procedure string-ci>?> "" "") ==> #f (#<primitive-procedure string-ci<=?> "" "") ==> #t (#<primitive-procedure string-ci>=?> "" "") ==> #t (#<primitive-procedure string=?> "A" "B") ==> #f (#<primitive-procedure string=?> "a" "b") ==> #f (#<primitive-procedure string=?> "9" "0") ==> #f (#<primitive-procedure string=?> "A" "A") ==> #t (#<primitive-procedure string<?> "A" "B") ==> #t (#<primitive-procedure string<?> "a" "b") ==> #t (#<primitive-procedure string<?> "9" "0") ==> #f (#<primitive-procedure string<?> "A" "A") ==> #f (#<primitive-procedure string>?> "A" "B") ==> #f (#<primitive-procedure string>?> "a" "b") ==> #f (#<primitive-procedure string>?> "9" "0") ==> #t (#<primitive-procedure string>?> "A" "A") ==> #f (#<primitive-procedure string<=?> "A" "B") ==> #t (#<primitive-procedure string<=?> "a" "b") ==> #t (#<primitive-procedure string<=?> "9" "0") ==> #f (#<primitive-procedure string<=?> "A" "A") ==> #t (#<primitive-procedure string>=?> "A" "B") ==> #f (#<primitive-procedure string>=?> "a" "b") ==> #f (#<primitive-procedure string>=?> "9" "0") ==> #t (#<primitive-procedure string>=?> "A" "A") ==> #t (#<primitive-procedure string-ci=?> "A" "B") ==> #f (#<primitive-procedure string-ci=?> "a" "B") ==> #f (#<primitive-procedure string-ci=?> "A" "b") ==> #f (#<primitive-procedure string-ci=?> "a" "b") ==> #f (#<primitive-procedure string-ci=?> "9" "0") ==> #f (#<primitive-procedure string-ci=?> "A" "A") ==> #t (#<primitive-procedure string-ci=?> "A" "a") ==> #t (#<primitive-procedure string-ci<?> "A" "B") ==> #t (#<primitive-procedure string-ci<?> "a" "B") ==> #t (#<primitive-procedure string-ci<?> "A" "b") ==> #t (#<primitive-procedure string-ci<?> "a" "b") ==> #t (#<primitive-procedure string-ci<?> "9" "0") ==> #f (#<primitive-procedure string-ci<?> "A" "A") ==> #f (#<primitive-procedure string-ci<?> "A" "a") ==> #f (#<primitive-procedure string-ci>?> "A" "B") ==> #f (#<primitive-procedure string-ci>?> "a" "B") ==> #f (#<primitive-procedure string-ci>?> "A" "b") ==> #f (#<primitive-procedure string-ci>?> "a" "b") ==> #f (#<primitive-procedure string-ci>?> "9" "0") ==> #t (#<primitive-procedure string-ci>?> "A" "A") ==> #f (#<primitive-procedure string-ci>?> "A" "a") ==> #f (#<primitive-procedure string-ci<=?> "A" "B") ==> #t (#<primitive-procedure string-ci<=?> "a" "B") ==> #t (#<primitive-procedure string-ci<=?> "A" "b") ==> #t (#<primitive-procedure string-ci<=?> "a" "b") ==> #t (#<primitive-procedure string-ci<=?> "9" "0") ==> #f (#<primitive-procedure string-ci<=?> "A" "A") ==> #t (#<primitive-procedure string-ci<=?> "A" "a") ==> #t (#<primitive-procedure string-ci>=?> "A" "B") ==> #f (#<primitive-procedure string-ci>=?> "a" "B") ==> #f (#<primitive-procedure string-ci>=?> "A" "b") ==> #f (#<primitive-procedure string-ci>=?> "a" "b") ==> #f (#<primitive-procedure string-ci>=?> "9" "0") ==> #t (#<primitive-procedure string-ci>=?> "A" "A") ==> #t (#<primitive-procedure string-ci>=?> "A" "a") ==> #t SECTION(6 8) (#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna")) ==> #t (#<primitive-procedure vector> a b c) ==> #(a b c) (#<primitive-procedure vector>) ==> #() (#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna")) ==> 3 (#<primitive-procedure vector-length> #()) ==> 0 (#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (#<primitive-procedure make-vector> 2 hi) ==> #(hi hi) (#<primitive-procedure make-vector> 0) ==> #() (#<primitive-procedure make-vector> 0 a) ==> #() SECTION(6 9) (#<primitive-procedure procedure?> #<primitive-procedure car>) ==> #t (#<primitive-procedure procedure?> car) ==> #f (#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>) ==> #t (#<primitive-procedure procedure?> (lambda (x) (* x x))) ==> #f (#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>) ==> #t (#<primitive-procedure procedure?> #<primitive-procedure />) ==> #t (#<primitive-procedure apply> #<primitive-procedure +> (3 4)) ==> 7 (#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4)) ==> 17 (#<primitive-procedure apply> #<primitive-procedure list> ()) ==> () (#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h))) ==> (b e h) (#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6)) ==> (5 7 9) (#<primitive-procedure map> #<primitive-procedure +> (1 2 3)) ==> (1 2 3) (#<primitive-procedure map> #<primitive-procedure *> (1 2 3)) ==> (1 2 3) (#<primitive-procedure map> #<primitive-procedure -> (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4)) ==> 4 (#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f)))))) (#@r #@obj))))> (a b . c)) ==> #f (#<primitive-procedure map> #<primitive-procedure cadr> ()) ==> () SECTION(6 10 1) (#<primitive-procedure input-port?> #<input-port 0>) ==> #t (#<primitive-procedure output-port?> #<output-port 1 L1 C1>) ==> #t (#<CLOSURE call-with-input-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>) ==> #t (#<primitive-procedure input-port?> #<input-port "r4rstest.scm">) ==> #t SECTION(6 10 2) (#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\; (#<primitive-procedure read-char> #<input-port "r4rstest.scm">) ==> #\; (#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define cur-section (quote ())) (#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\( (#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define errs (quote ())) SECTION(6 10 3) (#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp1" #<CLOSURE <anon> "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 (#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure eof-object?> #<eof>) ==> #t (#<primitive-procedure eof-object?> #<eof>) ==> #t (input-port? #t) ==> #t (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read> #<input-port "tmp1">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure output-port?> #<output-port "tmp2">) ==> #t (#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure eof-object?> #<eof>) ==> #t (#<primitive-procedure eof-object?> #<eof>) ==> #t (input-port? #t) ==> #t (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read> #<input-port "tmp2">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<primitive-procedure read> #<input-port "tmp2">) ==> (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) (#<primitive-procedure string->list> "P l") ==> (#\P #\space #\l) (#<primitive-procedure string->list> "") ==> () (#<primitive-procedure list->string> (#\1 #\\ #\")) ==> "1\\\"" (#<primitive-procedure list->string> ()) ==> "" SECTION(6 8) (#<primitive-procedure vector->list> #(dah dah didah)) ==> (dah dah didah) (#<primitive-procedure vector->list> #()) ==> () (#<primitive-procedure list->vector> (dididit dah)) ==> #(dididit dah) (#<primitive-procedure list->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 (#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>) ==> 6 (#<primitive-procedure force> #<promise 6>) ==> 6 (force 3) ==> 3 Passed all tests make[3]: Leaving directory '/build/reproducible-path/scm-5f4' make[2]: Leaving directory '/build/reproducible-path/scm-5f4' # 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 \"Init.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 -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 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") In file included from scm.h:65, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:465:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 465 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:293:39: note: in expansion of macro 'PTR2INT' 293 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:292:20: note: in expansion of macro 'NCELLP' 292 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2652:29: note: in expansion of macro 'CELLP' 2652 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ unexelf.c: In function 'unexec': unexelf.c:712:12: warning: too many arguments for format [-Wformat-extra-args] 712 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:783:12: warning: too many arguments for format [-Wformat-extra-args] 783 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:801:12: warning: too many arguments for format [-Wformat-extra-args] 801 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:856:18: warning: too many arguments for format [-Wformat-extra-args] 856 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:866:12: warning: too many arguments for format [-Wformat-extra-args] 866 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:896:12: warning: too many arguments for format [-Wformat-extra-args] 896 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ ; ================ Link C object files (system "gcc -rdynamic -o scm -Wl,-z,relro -Wl,-z,now 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:267:(.text+0xb5c): 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 \"Init.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 -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f4=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -mbranch-protection=standard -O0 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") In file included from scm.h:65, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:465:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 465 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:293:39: note: in expansion of macro 'PTR2INT' 293 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:292:20: note: in expansion of macro 'NCELLP' 292 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2652:29: note: in expansion of macro 'CELLP' 2652 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ unexelf.c: In function 'unexec': unexelf.c:712:12: warning: too many arguments for format [-Wformat-extra-args] 712 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:783:12: warning: too many arguments for format [-Wformat-extra-args] 783 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:801:12: warning: too many arguments for format [-Wformat-extra-args] 801 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:856:18: warning: too many arguments for format [-Wformat-extra-args] 856 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:866:12: warning: too many arguments for format [-Wformat-extra-args] 866 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ unexelf.c:896:12: warning: too many arguments for format [-Wformat-extra-args] 896 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ unexelf.c:406:41: note: in definition of macro 'fatal' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^ ; ================ 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 makeinfo --html --no-split Xlibscm.texi cp XlibScm.html Xlibscm.html cp ChangeLog changelog make[1]: Leaving directory '/build/reproducible-path/scm-5f4' dh_auto_test make -j12 check "TESTSUITEFLAGS=-j12 --verbose" VERBOSE=1 make[1]: Entering directory '/build/reproducible-path/scm-5f4' ./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) #<primitive-procedure boolean?> #<primitive-procedure char?> #<primitive-procedure null?> #<primitive-procedure number?> #<primitive-procedure pair?> #<primitive-procedure procedure?> #<primitive-procedure string?> #<primitive-procedure symbol?> #<primitive-procedure vector?> (#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)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))> (#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) (#<primitive-procedure *> 3 4) ==> 12 SECTION(4 1 4) (#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10) ==> 3 (#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (#<CLOSURE <anon> "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 (#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> (3 6) (#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5 (define 34) ==> 34 (#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5 (define 34) ==> 34 (#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88) ==> 88 (#<CLOSURE foo "r4rstest.scm": (x) (#@let () (#@define ((x 5)) #@x)) #@x> 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (#<primitive-procedure not> #t) ==> #f (#<primitive-procedure not> 3) ==> #f (#<primitive-procedure not> (3)) ==> #f (#<primitive-procedure not> #f) ==> #t (#<primitive-procedure not> ()) ==> #f (#<primitive-procedure not> ()) ==> #f (#<primitive-procedure not> nil) ==> #f SECTION(6 2) (#<primitive-procedure eqv?> a a) ==> #t (#<primitive-procedure eqv?> a b) ==> #f (#<primitive-procedure eqv?> 2 2) ==> #t (#<primitive-procedure eqv?> () ()) ==> #t (#<primitive-procedure eqv?> 10000 10000) ==> #t (#<primitive-procedure eqv?> (1 . 2) (1 . 2)) ==> #f (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>) ==> #f (#<primitive-procedure eqv?> #f nil) ==> #f (#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>) ==> #t (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>) ==> #f (#<primitive-procedure eq?> a a) ==> #t (#<primitive-procedure eq?> (a) (a)) ==> #f (#<primitive-procedure eq?> () ()) ==> #t (#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>) ==> #t (#<primitive-procedure eq?> (a) (a)) ==> #t (#<primitive-procedure eq?> #() #()) ==> #t (#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>) ==> #t (#<primitive-procedure equal?> a a) ==> #t (#<primitive-procedure equal?> (a) (a)) ==> #t (#<primitive-procedure equal?> (a (b) c) (a (b) c)) ==> #t (#<primitive-procedure equal?> "abc" "abc") ==> #t (#<primitive-procedure equal?> 2 2) ==> #t (#<primitive-procedure equal?> #(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) (#<primitive-procedure list?> (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (#<primitive-procedure eqv?> (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (#<primitive-procedure list?> (a . 4)) ==> #f (list? #f) ==> #f (#<primitive-procedure cons> a ()) ==> (a) (#<primitive-procedure cons> (a) (b c d)) ==> ((a) b c d) (#<primitive-procedure cons> "a" (b c)) ==> ("a" b c) (#<primitive-procedure cons> a 3) ==> (a . 3) (#<primitive-procedure cons> (a b) c) ==> ((a b) . c) (#<primitive-procedure car> (a b c)) ==> a (#<primitive-procedure car> ((a) b c d)) ==> (a) (#<primitive-procedure car> (1 . 2)) ==> 1 (#<primitive-procedure cdr> ((a) b c d)) ==> (b c d) (#<primitive-procedure cdr> (1 . 2)) ==> 2 (#<primitive-procedure list> a 7 c) ==> (a 7 c) (#<primitive-procedure list>) ==> () (#<primitive-procedure length> (a b c)) ==> 3 (#<primitive-procedure length> (a (b) (c d e))) ==> 3 (#<primitive-procedure length> ()) ==> 0 (#<primitive-procedure append> (x) (y)) ==> (x y) (#<primitive-procedure append> (a) (b c d)) ==> (a b c d) (#<primitive-procedure append> (a (b)) ((c))) ==> (a (b) (c)) (#<primitive-procedure append>) ==> () (#<primitive-procedure append> (a b) (c . d)) ==> (a b c . d) (#<primitive-procedure append> () a) ==> a (#<primitive-procedure reverse> (a b c)) ==> (c b a) (#<primitive-procedure reverse> (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (#<primitive-procedure list-ref> (a b c d) 2) ==> c (#<primitive-procedure memq> a (a b c)) ==> (a b c) (#<primitive-procedure memq> b (a b c)) ==> (b c) (#<primitive-procedure memq> a (b c d)) ==> #f (#<primitive-procedure memq> (a) (b (a) c)) ==> #f (#<primitive-procedure member> (a) (b (a) c)) ==> ((a) c) (#<primitive-procedure memv> 101 (100 101 102)) ==> (101 102) (#<primitive-procedure assq> a ((a 1) (b 2) (c 3))) ==> (a 1) (#<primitive-procedure assq> b ((a 1) (b 2) (c 3))) ==> (b 2) (#<primitive-procedure assq> d ((a 1) (b 2) (c 3))) ==> #f (#<primitive-procedure assq> (a) (((a)) ((b)) ((c)))) ==> #f (#<primitive-procedure assoc> (a) (((a)) ((b)) ((c)))) ==> ((a)) (#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (#<primitive-procedure symbol?> a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#<primitive-procedure symbol->string> flying-fish) ==> "flying-fish" (#<primitive-procedure symbol->string> martin) ==> "martin" (#<primitive-procedure symbol->string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#<primitive-procedure symbol->string> ab) ==> "ab" (#<primitive-procedure string->symbol> "ab") ==> ab (#<primitive-procedure eq?> mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#<primitive-procedure string->symbol> "jollywog") ==> jollywog SECTION(6 5 5) (#<primitive-procedure number?> 3) ==> #t (#<primitive-procedure complex?> 3) ==> #t (#<primitive-procedure real?> 3) ==> #t (#<primitive-procedure rational?> 3) ==> #t (#<primitive-procedure integer?> 3) ==> #t (#<primitive-procedure exact?> 3) ==> #t (#<primitive-procedure inexact?> 3) ==> #f (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (cond ((and (exact? z2) (not (and (zero? z1) (negative? z2)))) (integer-expt z1 z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (else (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 0) ==> 1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 1) ==> 0 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 256) ==> 0 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 256) ==> 1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 255) ==> -1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -256) ==> 1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -255) ==> -1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 0) ==> 1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 0) ==> 1 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 1) ==> 256 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 1) ==> -256 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 2 3) ==> 8 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -2 3) ==> -8 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 3 2) ==> 9 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -3 2) ==> 9 (#<primitive-procedure => 22 22 22) ==> #t (#<primitive-procedure => 22 22) ==> #t (#<primitive-procedure => 34 34 35) ==> #f (#<primitive-procedure => 34 35) ==> #f (#<primitive-procedure >> 3 -6246) ==> #t (#<primitive-procedure >> 9 9 -2424) ==> #f (#<primitive-procedure >=> 3 -4 -6246) ==> #t (#<primitive-procedure >=> 9 9) ==> #t (#<primitive-procedure >=> 8 9) ==> #f (#<primitive-procedure <> -1 2 3 4 5 6 7 8) ==> #t (#<primitive-procedure <> -1 2 3 4 4 5 6 7) ==> #f (#<primitive-procedure <=> -1 2 3 4 5 6 7 8) ==> #t (#<primitive-procedure <=> -1 2 3 4 4 5 6 7) ==> #t (#<primitive-procedure <> 1 3 2) ==> #f (#<primitive-procedure >=> 1 3 2) ==> #f (#<primitive-procedure zero?> 0) ==> #t (#<primitive-procedure zero?> 1) ==> #f (#<primitive-procedure zero?> -1) ==> #f (#<primitive-procedure zero?> -100) ==> #f (#<primitive-procedure positive?> 4) ==> #t (#<primitive-procedure positive?> -4) ==> #f (#<primitive-procedure positive?> 0) ==> #f (#<primitive-procedure negative?> 4) ==> #f (#<primitive-procedure negative?> -4) ==> #t (#<primitive-procedure negative?> 0) ==> #f (#<primitive-procedure odd?> 3) ==> #t (#<primitive-procedure odd?> 2) ==> #f (#<primitive-procedure odd?> -4) ==> #f (#<primitive-procedure odd?> -1) ==> #t (#<primitive-procedure even?> 3) ==> #f (#<primitive-procedure even?> 2) ==> #t (#<primitive-procedure even?> -4) ==> #t (#<primitive-procedure even?> -1) ==> #f (#<primitive-procedure max> 34 5 7 38 6) ==> 38 (#<primitive-procedure min> 3 5 5 330 4 -24) ==> -24 (#<primitive-procedure +> 3 4) ==> 7 (#<primitive-procedure +> 3) ==> 3 (#<primitive-procedure +>) ==> 0 (#<primitive-procedure *> 4) ==> 4 (#<primitive-procedure *>) ==> 1 (#<primitive-procedure /> 1) ==> 1 (#<primitive-procedure /> -1) ==> -1 (#<primitive-procedure /> 6 3) ==> 2 (#<primitive-procedure /> 6 -2) ==> -3 (#<primitive-procedure /> -6 2) ==> -3 (#<primitive-procedure /> -6 -2) ==> 3 (#<primitive-procedure -> 3 4) ==> -1 (#<primitive-procedure -> 3) ==> -3 (#<primitive-procedure abs> -7) ==> 7 (#<primitive-procedure abs> 7) ==> 7 (#<primitive-procedure abs> 0) ==> 0 (#<primitive-procedure quotient> 35 7) ==> 5 (#<primitive-procedure quotient> -35 7) ==> -5 (#<primitive-procedure quotient> 35 -7) ==> -5 (#<primitive-procedure quotient> -35 -7) ==> 5 (#<primitive-procedure modulo> 13 4) ==> 1 (#<primitive-procedure remainder> 13 4) ==> 1 (#<primitive-procedure modulo> -13 4) ==> 3 (#<primitive-procedure remainder> -13 4) ==> -1 (#<primitive-procedure modulo> 13 -4) ==> -3 (#<primitive-procedure remainder> 13 -4) ==> 1 (#<primitive-procedure modulo> -13 -4) ==> -1 (#<primitive-procedure remainder> -13 -4) ==> -1 (#<primitive-procedure modulo> 0 86400) ==> 0 (#<primitive-procedure modulo> 0 -86400) ==> 0 (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9) ==> #t (#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9) ==> #t (#<primitive-procedure gcd> 0 4) ==> 4 (#<primitive-procedure gcd> -4 0) ==> 4 (#<primitive-procedure gcd> 32 -36) ==> 4 (#<primitive-procedure gcd>) ==> 0 (#<primitive-procedure lcm> 32 -36) ==> 288 (#<primitive-procedure lcm>) ==> 1 SECTION(6 5 5) (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t (#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t (#<primitive-procedure number?> 0.-1.i) ==> #t (#<primitive-procedure number?> 0.+1.i) ==> #t (#<primitive-procedure number?> 2.+1.i) ==> #t SECTION(6 5 9) (#<primitive-procedure number->string> 0) ==> "0" (#<primitive-procedure number->string> 100) ==> "100" (#<primitive-procedure number->string> 256 16) ==> "100" (#<primitive-procedure string->number> "100") ==> 100 (#<primitive-procedure string->number> "100" 16) ==> 256 (#<primitive-procedure string->number> "") ==> #f (#<primitive-procedure string->number> ".") ==> #f (#<primitive-procedure string->number> "d") ==> #f (#<primitive-procedure string->number> "D") ==> #f (#<primitive-procedure string->number> "i") ==> #f (#<primitive-procedure string->number> "I") ==> #f (#<primitive-procedure string->number> "3i") ==> #f (#<primitive-procedure string->number> "3I") ==> #f (#<primitive-procedure string->number> "33i") ==> #f (#<primitive-procedure string->number> "33I") ==> #f (#<primitive-procedure string->number> "3.3i") ==> #f (#<primitive-procedure string->number> "3.3I") ==> #f (#<primitive-procedure string->number> "-") ==> #f (#<primitive-procedure string->number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (#<primitive-procedure eqv?> #\space #\space) ==> #t (#<primitive-procedure eqv?> #\space #\space) ==> #t (#<primitive-procedure char?> #\a) ==> #t (#<primitive-procedure char?> #\() ==> #t (#<primitive-procedure char?> #\space) ==> #t (#<primitive-procedure char?> #\nl) ==> #t (#<primitive-procedure char=?> #\A #\B) ==> #f (#<primitive-procedure char=?> #\a #\b) ==> #f (#<primitive-procedure char=?> #\9 #\0) ==> #f (#<primitive-procedure char=?> #\A #\A) ==> #t (#<primitive-procedure char<?> #\A #\B) ==> #t (#<primitive-procedure char<?> #\a #\b) ==> #t (#<primitive-procedure char<?> #\9 #\0) ==> #f (#<primitive-procedure char<?> #\A #\A) ==> #f (#<primitive-procedure char>?> #\A #\B) ==> #f (#<primitive-procedure char>?> #\a #\b) ==> #f (#<primitive-procedure char>?> #\9 #\0) ==> #t (#<primitive-procedure char>?> #\A #\A) ==> #f (#<primitive-procedure char<=?> #\A #\B) ==> #t (#<primitive-procedure char<=?> #\a #\b) ==> #t (#<primitive-procedure char<=?> #\9 #\0) ==> #f (#<primitive-procedure char<=?> #\A #\A) ==> #t (#<primitive-procedure char>=?> #\A #\B) ==> #f (#<primitive-procedure char>=?> #\a #\b) ==> #f (#<primitive-procedure char>=?> #\9 #\0) ==> #t (#<primitive-procedure char>=?> #\A #\A) ==> #t (#<primitive-procedure char-ci=?> #\A #\B) ==> #f (#<primitive-procedure char-ci=?> #\a #\B) ==> #f (#<primitive-procedure char-ci=?> #\A #\b) ==> #f (#<primitive-procedure char-ci=?> #\a #\b) ==> #f (#<primitive-procedure char-ci=?> #\9 #\0) ==> #f (#<primitive-procedure char-ci=?> #\A #\A) ==> #t (#<primitive-procedure char-ci=?> #\A #\a) ==> #t (#<primitive-procedure char-ci<?> #\A #\B) ==> #t (#<primitive-procedure char-ci<?> #\a #\B) ==> #t (#<primitive-procedure char-ci<?> #\A #\b) ==> #t (#<primitive-procedure char-ci<?> #\a #\b) ==> #t (#<primitive-procedure char-ci<?> #\9 #\0) ==> #f (#<primitive-procedure char-ci<?> #\A #\A) ==> #f (#<primitive-procedure char-ci<?> #\A #\a) ==> #f (#<primitive-procedure char-ci>?> #\A #\B) ==> #f (#<primitive-procedure char-ci>?> #\a #\B) ==> #f (#<primitive-procedure char-ci>?> #\A #\b) ==> #f (#<primitive-procedure char-ci>?> #\a #\b) ==> #f (#<primitive-procedure char-ci>?> #\9 #\0) ==> #t (#<primitive-procedure char-ci>?> #\A #\A) ==> #f (#<primitive-procedure char-ci>?> #\A #\a) ==> #f (#<primitive-procedure char-ci<=?> #\A #\B) ==> #t (#<primitive-procedure char-ci<=?> #\a #\B) ==> #t (#<primitive-procedure char-ci<=?> #\A #\b) ==> #t (#<primitive-procedure char-ci<=?> #\a #\b) ==> #t (#<primitive-procedure char-ci<=?> #\9 #\0) ==> #f (#<primitive-procedure char-ci<=?> #\A #\A) ==> #t (#<primitive-procedure char-ci<=?> #\A #\a) ==> #t (#<primitive-procedure char-ci>=?> #\A #\B) ==> #f (#<primitive-procedure char-ci>=?> #\a #\B) ==> #f (#<primitive-procedure char-ci>=?> #\A #\b) ==> #f (#<primitive-procedure char-ci>=?> #\a #\b) ==> #f (#<primitive-procedure char-ci>=?> #\9 #\0) ==> #t (#<primitive-procedure char-ci>=?> #\A #\A) ==> #t (#<primitive-procedure char-ci>=?> #\A #\a) ==> #t (#<primitive-procedure char-alphabetic?> #\a) ==> #t (#<primitive-procedure char-alphabetic?> #\A) ==> #t (#<primitive-procedure char-alphabetic?> #\z) ==> #t (#<primitive-procedure char-alphabetic?> #\Z) ==> #t (#<primitive-procedure char-alphabetic?> #\0) ==> #f (#<primitive-procedure char-alphabetic?> #\9) ==> #f (#<primitive-procedure char-alphabetic?> #\space) ==> #f (#<primitive-procedure char-alphabetic?> #\;) ==> #f (#<primitive-procedure char-numeric?> #\a) ==> #f (#<primitive-procedure char-numeric?> #\A) ==> #f (#<primitive-procedure char-numeric?> #\z) ==> #f (#<primitive-procedure char-numeric?> #\Z) ==> #f (#<primitive-procedure char-numeric?> #\0) ==> #t (#<primitive-procedure char-numeric?> #\9) ==> #t (#<primitive-procedure char-numeric?> #\space) ==> #f (#<primitive-procedure char-numeric?> #\;) ==> #f (#<primitive-procedure char-whitespace?> #\a) ==> #f (#<primitive-procedure char-whitespace?> #\A) ==> #f (#<primitive-procedure char-whitespace?> #\z) ==> #f (#<primitive-procedure char-whitespace?> #\Z) ==> #f (#<primitive-procedure char-whitespace?> #\0) ==> #f (#<primitive-procedure char-whitespace?> #\9) ==> #f (#<primitive-procedure char-whitespace?> #\space) ==> #t (#<primitive-procedure char-whitespace?> #\;) ==> #f (#<primitive-procedure char-upper-case?> #\0) ==> #f (#<primitive-procedure char-upper-case?> #\9) ==> #f (#<primitive-procedure char-upper-case?> #\space) ==> #f (#<primitive-procedure char-upper-case?> #\;) ==> #f (#<primitive-procedure char-lower-case?> #\0) ==> #f (#<primitive-procedure char-lower-case?> #\9) ==> #f (#<primitive-procedure char-lower-case?> #\space) ==> #f (#<primitive-procedure char-lower-case?> #\;) ==> #f (#<primitive-procedure integer->char> 46) ==> #\. (#<primitive-procedure integer->char> 65) ==> #\A (#<primitive-procedure integer->char> 97) ==> #\a (#<primitive-procedure char-upcase> #\A) ==> #\A (#<primitive-procedure char-upcase> #\a) ==> #\A (#<primitive-procedure char-downcase> #\A) ==> #\a (#<primitive-procedure char-downcase> #\a) ==> #\a SECTION(6 7) (#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (#<primitive-procedure string> #\a #\b #\c) ==> "abc" (#<primitive-procedure string>) ==> "" (#<primitive-procedure string-length> "abc") ==> 3 (#<primitive-procedure string-ref> "abc" 0) ==> #\a (#<primitive-procedure string-ref> "abc" 2) ==> #\c (#<primitive-procedure string-length> "") ==> 0 (#<primitive-procedure substring> "ab" 0 0) ==> "" (#<primitive-procedure substring> "ab" 1 1) ==> "" (#<primitive-procedure substring> "ab" 2 2) ==> "" (#<primitive-procedure substring> "ab" 0 1) ==> "a" (#<primitive-procedure substring> "ab" 1 2) ==> "b" (#<primitive-procedure substring> "ab" 0 2) ==> "ab" (#<primitive-procedure string-append> "foo" "bar") ==> "foobar" (#<primitive-procedure string-append> "foo") ==> "foo" (#<primitive-procedure string-append> "foo" "") ==> "foo" (#<primitive-procedure string-append> "" "foo") ==> "foo" (#<primitive-procedure string-append>) ==> "" (#<primitive-procedure make-string> 0) ==> "" (#<primitive-procedure string=?> "" "") ==> #t (#<primitive-procedure string<?> "" "") ==> #f (#<primitive-procedure string>?> "" "") ==> #f (#<primitive-procedure string<=?> "" "") ==> #t (#<primitive-procedure string>=?> "" "") ==> #t (#<primitive-procedure string-ci=?> "" "") ==> #t (#<primitive-procedure string-ci<?> "" "") ==> #f (#<primitive-procedure string-ci>?> "" "") ==> #f (#<primitive-procedure string-ci<=?> "" "") ==> #t (#<primitive-procedure string-ci>=?> "" "") ==> #t (#<primitive-procedure string=?> "A" "B") ==> #f (#<primitive-procedure string=?> "a" "b") ==> #f (#<primitive-procedure string=?> "9" "0") ==> #f (#<primitive-procedure string=?> "A" "A") ==> #t (#<primitive-procedure string<?> "A" "B") ==> #t (#<primitive-procedure string<?> "a" "b") ==> #t (#<primitive-procedure string<?> "9" "0") ==> #f (#<primitive-procedure string<?> "A" "A") ==> #f (#<primitive-procedure string>?> "A" "B") ==> #f (#<primitive-procedure string>?> "a" "b") ==> #f (#<primitive-procedure string>?> "9" "0") ==> #t (#<primitive-procedure string>?> "A" "A") ==> #f (#<primitive-procedure string<=?> "A" "B") ==> #t (#<primitive-procedure string<=?> "a" "b") ==> #t (#<primitive-procedure string<=?> "9" "0") ==> #f (#<primitive-procedure string<=?> "A" "A") ==> #t (#<primitive-procedure string>=?> "A" "B") ==> #f (#<primitive-procedure string>=?> "a" "b") ==> #f (#<primitive-procedure string>=?> "9" "0") ==> #t (#<primitive-procedure string>=?> "A" "A") ==> #t (#<primitive-procedure string-ci=?> "A" "B") ==> #f (#<primitive-procedure string-ci=?> "a" "B") ==> #f (#<primitive-procedure string-ci=?> "A" "b") ==> #f (#<primitive-procedure string-ci=?> "a" "b") ==> #f (#<primitive-procedure string-ci=?> "9" "0") ==> #f (#<primitive-procedure string-ci=?> "A" "A") ==> #t (#<primitive-procedure string-ci=?> "A" "a") ==> #t (#<primitive-procedure string-ci<?> "A" "B") ==> #t (#<primitive-procedure string-ci<?> "a" "B") ==> #t (#<primitive-procedure string-ci<?> "A" "b") ==> #t (#<primitive-procedure string-ci<?> "a" "b") ==> #t (#<primitive-procedure string-ci<?> "9" "0") ==> #f (#<primitive-procedure string-ci<?> "A" "A") ==> #f (#<primitive-procedure string-ci<?> "A" "a") ==> #f (#<primitive-procedure string-ci>?> "A" "B") ==> #f (#<primitive-procedure string-ci>?> "a" "B") ==> #f (#<primitive-procedure string-ci>?> "A" "b") ==> #f (#<primitive-procedure string-ci>?> "a" "b") ==> #f (#<primitive-procedure string-ci>?> "9" "0") ==> #t (#<primitive-procedure string-ci>?> "A" "A") ==> #f (#<primitive-procedure string-ci>?> "A" "a") ==> #f (#<primitive-procedure string-ci<=?> "A" "B") ==> #t (#<primitive-procedure string-ci<=?> "a" "B") ==> #t (#<primitive-procedure string-ci<=?> "A" "b") ==> #t (#<primitive-procedure string-ci<=?> "a" "b") ==> #t (#<primitive-procedure string-ci<=?> "9" "0") ==> #f (#<primitive-procedure string-ci<=?> "A" "A") ==> #t (#<primitive-procedure string-ci<=?> "A" "a") ==> #t (#<primitive-procedure string-ci>=?> "A" "B") ==> #f (#<primitive-procedure string-ci>=?> "a" "B") ==> #f (#<primitive-procedure string-ci>=?> "A" "b") ==> #f (#<primitive-procedure string-ci>=?> "a" "b") ==> #f (#<primitive-procedure string-ci>=?> "9" "0") ==> #t (#<primitive-procedure string-ci>=?> "A" "A") ==> #t (#<primitive-procedure string-ci>=?> "A" "a") ==> #t SECTION(6 8) (#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna")) ==> #t (#<primitive-procedure vector> a b c) ==> #(a b c) (#<primitive-procedure vector>) ==> #() (#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna")) ==> 3 (#<primitive-procedure vector-length> #()) ==> 0 (#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (#<primitive-procedure make-vector> 2 hi) ==> #(hi hi) (#<primitive-procedure make-vector> 0) ==> #() (#<primitive-procedure make-vector> 0 a) ==> #() SECTION(6 9) (#<primitive-procedure procedure?> #<primitive-procedure car>) ==> #t (#<primitive-procedure procedure?> car) ==> #f (#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>) ==> #t (#<primitive-procedure procedure?> (lambda (x) (* x x))) ==> #f (#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>) ==> #t (#<primitive-procedure procedure?> #<primitive-procedure />) ==> #t (#<primitive-procedure apply> #<primitive-procedure +> (3 4)) ==> 7 (#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4)) ==> 17 (#<primitive-procedure apply> #<primitive-procedure list> ()) ==> () (#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h))) ==> (b e h) (#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6)) ==> (5 7 9) (#<primitive-procedure map> #<primitive-procedure +> (1 2 3)) ==> (1 2 3) (#<primitive-procedure map> #<primitive-procedure *> (1 2 3)) ==> (1 2 3) (#<primitive-procedure map> #<primitive-procedure -> (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4)) ==> 4 (#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f)))))) (#@r #@obj))))> (a b . c)) ==> #f (#<primitive-procedure map> #<primitive-procedure cadr> ()) ==> () SECTION(6 10 1) (#<primitive-procedure input-port?> #<input-port 0>) ==> #t (#<primitive-procedure output-port?> #<output-port 1 L1 C1>) ==> #t (#<CLOSURE call-with-input-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>) ==> #t (#<primitive-procedure input-port?> #<input-port "r4rstest.scm">) ==> #t SECTION(6 10 2) (#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\; (#<primitive-procedure read-char> #<input-port "r4rstest.scm">) ==> #\; (#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define cur-section (quote ())) (#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\( (#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define errs (quote ())) SECTION(6 10 3) (#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (call-with-open-ports (open-output-file str) proc)> "tmp1" #<CLOSURE <anon> "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 (#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure eof-object?> #<eof>) ==> #t (#<primitive-procedure eof-object?> #<eof>) ==> #t (input-port? #t) ==> #t (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\; (#<primitive-procedure read> #<input-port "tmp1">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure output-port?> #<output-port "tmp2">) ==> #t (#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<primitive-procedure eof-object?> #<eof>) ==> #t (#<primitive-procedure eof-object?> #<eof>) ==> #t (input-port? #t) ==> #t (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\; (#<primitive-procedure read> #<input-port "tmp2">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (#<primitive-procedure eqv?> 1 1.) ==> #f (#<primitive-procedure eqv?> 0 0.) ==> #f (#<primitive-procedure eqv?> 0. 0.) ==> #t (#<primitive-procedure eqv?> 0. 0.) ==> #t (#<primitive-procedure equal?> 0. 0.) ==> #t (#<primitive-procedure eqv?> 0. 0.) ==> #t (#<primitive-procedure equal?> 0. 0.) ==> #t SECTION(6 5 5) (magnitude 1.) ==> 1. (#<primitive-procedure /> 1.e300+1.e300i 4.e300+4.e300i) ==> 2.5e-1 (magnitude 1.) ==> 1. (#<primitive-procedure /> 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 2.5e-1 (#<primitive-procedure => 0. 0.) ==> #t (#<primitive-procedure => 0. 0.) ==> #t (#<primitive-procedure => 0. 0.) ==> #t (#<primitive-procedure inexact?> 3.9) ==> #t (max #t) ==> #t (#<primitive-procedure max> 3.9 4) ==> 4. (#<primitive-procedure exact->inexact> 4) ==> 4. (#<primitive-procedure exact->inexact> 4.) ==> 4. (#<primitive-procedure inexact->exact> 4) ==> 4 (#<primitive-procedure inexact->exact> 4.) ==> 4 (#<primitive-procedure round> -4.5) ==> -4. (#<primitive-procedure round> -3.5) ==> -4. (#<primitive-procedure round> -3.9) ==> -4. (#<primitive-procedure round> 0.) ==> 0. (#<primitive-procedure round> 2.5e-1) ==> 0. (#<primitive-procedure round> 8.e-1) ==> 1. (#<primitive-procedure round> 3.5) ==> 4. (#<primitive-procedure round> 4.5) ==> 4. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0. 1.) ==> 0. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0. 1) ==> 0. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0 1.) ==> 0. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -25 0.) ==> 1. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0.) ==> 1. (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0) ==> 1. (#<CLOSURE atan "/build/reproducible-path/scm-5f4/Transcen.scm": (z . y) (#@if (#@null? #@y) (#@if (#@real? #@z) (#@real-atan #@z) (/ (log (/ (- 0.+1.i z) (+ 0.+1.i z))) 0.+2.i)) ($atan2 z (car y)))> 1 1) ==> 7.853981633974483e-1 (#<CLOSURE call-with-output-file "/build/reproducible-path/scm-5f4/Init5f4.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp3" #<CLOSURE <anon> "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 (#<primitive-procedure read> #<input-port "tmp3">) ==> (define foo (quote (2.5e-1 -3.25))) (#<primitive-procedure eof-object?> #<eof>) ==> #t (#<primitive-procedure eof-object?> #<eof>) ==> #t (input-port? #t) ==> #t (#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\; (#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\; (#<primitive-procedure read> #<input-port "tmp3">) ==> (2.5e-1 -3.25) (#<primitive-procedure read> #<input-port "tmp3">) ==> (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 (float-rw-range-test #t) ==> #t (float-powers-of-2-test #t) ==> #t ;testing bignums; (#<primitive-procedure *> 65536 65536) ==> 4294967296 (arithmetic #t) ==> #t (#<primitive-procedure *> 65536 1048576) ==> 68719476736 (#<primitive-procedure *> 4294967296 4294967296) ==> 18446744073709551616 (arithmetic #t) ==> #t (#<primitive-procedure *> 4294967296 68719476736) ==> 295147905179352825856 (#<CLOSURE test-ash "r4rstest.scm": (base . shifts) (let recur ((x base) (sum 0) (shifts shifts)) (if (null? shifts) (ash x (- sum)) (recur (ash x (car shifts)) (+ sum (car shifts)) (cdr shifts))))> 1 640) ==> 1 (#<CLOSURE test-ash "r4rstest.scm": (base . shifts) ((#@let ((recur (#@lambda (x sum shifts) (#@if (#@null? #@shifts) (#@ash #@x (#@- #@sum)) (#@recur (#@ash #@x (#@car #@shifts)) (#@+ #@sum (#@car #@shifts)) (#@cdr #@shifts)))))) #@recur) #@base 0 #@shifts)> -1 640) ==> -1 (#<CLOSURE test-ash "r4rstest.scm": (base . shifts) ((#@let ((recur (#@lambda (x sum shifts) (#@if (#@null? #@shifts) (#@ash #@x (#@- #@sum)) (#@recur (#@ash #@x (#@car #@shifts)) (#@+ #@sum (#@car #@shifts)) (#@cdr #@shifts)))))) #@recur) #@base 0 #@shifts)> 43981 8 19 1 1 200 -64) ==> 43981 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 16) ==> 65536 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 20) ==> 1048576 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 36) ==> 68719476736 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 36) ==> 68719476736 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 39) ==> 549755813888 (#<CLOSURE <anon> "r4rstest.scm": (b p) (- (expt b p))> -2 39) ==> 549755813888 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 64) ==> 18446744073709551616 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 64) ==> 18446744073709551616 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 2 68) ==> 295147905179352825856 (#<CLOSURE expt "/build/reproducible-path/scm-5f4/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -2 68) ==> 295147905179352825856 SECTION(6 5 7) (#<primitive-procedure modulo> 33333333333333333333 3) ==> 0 (#<primitive-procedure modulo> 33333333333333333333 -3) ==> 0 (#<primitive-procedure remainder> 33333333333333333333 3) ==> 0 (#<primitive-procedure remainder> 33333333333333333333 -3) ==> 0 (#<primitive-procedure modulo> 33333333333333333332 3) ==> 2 (#<primitive-procedure modulo> 33333333333333333332 -3) ==> -1 (#<primitive-procedure remainder> 33333333333333333332 3) ==> 2 (#<primitive-procedure remainder> 33333333333333333332 -3) ==> 2 (#<primitive-procedure modulo> -33333333333333333332 3) ==> 1 (#<primitive-procedure modulo> -33333333333333333332 -3) ==> -2 (#<primitive-procedure remainder> -33333333333333333332 3) ==> -2 (#<primitive-procedure remainder> -33333333333333333332 -3) ==> -2 (#<primitive-procedure modulo> 3 33333333333333333333) ==> 3 (#<primitive-procedure modulo> -3 33333333333333333333) ==> 33333333333333333330 (#<primitive-procedure remainder> 3 33333333333333333333) ==> 3 (#<primitive-procedure remainder> -3 33333333333333333333) ==> -3 (#<primitive-procedure modulo> 3 -33333333333333333333) ==> -33333333333333333330 (#<primitive-procedure modulo> -3 -33333333333333333333) ==> -3 (#<primitive-procedure remainder> 3 -33333333333333333333) ==> 3 (#<primitive-procedure remainder> -3 -33333333333333333333) ==> -3 (#<primitive-procedure modulo> -2177452800 86400) ==> 0 (#<primitive-procedure modulo> 2177452800 -86400) ==> 0 (#<primitive-procedure modulo> 2177452800 86400) ==> 0 (#<primitive-procedure modulo> -2177452800 -86400) ==> 0 (#<primitive-procedure modulo> 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t (#<primitive-procedure gcd> 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (#<primitive-procedure gcd> 33333333333333333332 11111111111111111111) ==> 1 (#<primitive-procedure gcd> 33333333333333333330 11111111111111111111) ==> 1 (#<primitive-procedure gcd> 33333333333333333333 33333333333333333330) ==> 3 (#<primitive-procedure lcm> 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (#<primitive-procedure lcm> -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#<primitive-procedure number->string> 281474976710655325431) ==> "281474976710655325431" Passed all tests ;testing bignum-inexact comparisons; SECTION(6 5 5) (#<primitive-procedure => 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f (#<primitive-procedure => 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f (#<primitive-procedure <> 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) (#<primitive-procedure string->list> "P l") ==> (#\P #\space #\l) (#<primitive-procedure string->list> "") ==> () (#<primitive-procedure list->string> (#\1 #\\ #\")) ==> "1\\\"" (#<primitive-procedure list->string> ()) ==> "" SECTION(6 8) (#<primitive-procedure vector->list> #(dah dah didah)) ==> (dah dah didah) (#<primitive-procedure vector->list> #()) ==> () (#<primitive-procedure list->vector> (dididit dah)) ==> #(dididit dah) (#<primitive-procedure list->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) (#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (let* ((eot (list (quote eot))) (xf (next-leaf-generator x eot)) (yf (next-leaf-generator y eot))) (letrec ((loop (lambda (x y) (cond ((not (eq? x y)) #f) ((eq? eot x) #t) (else (loop (xf) (yf))))))) (loop (xf) (yf))))> (a (b (c))) ((a) b c)) ==> #t (#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (#@let* ((eot (#@list (#@quote eot))) (xf (#@next-leaf-generator #@x #@eot)) (yf (#@next-leaf-generator #@y #@eot))) (#@letrec ((loop (#@lambda (x y) (#@cond ((#@not (#@eq? #@x #@y)) #f) ((#@eq? #@eot #@x) #t) (#t (#@loop (#@xf) (#@yf))))))) (#@loop (#@xf) (#@yf))))> (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 (#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>) ==> 6 (#<primitive-procedure force> #<promise 6>) ==> 6 (force 3) ==> 3 Passed all tests make[1]: Leaving directory '/build/reproducible-path/scm-5f4' create-stamp debian/debhelper-build-stamp dh_prep debian/rules override_dh_auto_install make[1]: Entering directory '/build/reproducible-path/scm-5f4' # 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/reproducible-path/scm-5f4' dh_install dh_installdocs dh_installchangelogs dh_installexamples dh_installman dh_installinfo dh_perl dh_link dh_strip_nondeterminism dh_compress dh_fixperms dh_missing dh_dwz -a debian/rules override_dh_strip make[1]: Entering directory '/build/reproducible-path/scm-5f4' dh_strip --no-automatic-dbgsym make[1]: Leaving directory '/build/reproducible-path/scm-5f4' dh_makeshlibs -a dh_shlibdeps -a dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libc6 from: /lib/ld-linux-aarch64.so.1 dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libc6 to: /lib/ld-linux-aarch64.so.1.usr-is-merged dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libreadline8t64 from: /lib/aarch64-linux-gnu/libreadline.so.8 dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libreadline8t64 to: /lib/aarch64-linux-gnu/libreadline.so.8.usr-is-merged dh_installdeb dh_gencontrol dh_md5sums dh_builddeb dpkg-deb: building package 'scm' in '../scm_5f4-3_arm64.deb'. dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f4-3_arm64.deb'. dpkg-genbuildinfo --build=binary -O../scm_5f4-3_arm64.buildinfo dpkg-genchanges --build=binary -O../scm_5f4-3_arm64.changes dpkg-genchanges: info: binary-only upload (no source code included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env I: removing directory /srv/workspace/pbuilder/1522930 and its subdirectories I: Current time: Sun Feb 15 13:03:42 -12 2026 I: pbuilder-time-stamp: 1771203822 Mon Jan 13 18:40:45 UTC 2025 I: 1st build successful. Starting 2nd build on remote node codethink04-arm64.debian.net. Mon Jan 13 18:40:45 UTC 2025 I: Preparing to do remote build '2' on codethink04-arm64.debian.net. Mon Jan 13 18:41:28 UTC 2025 I: Deleting $TMPDIR on codethink04-arm64.debian.net. Mon Jan 13 18:41:28 UTC 2025 I: scm_5f4-3_arm64.changes: Format: 1.8 Date: Mon, 13 Jan 2025 00:16:35 +0100 Source: scm Binary: libscm-dev scm Architecture: arm64 Version: 5f4-3 Distribution: unstable Urgency: medium Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org> Changed-By: Gwen Weinholt <weinholt@debian.org> Description: libscm-dev - Embeddable library for SCM Scheme language interpreter scm - Scheme language interpreter Changes: scm (5f4-3) unstable; urgency=medium . * define-scm-llong-for-64-bit-archs.patch: Fix builds on riscv64 as well Checksums-Sha1: fcb79c2c9a0685cbdfd6f68e387589e147c92e83 286764 libscm-dev_5f4-3_arm64.deb fa56decebcf6e43124ea52f650d5793b71c5d2cb 5732 scm_5f4-3_arm64.buildinfo bc363535eb6d83f8f6e23c8b36773b5312f81b04 633520 scm_5f4-3_arm64.deb Checksums-Sha256: 4b74730f6fc731446eeedab94893d1f8a458559a568e025950994378f789cc3d 286764 libscm-dev_5f4-3_arm64.deb 76db68999507be44b70059bda76b778871af398755b2b435083fab961d6ece9d 5732 scm_5f4-3_arm64.buildinfo 9aa7ad64eb374a9427ee76a5934937f20c1a0749ebc3931d92153b68de4d280d 633520 scm_5f4-3_arm64.deb Files: 89e642abc9e2ddc2fb35e6a0a5686cf9 286764 libdevel optional libscm-dev_5f4-3_arm64.deb 2fc0e950b602aa4eee78f1fab3a74270 5732 interpreters optional scm_5f4-3_arm64.buildinfo 48e59a6de322764f53340aacb54c0720 633520 interpreters optional scm_5f4-3_arm64.deb Mon Jan 13 18:41:30 UTC 2025 I: diffoscope 284 will be used to compare the two builds: Running as unit: rb-diffoscope-arm64_3-73625.service # Profiling output for: /usr/bin/diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/scm_5f4-3.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/scm_5f4-3.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/scm_5f4-3.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/b1/scm_5f4-3_arm64.changes /srv/reproducible-results/rbuild-debian/r-b-build.Qjy3pSja/b2/scm_5f4-3_arm64.changes ## command (total time: 0.000s) 0.000s 1 call cmp (internal) ## has_same_content_as (total time: 0.000s) 0.000s 1 call abc.DotChangesFile ## main (total time: 0.419s) 0.419s 2 calls outputs 0.000s 1 call cleanup ## recognizes (total time: 0.027s) 0.027s 12 calls diffoscope.comparators.binary.FilesystemFile ## specialize (total time: 0.000s) 0.000s 1 call specialize Finished with result: success Main processes terminated with: code=exited/status=0 Service runtime: 778ms CPU time consumed: 769ms Mon Jan 13 18:58:29 UTC 2025 I: diffoscope 284 found no differences in the changes files, and a .buildinfo file also exists. Mon Jan 13 18:58:29 UTC 2025 I: scm from unstable built successfully and reproducibly on arm64. Mon Jan 13 18:58:33 UTC 2025 I: Submitting .buildinfo files to external archives: Mon Jan 13 18:58:33 UTC 2025 I: Submitting 8.0K b1/scm_5f4-3_arm64.buildinfo.asc Mon Jan 13 18:58:37 UTC 2025 I: Submitting 8.0K b2/scm_5f4-3_arm64.buildinfo.asc Mon Jan 13 18:58:59 UTC 2025 I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit. Mon Jan 13 18:58:59 UTC 2025 I: Done submitting .buildinfo files. Mon Jan 13 18:58:59 UTC 2025 I: Removing signed scm_5f4-3_arm64.buildinfo.asc files: removed './b1/scm_5f4-3_arm64.buildinfo.asc' removed './b2/scm_5f4-3_arm64.buildinfo.asc'