I: pbuilder: network access will be disabled during build I: Current time: Sun May 5 14:10:55 +14 2024 I: pbuilder-time-stamp: 1714867855 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_5f3-6.dsc] I: copying [./scm_5f3.orig.tar.xz] I: copying [./scm_5f3-6.debian.tar.xz] I: Extracting source gpgv: Signature made Sat May 4 14:20:03 2024 gpgv: using RSA key 35C52CA497672B400D461793DD839B748F10AD4D gpgv: Can't check signature: No public key dpkg-source: warning: cannot verify inline signature for ./scm_5f3-6.dsc: no acceptable signature found dpkg-source: info: extracting scm in scm-5f3 dpkg-source: info: unpacking scm_5f3.orig.tar.xz dpkg-source: info: unpacking scm_5f3-6.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 I: Not using root during the build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/1740570/tmp/hooks/D01_modify_environment starting debug: Running on ionos1-amd64. I: Changing host+domainname to test build reproducibility I: Adding a custom variable just for the fun of it... I: Changing /bin/sh to bash '/bin/sh' -> '/bin/bash' lrwxrwxrwx 1 root root 9 May 5 00:11 /bin/sh -> /bin/bash I: Setting pbuilder2's login shell to /bin/bash I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other I: user script /srv/workspace/pbuilder/1740570/tmp/hooks/D01_modify_environment finished I: user script /srv/workspace/pbuilder/1740570/tmp/hooks/D02_print_environment starting I: set BASH=/bin/sh BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath BASH_ALIASES=() BASH_ARGC=() BASH_ARGV=() BASH_CMDS=() BASH_LINENO=([0]="12" [1]="0") BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") BASH_VERSINFO=([0]="5" [1]="2" [2]="21" [3]="1" [4]="release" [5]="x86_64-pc-linux-gnu") BASH_VERSION='5.2.21(1)-release' BUILDDIR=/build/reproducible-path BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' BUILDUSERNAME=pbuilder2 BUILD_ARCH=amd64 DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=20 ' DIRSTACK=() DISTRIBUTION=unstable EUID=0 FUNCNAME=([0]="Echo" [1]="main") GROUPS=() HOME=/root HOSTNAME=i-capture-the-hostname HOSTTYPE=x86_64 HOST_ARCH=amd64 IFS=' ' INVOCATION_ID=698d849058c247108b5685532b9ca758 LANG=C LANGUAGE=et_EE:et LC_ALL=C MACHTYPE=x86_64-pc-linux-gnu MAIL=/var/mail/root OPTERR=1 OPTIND=1 OSTYPE=linux-gnu PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path PBCURRENTCOMMANDLINEOPERATION=build PBUILDER_OPERATION=build PBUILDER_PKGDATADIR=/usr/share/pbuilder PBUILDER_PKGLIBDIR=/usr/lib/pbuilder PBUILDER_SYSCONFDIR=/etc PIPESTATUS=([0]="0") POSIXLY_CORRECT=y PPID=1740570 PS4='+ ' PWD=/ SHELL=/bin/bash SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix SHLVL=3 SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.6YoVwE3Q/pbuilderrc_J4Lu --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.6YoVwE3Q/b2 --logfile b2/build.log scm_5f3-6.dsc' SUDO_GID=110 SUDO_UID=105 SUDO_USER=jenkins TERM=unknown TZ=/usr/share/zoneinfo/Etc/GMT-14 UID=0 USER=root _='I: set' http_proxy=http://46.16.76.132:3128 I: uname -a Linux i-capture-the-hostname 6.1.0-20-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.85-1 (2024-04-11) x86_64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 May 3 07:43 /bin -> usr/bin I: user script /srv/workspace/pbuilder/1740570/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: amd64 Maintainer: Debian Pbuilder Team 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 ... 19699 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} libbsd0{a} libdebhelper-perl{a} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libncurses-dev{a} libncurses6{a} libpipeline1{a} libpthread-stubs0-dev{a} libreadline-dev{a} libreadline8t64{a} libsub-override-perl{a} libtext-unidecode-perl{a} libtool{a} libuchardet0{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} 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 lynx wget 0 packages upgraded, 59 newly installed, 0 to remove and 0 not upgraded. Need to get 26.6 MB of archives. After unpacking 105 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian unstable/main amd64 readline-common all 8.2-4 [69.3 kB] Get: 2 http://deb.debian.org/debian unstable/main amd64 sensible-utils all 0.0.22 [22.4 kB] Get: 3 http://deb.debian.org/debian unstable/main amd64 libmagic-mgc amd64 1:5.45-3 [314 kB] Get: 4 http://deb.debian.org/debian unstable/main amd64 libmagic1t64 amd64 1:5.45-3 [105 kB] Get: 5 http://deb.debian.org/debian unstable/main amd64 file amd64 1:5.45-3 [42.9 kB] Get: 6 http://deb.debian.org/debian unstable/main amd64 gettext-base amd64 0.21-14+b1 [161 kB] Get: 7 http://deb.debian.org/debian unstable/main amd64 libuchardet0 amd64 0.0.8-1+b1 [68.8 kB] Get: 8 http://deb.debian.org/debian unstable/main amd64 groff-base amd64 1.23.0-4 [1180 kB] Get: 9 http://deb.debian.org/debian unstable/main amd64 bsdextrautils amd64 2.40-8 [92.8 kB] Get: 10 http://deb.debian.org/debian unstable/main amd64 libpipeline1 amd64 1.5.7-2 [38.0 kB] Get: 11 http://deb.debian.org/debian unstable/main amd64 man-db amd64 2.12.1-1 [1411 kB] Get: 12 http://deb.debian.org/debian unstable/main amd64 ucf all 3.0043+nmu1 [55.2 kB] Get: 13 http://deb.debian.org/debian unstable/main amd64 m4 amd64 1.4.19-4 [287 kB] Get: 14 http://deb.debian.org/debian unstable/main amd64 autoconf all 2.71-3 [332 kB] Get: 15 http://deb.debian.org/debian unstable/main amd64 autotools-dev all 20220109.1 [51.6 kB] Get: 16 http://deb.debian.org/debian unstable/main amd64 automake all 1:1.16.5-1.3 [823 kB] Get: 17 http://deb.debian.org/debian unstable/main amd64 autopoint all 0.21-14 [496 kB] Get: 18 http://deb.debian.org/debian unstable/main amd64 libdebhelper-perl all 13.15.3 [88.0 kB] Get: 19 http://deb.debian.org/debian unstable/main amd64 libtool all 2.4.7-7 [517 kB] Get: 20 http://deb.debian.org/debian unstable/main amd64 dh-autoreconf all 20 [17.1 kB] Get: 21 http://deb.debian.org/debian unstable/main amd64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 22 http://deb.debian.org/debian unstable/main amd64 libsub-override-perl all 0.10-1 [10.6 kB] Get: 23 http://deb.debian.org/debian unstable/main amd64 libfile-stripnondeterminism-perl all 1.13.1-1 [19.4 kB] Get: 24 http://deb.debian.org/debian unstable/main amd64 dh-strip-nondeterminism all 1.13.1-1 [8620 B] Get: 25 http://deb.debian.org/debian unstable/main amd64 libelf1t64 amd64 0.191-1+b1 [189 kB] Get: 26 http://deb.debian.org/debian unstable/main amd64 dwz amd64 0.15-1+b1 [110 kB] Get: 27 http://deb.debian.org/debian unstable/main amd64 libicu72 amd64 72.1-4+b1 [9395 kB] Get: 28 http://deb.debian.org/debian unstable/main amd64 libxml2 amd64 2.9.14+dfsg-1.3+b3 [692 kB] Get: 29 http://deb.debian.org/debian unstable/main amd64 gettext amd64 0.21-14+b1 [1301 kB] Get: 30 http://deb.debian.org/debian unstable/main amd64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 31 http://deb.debian.org/debian unstable/main amd64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 32 http://deb.debian.org/debian unstable/main amd64 debhelper all 13.15.3 [901 kB] Get: 33 http://deb.debian.org/debian unstable/main amd64 libbsd0 amd64 0.12.2-1 [131 kB] Get: 34 http://deb.debian.org/debian unstable/main amd64 libncurses6 amd64 6.4+20240414-1 [104 kB] Get: 35 http://deb.debian.org/debian unstable/main amd64 libncurses-dev amd64 6.4+20240414-1 [349 kB] Get: 36 http://deb.debian.org/debian unstable/main amd64 libpthread-stubs0-dev amd64 0.4-1+b1 [5348 B] Get: 37 http://deb.debian.org/debian unstable/main amd64 libreadline8t64 amd64 8.2-4 [167 kB] Get: 38 http://deb.debian.org/debian unstable/main amd64 libreadline-dev amd64 8.2-4 [152 kB] Get: 39 http://deb.debian.org/debian unstable/main amd64 libtext-unidecode-perl all 1.30-3 [101 kB] Get: 40 http://deb.debian.org/debian unstable/main amd64 libxau6 amd64 1:1.0.9-1+b1 [18.1 kB] Get: 41 http://deb.debian.org/debian unstable/main amd64 libxdmcp6 amd64 1:1.1.2-3+b1 [24.3 kB] Get: 42 http://deb.debian.org/debian unstable/main amd64 libxcb1 amd64 1.17.0-1 [144 kB] Get: 43 http://deb.debian.org/debian unstable/main amd64 libx11-data all 2:1.8.7-1 [328 kB] Get: 44 http://deb.debian.org/debian unstable/main amd64 libx11-6 amd64 2:1.8.7-1+b1 [799 kB] Get: 45 http://deb.debian.org/debian unstable/main amd64 xorg-sgml-doctools all 1:1.11-1.1 [22.1 kB] Get: 46 http://deb.debian.org/debian unstable/main amd64 x11proto-dev all 2024.1-1 [603 kB] Get: 47 http://deb.debian.org/debian unstable/main amd64 libxau-dev amd64 1:1.0.9-1+b1 [21.3 kB] Get: 48 http://deb.debian.org/debian unstable/main amd64 libxdmcp-dev amd64 1:1.1.2-3+b1 [40.8 kB] Get: 49 http://deb.debian.org/debian unstable/main amd64 xtrans-dev all 1.4.0-1 [98.7 kB] Get: 50 http://deb.debian.org/debian unstable/main amd64 libxcb1-dev amd64 1.17.0-1 [181 kB] Get: 51 http://deb.debian.org/debian unstable/main amd64 libx11-dev amd64 2:1.8.7-1+b1 [875 kB] Get: 52 http://deb.debian.org/debian unstable/main amd64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB] Get: 53 http://deb.debian.org/debian unstable/main amd64 libxml-sax-base-perl all 1.09-3 [20.6 kB] Get: 54 http://deb.debian.org/debian unstable/main amd64 libxml-sax-perl all 1.02+dfsg-3 [59.4 kB] Get: 55 http://deb.debian.org/debian unstable/main amd64 libxml-libxml-perl amd64 2.0207+dfsg+really+2.0134-1+b3 [313 kB] Get: 56 http://deb.debian.org/debian unstable/main amd64 slib all 3b6-3 [837 kB] Get: 57 http://deb.debian.org/debian unstable/main amd64 tex-common all 6.18 [32.5 kB] Get: 58 http://deb.debian.org/debian unstable/main amd64 texinfo-lib amd64 7.1-3+b1 [224 kB] Get: 59 http://deb.debian.org/debian unstable/main amd64 texinfo all 7.1-3 [1748 kB] Fetched 26.6 MB in 2s (13.4 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package readline-common. (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 ... 19699 files and directories currently installed.) Preparing to unpack .../00-readline-common_8.2-4_all.deb ... Unpacking readline-common (8.2-4) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../01-sensible-utils_0.0.22_all.deb ... Unpacking sensible-utils (0.0.22) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../02-libmagic-mgc_1%3a5.45-3_amd64.deb ... Unpacking libmagic-mgc (1:5.45-3) ... Selecting previously unselected package libmagic1t64:amd64. Preparing to unpack .../03-libmagic1t64_1%3a5.45-3_amd64.deb ... Unpacking libmagic1t64:amd64 (1:5.45-3) ... Selecting previously unselected package file. Preparing to unpack .../04-file_1%3a5.45-3_amd64.deb ... Unpacking file (1:5.45-3) ... Selecting previously unselected package gettext-base. Preparing to unpack .../05-gettext-base_0.21-14+b1_amd64.deb ... Unpacking gettext-base (0.21-14+b1) ... Selecting previously unselected package libuchardet0:amd64. Preparing to unpack .../06-libuchardet0_0.0.8-1+b1_amd64.deb ... Unpacking libuchardet0:amd64 (0.0.8-1+b1) ... Selecting previously unselected package groff-base. Preparing to unpack .../07-groff-base_1.23.0-4_amd64.deb ... Unpacking groff-base (1.23.0-4) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../08-bsdextrautils_2.40-8_amd64.deb ... Unpacking bsdextrautils (2.40-8) ... Selecting previously unselected package libpipeline1:amd64. Preparing to unpack .../09-libpipeline1_1.5.7-2_amd64.deb ... Unpacking libpipeline1:amd64 (1.5.7-2) ... Selecting previously unselected package man-db. Preparing to unpack .../10-man-db_2.12.1-1_amd64.deb ... Unpacking man-db (2.12.1-1) ... Selecting previously unselected package ucf. Preparing to unpack .../11-ucf_3.0043+nmu1_all.deb ... Moving old data out of the way Unpacking ucf (3.0043+nmu1) ... Selecting previously unselected package m4. Preparing to unpack .../12-m4_1.4.19-4_amd64.deb ... Unpacking m4 (1.4.19-4) ... Selecting previously unselected package autoconf. Preparing to unpack .../13-autoconf_2.71-3_all.deb ... Unpacking autoconf (2.71-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../14-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../15-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 .../16-autopoint_0.21-14_all.deb ... Unpacking autopoint (0.21-14) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../17-libdebhelper-perl_13.15.3_all.deb ... Unpacking libdebhelper-perl (13.15.3) ... Selecting previously unselected package libtool. Preparing to unpack .../18-libtool_2.4.7-7_all.deb ... Unpacking libtool (2.4.7-7) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../19-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../20-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libsub-override-perl. Preparing to unpack .../21-libsub-override-perl_0.10-1_all.deb ... Unpacking libsub-override-perl (0.10-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../22-libfile-stripnondeterminism-perl_1.13.1-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.13.1-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../23-dh-strip-nondeterminism_1.13.1-1_all.deb ... Unpacking dh-strip-nondeterminism (1.13.1-1) ... Selecting previously unselected package libelf1t64:amd64. Preparing to unpack .../24-libelf1t64_0.191-1+b1_amd64.deb ... Unpacking libelf1t64:amd64 (0.191-1+b1) ... Selecting previously unselected package dwz. Preparing to unpack .../25-dwz_0.15-1+b1_amd64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libicu72:amd64. Preparing to unpack .../26-libicu72_72.1-4+b1_amd64.deb ... Unpacking libicu72:amd64 (72.1-4+b1) ... Selecting previously unselected package libxml2:amd64. Preparing to unpack .../27-libxml2_2.9.14+dfsg-1.3+b3_amd64.deb ... Unpacking libxml2:amd64 (2.9.14+dfsg-1.3+b3) ... Selecting previously unselected package gettext. Preparing to unpack .../28-gettext_0.21-14+b1_amd64.deb ... Unpacking gettext (0.21-14+b1) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../29-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 .../30-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../31-debhelper_13.15.3_all.deb ... Unpacking debhelper (13.15.3) ... Selecting previously unselected package libbsd0:amd64. Preparing to unpack .../32-libbsd0_0.12.2-1_amd64.deb ... Unpacking libbsd0:amd64 (0.12.2-1) ... Selecting previously unselected package libncurses6:amd64. Preparing to unpack .../33-libncurses6_6.4+20240414-1_amd64.deb ... Unpacking libncurses6:amd64 (6.4+20240414-1) ... Selecting previously unselected package libncurses-dev:amd64. Preparing to unpack .../34-libncurses-dev_6.4+20240414-1_amd64.deb ... Unpacking libncurses-dev:amd64 (6.4+20240414-1) ... Selecting previously unselected package libpthread-stubs0-dev:amd64. Preparing to unpack .../35-libpthread-stubs0-dev_0.4-1+b1_amd64.deb ... Unpacking libpthread-stubs0-dev:amd64 (0.4-1+b1) ... Selecting previously unselected package libreadline8t64:amd64. Preparing to unpack .../36-libreadline8t64_8.2-4_amd64.deb ... Adding 'diversion of /lib/x86_64-linux-gnu/libhistory.so.8 to /lib/x86_64-linux-gnu/libhistory.so.8.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/x86_64-linux-gnu/libhistory.so.8.2 to /lib/x86_64-linux-gnu/libhistory.so.8.2.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/x86_64-linux-gnu/libreadline.so.8 to /lib/x86_64-linux-gnu/libreadline.so.8.usr-is-merged by libreadline8t64' Adding 'diversion of /lib/x86_64-linux-gnu/libreadline.so.8.2 to /lib/x86_64-linux-gnu/libreadline.so.8.2.usr-is-merged by libreadline8t64' Unpacking libreadline8t64:amd64 (8.2-4) ... Selecting previously unselected package libreadline-dev:amd64. Preparing to unpack .../37-libreadline-dev_8.2-4_amd64.deb ... Unpacking libreadline-dev:amd64 (8.2-4) ... 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:amd64. Preparing to unpack .../39-libxau6_1%3a1.0.9-1+b1_amd64.deb ... Unpacking libxau6:amd64 (1:1.0.9-1+b1) ... Selecting previously unselected package libxdmcp6:amd64. Preparing to unpack .../40-libxdmcp6_1%3a1.1.2-3+b1_amd64.deb ... Unpacking libxdmcp6:amd64 (1:1.1.2-3+b1) ... Selecting previously unselected package libxcb1:amd64. Preparing to unpack .../41-libxcb1_1.17.0-1_amd64.deb ... Unpacking libxcb1:amd64 (1.17.0-1) ... Selecting previously unselected package libx11-data. Preparing to unpack .../42-libx11-data_2%3a1.8.7-1_all.deb ... Unpacking libx11-data (2:1.8.7-1) ... Selecting previously unselected package libx11-6:amd64. Preparing to unpack .../43-libx11-6_2%3a1.8.7-1+b1_amd64.deb ... Unpacking libx11-6:amd64 (2:1.8.7-1+b1) ... 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:amd64. Preparing to unpack .../46-libxau-dev_1%3a1.0.9-1+b1_amd64.deb ... Unpacking libxau-dev:amd64 (1:1.0.9-1+b1) ... Selecting previously unselected package libxdmcp-dev:amd64. Preparing to unpack .../47-libxdmcp-dev_1%3a1.1.2-3+b1_amd64.deb ... Unpacking libxdmcp-dev:amd64 (1:1.1.2-3+b1) ... 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:amd64. Preparing to unpack .../49-libxcb1-dev_1.17.0-1_amd64.deb ... Unpacking libxcb1-dev:amd64 (1.17.0-1) ... Selecting previously unselected package libx11-dev:amd64. Preparing to unpack .../50-libx11-dev_2%3a1.8.7-1+b1_amd64.deb ... Unpacking libx11-dev:amd64 (2:1.8.7-1+b1) ... 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-3_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-3) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../54-libxml-libxml-perl_2.0207+dfsg+really+2.0134-1+b3_amd64.deb ... Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-1+b3) ... 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-3+b1_amd64.deb ... Unpacking texinfo-lib (7.1-3+b1) ... Selecting previously unselected package texinfo. Preparing to unpack .../58-texinfo_7.1-3_all.deb ... Unpacking texinfo (7.1-3) ... Setting up libpipeline1:amd64 (1.5.7-2) ... Setting up libxau6:amd64 (1:1.0.9-1+b1) ... Setting up libicu72:amd64 (72.1-4+b1) ... Setting up bsdextrautils (2.40-8) ... Setting up libmagic-mgc (1:5.45-3) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.15.3) ... Setting up libmagic1t64:amd64 (1:5.45-3) ... Setting up libxml-namespacesupport-perl (1.12-2) ... Setting up gettext-base (0.21-14+b1) ... Setting up m4 (1.4.19-4) ... Setting up file (1:5.45-3) ... Setting up texinfo-lib (7.1-3+b1) ... Setting up libpthread-stubs0-dev:amd64 (0.4-1+b1) ... Setting up libelf1t64:amd64 (0.191-1+b1) ... 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.7-1) ... Setting up libncurses6:amd64 (6.4+20240414-1) ... Setting up autopoint (0.21-14) ... Setting up autoconf (2.71-3) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.22) ... Setting up libuchardet0:amd64 (0.0.8-1+b1) ... Setting up libsub-override-perl (0.10-1) ... Setting up xorg-sgml-doctools (1:1.11-1.1) ... Setting up libtext-unidecode-perl (1.30-3) ... Setting up libbsd0:amd64 (0.12.2-1) ... Setting up readline-common (8.2-4) ... Setting up libxml2:amd64 (2.9.14+dfsg-1.3+b3) ... 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.13.1-1) ... Setting up libxdmcp6:amd64 (1:1.1.2-3+b1) ... Setting up libncurses-dev:amd64 (6.4+20240414-1) ... Setting up libxcb1:amd64 (1.17.0-1) ... Setting up gettext (0.21-14+b1) ... Setting up libxau-dev:amd64 (1:1.0.9-1+b1) ... Setting up libtool (2.4.7-7) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up slib (3b6-3) ... Setting up dh-autoreconf (20) ... Setting up libxdmcp-dev:amd64 (1:1.1.2-3+b1) ... Setting up ucf (3.0043+nmu1) ... Setting up libreadline8t64:amd64 (8.2-4) ... Setting up dh-strip-nondeterminism (1.13.1-1) ... Setting up groff-base (1.23.0-4) ... Setting up libx11-6:amd64 (2:1.8.7-1+b1) ... Setting up libxcb1-dev:amd64 (1.17.0-1) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up libx11-dev:amd64 (2:1.8.7-1+b1) ... Setting up libreadline-dev:amd64 (8.2-4) ... Setting up man-db (2.12.1-1) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-3) ... 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-1+b3) ... 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.15.3) ... Setting up texinfo (7.1-3) ... Processing triggers for libc-bin (2.38-7) ... 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: user script /srv/workspace/pbuilder/1740570/tmp/hooks/A99_set_merged_usr starting Not re-configuring usrmerge for unstable I: user script /srv/workspace/pbuilder/1740570/tmp/hooks/A99_set_merged_usr finished hostname: Name or service not known I: Running cd /build/reproducible-path/scm-5f3/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../scm_5f3-6_source.changes dpkg-buildpackage: info: source package scm dpkg-buildpackage: info: source version 5f3-6 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Gwen Weinholt dpkg-source --before-build . dpkg-buildpackage: info: host architecture amd64 debian/rules clean dh clean debian/rules override_dh_testdir make[1]: Entering directory '/build/reproducible-path/scm-5f3' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/reproducible-path/scm-5f3' dh_auto_clean make -j20 distclean make[1]: Entering directory '/build/reproducible-path/scm-5f3' 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-5f3' dh_clean debian/rules binary dh binary debian/rules override_dh_testdir make[1]: Entering directory '/build/reproducible-path/scm-5f3' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/reproducible-path/scm-5f3' dh_update_autotools_config dh_autoreconf debian/rules override_dh_auto_configure make[1]: Entering directory '/build/reproducible-path/scm-5f3' ./configure #! /bin/cat # Generated by configure for scm 5f3. # This file (config.status) is included by the (scm) Makefile. PACKAGE_NAME=scm PACKAGE_TARNAME=scm PACKAGE_VERSION=5f3 PACKAGE_STRING=scm 5f3 PACKAGE_BUGREPORT=scm-discuss@gnu.org srcdir=/build/reproducible-path/scm-5f3/ 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-5f3' debian/rules override_dh_auto_build make[1]: Entering directory '/build/reproducible-path/scm-5f3' make scmlit make[2]: Entering directory '/build/reproducible-path/scm-5f3' echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"/build/reproducible-path/scm-5f3/Init5f3.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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 scm.c -o scm.o scm.c: In function 'process_signals': scm.c:180:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 180 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:294:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 294 | wta(UNDEFINED, (char *)i, ""); | ^ cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 repl.c -o repl.o repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:31: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 sys.c -o sys.o cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 script.c -o script.o script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/scm-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -O0 scmmain.c -o scmmain.o scmmain.c: In function 'main': scmmain.c:109:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 109 | if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ | ^ scmmain.c:119:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 119 | script_arg = argv[2]; /* Save for scm_find_execpath() call */ | ^ scmmain.c:120:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] 120 | nargc = script_count_argv(nargv); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:1081:51: note: expected 'const char **' but argument is of type 'char **' 1081 | SCM_EXPORT int script_count_argv P((const char **argv)); | ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:122:15: warning: assignment to 'char **' from incompatible pointer type 'const char **' [-Wincompatible-pointer-types] 122 | else {nargv = argv; nargc = argc;} | ^ scmmain.c:124:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] 124 | execpath = scm_find_execpath(nargc, nargv, script_arg); | ^~~~~ | | | char ** scm.h:776:69: note: expected 'const char * const*' but argument is of type 'char **' 776 | SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:131:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] 131 | scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); | ^~~~~ | | | char ** scm.h:769:69: note: expected 'const char * const*' but argument is of type 'char **' 769 | SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o -Wl,-z,relro -Wl,-z,now /usr/bin/ld: sys.o: in function `ltmpnam': ././sys.c:267:(.text+0x874): warning: the use of `tmpnam' is dangerous, better use `mkstemp' make checklit make[3]: Entering directory '/build/reproducible-path/scm-5f3' ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0") ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests make[3]: Leaving directory '/build/reproducible-path/scm-5f3' make[2]: Leaving directory '/build/reproducible-path/scm-5f3' # 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 \"Init5f3.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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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") socket.c: In function 'l_hostinfo': socket.c:147:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 147 | ve[ 1] = makfromstrs(-1, entry->h_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c:152:13: warning: assignment to 'const char **' from incompatible pointer type 'char **' [-Wincompatible-pointer-types] 152 | for (argv = entry->h_addr_list; argv[i]; i++); | ^ socket.c: In function 'l_netinfo': socket.c:184:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 184 | ve[ 1] = makfromstrs(-1, entry->n_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_protoinfo': socket.c:214:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 214 | ve[ 1] = makfromstrs(-1, entry->p_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_servinfo': socket.c:247:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 247 | ve[ 1] = makfromstrs(-1, entry->s_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ posix.c: In function 'l_grinfo': posix.c:194:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 194 | ve[ 3] = makfromstrs(-1, entry->gr_mem); | ~~~~~^~~~~~~~ | | | char ** In file included from posix.c:21: scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ crs.c:72:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 72 | wrefresh, | ^~~~~~~~ crs.c:72:3: note: (near initialization for 'winptob.fflush') crs.c:73:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 73 | wgetch, | ^~~~~~ crs.c:73:3: note: (near initialization for 'winptob.fgetc') crs.c: In function 'lunctrl': crs.c:241:17: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 241 | char *str = unctrl(ICHR(c)); | ^~~~~~ crs.c: In function 'init_crs': crs.c:390:13: warning: passing argument 1 of 'add_final' from incompatible pointer type [-Wincompatible-pointer-types] 390 | add_final(lendwin); | ^~~~~~~ | | | SCM (*)() {aka long int (*)()} In file included from crs.c:21: scm.h:1002:37: note: expected 'void (*)(void)' but argument is of type 'SCM (*)()' {aka 'long int (*)()'} 1002 | SCM_EXPORT void add_final P((void (*final)(void))); | ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ x.c: In function 'make_xcolormap': x.c:337:51: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 337 | XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); | ^ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'CCC2SCM': x.c:585:47: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 585 | XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); | ^~~~~ | | | SCM {aka long int} /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'x_draw_string': x.c:2070:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2070 | xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); | ^~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ x.c: In function 'x_image_string': x.c:2076:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2076 | xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); | ^~~~~~~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ differ.c:33: warning: "I32" redefined 33 | #define I32 long | differ.c:27: note: this is the location of the previous definition 27 | # define I32 int | differ.c:122:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'long int * (*)()' [-Wincompatible-pointer-types] 122 | {long_subarray, | ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for 'long_procs.subarray') differ.c:126:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'short int * (*)()' [-Wincompatible-pointer-types] 126 | {short_subarray, | ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for 'short_procs.subarray') differ.c:130:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'char * (*)()' [-Wincompatible-pointer-types] 130 | {char_subarray, | ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for 'char_procs.subarray') scm.c: In function 'process_signals': scm.c:180:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 180 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:294:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 294 | wta(UNDEFINED, (char *)i, ""); | ^ scmmain.c: In function 'main': scmmain.c:109:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 109 | if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ | ^ scmmain.c:119:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 119 | script_arg = argv[2]; /* Save for scm_find_execpath() call */ | ^ scmmain.c:120:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] 120 | nargc = script_count_argv(nargv); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:1081:51: note: expected 'const char **' but argument is of type 'char **' 1081 | SCM_EXPORT int script_count_argv P((const char **argv)); | ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:122:15: warning: assignment to 'char **' from incompatible pointer type 'const char **' [-Wincompatible-pointer-types] 122 | else {nargv = argv; nargc = argc;} | ^ scmmain.c:124:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] 124 | execpath = scm_find_execpath(nargc, nargv, script_arg); | ^~~~~ | | | char ** scm.h:776:69: note: expected 'const char * const*' but argument is of type 'char **' 776 | SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:131:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] 131 | scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); | ^~~~~ | | | char ** scm.h:769:69: note: expected 'const char * const*' but argument is of type 'char **' 769 | SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:31: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ In file included from scl.c:21: scl.c: In function 'pmantexp2dbl': scm.h:1117:25: warning: passing argument 2 of 'num2dbl' makes pointer from integer without a cast [-Wint-conversion] 1117 | #define ARG1 2L | ^~ | | | long int scl.c:687:34: note: in expansion of macro 'ARG1' 687 | return ldexp(num2dbl(bmant,ARG1,s_str2number) * dpows5[point], point); | ^~~~ scm.h:1036:56: note: expected 'char *' but argument is of type 'long int' 1036 | SCM_EXPORT double num2dbl P((SCM num, char *pos, char *s_caller)); | ~~~~~~^~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scm.h:1117:25: warning: passing argument 2 of 'num2dbl' makes pointer from integer without a cast [-Wint-conversion] 1117 | #define ARG1 2L | ^~ | | | long int scl.c:717:32: note: in expansion of macro 'ARG1' 717 | return ldexp(num2dbl(bmant,ARG1,s_str2number) / dpows5[-point], point); | ^~~~ scm.h:1036:56: note: expected 'char *' but argument is of type 'long int' 1036 | SCM_EXPORT double num2dbl P((SCM num, char *pos, char *s_caller)); | ~~~~~~^~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ 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+0x8bf): 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 \"Init5f3.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-5f3=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -fcf-protection -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") socket.c: In function 'l_hostinfo': socket.c:147:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 147 | ve[ 1] = makfromstrs(-1, entry->h_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c:152:13: warning: assignment to 'const char **' from incompatible pointer type 'char **' [-Wincompatible-pointer-types] 152 | for (argv = entry->h_addr_list; argv[i]; i++); | ^ socket.c: In function 'l_netinfo': socket.c:184:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 184 | ve[ 1] = makfromstrs(-1, entry->n_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_protoinfo': socket.c:214:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 214 | ve[ 1] = makfromstrs(-1, entry->p_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_servinfo': socket.c:247:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 247 | ve[ 1] = makfromstrs(-1, entry->s_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ posix.c: In function 'l_grinfo': posix.c:194:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 194 | ve[ 3] = makfromstrs(-1, entry->gr_mem); | ~~~~~^~~~~~~~ | | | char ** In file included from posix.c:21: scm.h:1038:62: note: expected 'const char * const*' but argument is of type 'char **' 1038 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ crs.c:72:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 72 | wrefresh, | ^~~~~~~~ crs.c:72:3: note: (near initialization for 'winptob.fflush') crs.c:73:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 73 | wgetch, | ^~~~~~ crs.c:73:3: note: (near initialization for 'winptob.fgetc') crs.c: In function 'lunctrl': crs.c:241:17: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 241 | char *str = unctrl(ICHR(c)); | ^~~~~~ crs.c: In function 'init_crs': crs.c:390:13: warning: passing argument 1 of 'add_final' from incompatible pointer type [-Wincompatible-pointer-types] 390 | add_final(lendwin); | ^~~~~~~ | | | SCM (*)() {aka long int (*)()} In file included from crs.c:21: scm.h:1002:37: note: expected 'void (*)(void)' but argument is of type 'SCM (*)()' {aka 'long int (*)()'} 1002 | SCM_EXPORT void add_final P((void (*final)(void))); | ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ x.c: In function 'make_xcolormap': x.c:337:51: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 337 | XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); | ^ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'CCC2SCM': x.c:585:47: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 585 | XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); | ^~~~~ | | | SCM {aka long int} /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'x_draw_string': x.c:2070:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2070 | xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); | ^~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ x.c: In function 'x_image_string': x.c:2076:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2076 | xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); | ^~~~~~~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ differ.c:33: warning: "I32" redefined 33 | #define I32 long | differ.c:27: note: this is the location of the previous definition 27 | # define I32 int | differ.c:122:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'long int * (*)()' [-Wincompatible-pointer-types] 122 | {long_subarray, | ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for 'long_procs.subarray') differ.c:126:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'short int * (*)()' [-Wincompatible-pointer-types] 126 | {short_subarray, | ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for 'short_procs.subarray') differ.c:130:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'char * (*)()' [-Wincompatible-pointer-types] 130 | {char_subarray, | ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for 'char_procs.subarray') scm.c: In function 'process_signals': scm.c:180:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 180 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:294:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 294 | wta(UNDEFINED, (char *)i, ""); | ^ script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:31: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ In file included from scl.c:21: scl.c: In function 'pmantexp2dbl': scm.h:1117:25: warning: passing argument 2 of 'num2dbl' makes pointer from integer without a cast [-Wint-conversion] 1117 | #define ARG1 2L | ^~ | | | long int scl.c:687:34: note: in expansion of macro 'ARG1' 687 | return ldexp(num2dbl(bmant,ARG1,s_str2number) * dpows5[point], point); | ^~~~ scm.h:1036:56: note: expected 'char *' but argument is of type 'long int' 1036 | SCM_EXPORT double num2dbl P((SCM num, char *pos, char *s_caller)); | ~~~~~~^~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scm.h:1117:25: warning: passing argument 2 of 'num2dbl' makes pointer from integer without a cast [-Wint-conversion] 1117 | #define ARG1 2L | ^~ | | | long int scl.c:717:32: note: in expansion of macro 'ARG1' 717 | return ldexp(num2dbl(bmant,ARG1,s_str2number) / dpows5[-point], point); | ^~~~ scm.h:1036:56: note: expected 'char *' but argument is of type 'long int' 1036 | SCM_EXPORT double num2dbl P((SCM num, char *pos, char *s_caller)); | ~~~~~~^~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ 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-5f3' dh_auto_test make -j20 check "TESTSUITEFLAGS=-j20 --verbose" VERBOSE=1 make[1]: Entering directory '/build/reproducible-path/scm-5f3' ./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t (# 0.-1.i) ==> #t (# 0.+1.i) ==> #t (# 2.+1.i) ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (# 1 1.) ==> #f (# 0 0.) ==> #f (# 0. 0.) ==> #t (# 0. 0.) ==> #t (# 0. 0.) ==> #t (# 0. 0.) ==> #t (# 0. 0.) ==> #t SECTION(6 5 5) (magnitude 1.) ==> 1. (# 1.e300+1.e300i 4.e300+4.e300i) ==> 2.5e-1 (magnitude 1.) ==> 1. (# 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 2.5e-1 (# 0. 0.) ==> #t (# 0. 0.) ==> #t (# 0. 0.) ==> #t (# 3.9) ==> #t (max #t) ==> #t (# 3.9 4) ==> 4. (#inexact> 4) ==> 4. (#inexact> 4.) ==> 4. (#exact> 4) ==> 4 (#exact> 4.) ==> 4 (# -4.5) ==> -4. (# -3.5) ==> -4. (# -3.9) ==> -4. (# 0.) ==> 0. (# 2.5e-1) ==> 0. (# 8.e-1) ==> 1. (# 3.5) ==> 4. (# 4.5) ==> 4. (# 0. 1.) ==> 0. (# 0. 1) ==> 0. (# 0 1.) ==> 0. (# -25 0.) ==> 1. (# -3.25 0.) ==> 1. (# -3.25 0) ==> 1. (# 1 1) ==> 7.853981633974483e-1 (# "tmp3" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (2.5e-1 -3.25))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (2.5e-1 -3.25) (# #) ==> (define foo (quote (2.5e-1 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests SECTION(6 5 6) (float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (# cnt 308) success) (let* ((estr (string-append "1.e" (number->string cnt))) (num (string->number estr)) (str (number->string num))) (cond ((or (>= (string-length str) 10) (not (equal? (string->number str) num))) (set! success #f) (for-each write (list estr num str (string->number str))))))))>) ==> #t (#number (number->string xx)))) (cond ((not (= xx cnv)) (display "Number readback failure for ") (display (quasiquote (expt (unquote f2.0) (unquote p)))) (newline) (display xx) (newline) (set! all-ok? #f))))))>) ==> #t ;testing bignums; SECTION(6 5 7) (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> -1 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> 2 (# -33333333333333333332 3) ==> 1 (# -33333333333333333332 -3) ==> -2 (# -33333333333333333332 3) ==> -2 (# -33333333333333333332 -3) ==> -2 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> 33333333333333333330 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> -33333333333333333330 (# -3 -33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> 3 (# -3 -33333333333333333333) ==> -3 (# -2177452800 86400) ==> 0 (# 2177452800 -86400) ==> 0 (# 2177452800 86400) ==> 0 (# -2177452800 -86400) ==> 0 (# 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t (# 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (# 33333333333333333332 11111111111111111111) ==> 1 (# 33333333333333333330 11111111111111111111) ==> 1 (# 33333333333333333333 33333333333333333330) ==> 3 (# 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (# -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#string> 281474976710655325431) ==> "281474976710655325431" Passed all tests ;testing bignum-inexact comparisons; SECTION(6 5 5) (# 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f (# 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f (# 1427247692705959881058285969449495136382746623 1.42724769270596e45 1427247692705959881058285969449495136382746625) ==> #t To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing continuations; SECTION(6 9) (# (a (b (c))) ((a) b c)) ==> #t (# (a (b (c))) ((a) b c d)) ==> #f Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests make[1]: Leaving directory '/build/reproducible-path/scm-5f3' create-stamp debian/debhelper-build-stamp dh_prep debian/rules override_dh_auto_install make[1]: Entering directory '/build/reproducible-path/scm-5f3' # 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-5f3' 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-5f3' dh_strip --no-automatic-dbgsym make[1]: Leaving directory '/build/reproducible-path/scm-5f3' dh_makeshlibs -a dh_shlibdeps -a dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libreadline8t64 from: /lib/x86_64-linux-gnu/libreadline.so.8 dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libreadline8t64 to: /lib/x86_64-linux-gnu/libreadline.so.8.usr-is-merged dh_installdeb dh_gencontrol dh_md5sums dh_builddeb dpkg-deb: building package 'scm' in '../scm_5f3-6_amd64.deb'. dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f3-6_amd64.deb'. dpkg-genbuildinfo --build=binary -O../scm_5f3-6_amd64.buildinfo dpkg-genchanges --build=binary -O../scm_5f3-6_amd64.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: user script /srv/workspace/pbuilder/1740570/tmp/hooks/B01_cleanup starting I: user script /srv/workspace/pbuilder/1740570/tmp/hooks/B01_cleanup finished 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/1740570 and its subdirectories I: Current time: Sun May 5 14:16:19 +14 2024 I: pbuilder-time-stamp: 1714868179