Tue May 16 18:20:03 UTC 2023 I: starting to build scm/bookworm/amd64 on jenkins on '2023-05-16 18:19'
Tue May 16 18:20:03 UTC 2023 I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/amd64_14/20736/console.log
Tue May 16 18:20:03 UTC 2023 I: Downloading source for bookworm/scm=5f3-4
--2023-05-16 18:20:04-- http://cdn-fastly.deb.debian.org/debian/pool/main/s/scm/scm_5f3-4.dsc
Connecting to 78.137.99.97:3128... connected.
Proxy request sent, awaiting response... 200 OK
Length: 2050 (2.0K) [text/prs.lines.tag]
Saving to: ‘scm_5f3-4.dsc’
0K .. 100% 26.1M=0s
2023-05-16 18:20:04 (26.1 MB/s) - ‘scm_5f3-4.dsc’ saved [2050/2050]
Tue May 16 18:20:04 UTC 2023 I: scm_5f3-4.dsc
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512
Format: 3.0 (quilt)
Source: scm
Binary: scm, libscm-dev
Architecture: any
Version: 5f3-4
Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org>
Uploaders: Bryan Newbold <bnewbold@robocracy.org>, Barak A. Pearlmutter <bap@debian.org>, Göran Weinholt <weinholt@debian.org>
Homepage: https://people.csail.mit.edu/jaffer/SCM.html
Standards-Version: 4.6.1
Vcs-Browser: https://salsa.debian.org/scheme-team/scm
Vcs-Git: https://salsa.debian.org/scheme-team/scm.git
Build-Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev
Package-List:
libscm-dev deb libdevel optional arch=any
scm deb interpreters optional arch=any
Checksums-Sha1:
30cd6e8d87795d38d8c648d380c628ff73125494 641292 scm_5f3.orig.tar.xz
cd0813b461a2eca6520a2a653777a77160e6ad5f 14704 scm_5f3-4.debian.tar.xz
Checksums-Sha256:
ee790032ac8592dd87fa2b03c7303507b53f2181a27a907636e93be7dd30fc62 641292 scm_5f3.orig.tar.xz
40153b11508d4baf791a91b9664832d66f98dac8faa153525e90d4b0bfdc0d3c 14704 scm_5f3-4.debian.tar.xz
Files:
b8fea96dd6f912fb4bbc7c5792a8f7b4 641292 scm_5f3.orig.tar.xz
03441fc70bba6762beb2f7dcf8e56739 14704 scm_5f3-4.debian.tar.xz
-----BEGIN PGP SIGNATURE-----
iQIzBAEBCgAdFiEEkjZVexcMh/iCHArDweDZLphvfH4FAmPH3T4ACgkQweDZLphv
fH5pPA//TKH0d1aIMG1eiBpi63CzKB14coWd/+3SbixW1ZJERICSF+HE3qvT554b
iiriv67/rHbce+SG8ef3v/5mWyDeVO8VtckYKC1hPEU7IHOYFXIdDhsr2MUQ2Q4h
YUmy3sm2IopjSmyPPdDNJRbFrWI7+/kYV7Y0N50bx+Ana5mA72hNRxy5wJ3f/JTt
prSE8CmjwlcCZnvPLeNB2VeLrGmn66uDfB/HOLwmo9TVE0Ns44Zm8YXSq0tJTuFj
LZ+ULDm1oU2x+1rgyt3+REKKj+KRMWu35StCgEUvBzsVgwRNx0yWcYIer16zKOVO
m34pIq0WvBp0stKQPZyjwMpdPOGzm/4wR8lXbz01SaXXhjqeENAPscjedeMV43dX
wSDslQ22YVAoeTMeB86GGPy17Saqz5MskRWdlSoW+QMTvJn9Rx79PO3HMSCz09WO
sOUeo498boxbPLZRG9RL0fHeYkdJA+zClz8h0sWfJdalt8radF9HV50mDpoJQf0u
swacKZyqQJmtkt1qAtwd/uxMSM/R0DBFG3Wa7/D1nCs2p93H4nrm8aov0ncRyCw3
HJaLhwtHlkNHEKZslOmZccufoZ5tz82iPAmPZoprnAqr0+UOLFofc7FocdSj/Ynv
3oDP4liw0HWR/v69lqw1l06HjKOLNAo2TB8ce6uukOAz8UYChH0=
=FLLT
-----END PGP SIGNATURE-----
Tue May 16 18:20:04 UTC 2023 I: Checking whether the package is not for us
Tue May 16 18:20:04 UTC 2023 I: Starting 1st build on remote node ionos5-amd64.debian.net.
Tue May 16 18:20:04 UTC 2023 I: Preparing to do remote build '1' on ionos5-amd64.debian.net.
Tue May 16 18:22:05 UTC 2023 I: Deleting $TMPDIR on ionos5-amd64.debian.net.
I: pbuilder: network access will be disabled during build
I: Current time: Mon Jun 17 12:43:09 -12 2024
I: pbuilder-time-stamp: 1718671389
I: Building the build Environment
I: extracting base tarball [/var/cache/pbuilder/bookworm-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-4.dsc]
I: copying [./scm_5f3.orig.tar.xz]
I: copying [./scm_5f3-4.debian.tar.xz]
I: Extracting source
gpgv: Signature made Tue Jan 17 23:51:26 2023 -12
gpgv: using RSA key 9236557B170C87F8821C0AC3C1E0D92E986F7C7E
gpgv: Can't check signature: No public key
dpkg-source: warning: cannot verify inline signature for ./scm_5f3-4.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-4.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
I: Not using root during the build.
I: Installing the build-deps
I: user script /srv/workspace/pbuilder/2928428/tmp/hooks/D02_print_environment starting
I: set
BUILDDIR='/build'
BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other'
BUILDUSERNAME='pbuilder1'
BUILD_ARCH='amd64'
DEBIAN_FRONTEND='noninteractive'
DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=16 '
DISTRIBUTION='bookworm'
HOME='/root'
HOST_ARCH='amd64'
IFS='
'
INVOCATION_ID='0b6d4298e8c3456795688c78b5417e40'
LANG='C'
LANGUAGE='en_US:en'
LC_ALL='C'
MAIL='/var/mail/root'
OPTIND='1'
PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games'
PBCURRENTCOMMANDLINEOPERATION='build'
PBUILDER_OPERATION='build'
PBUILDER_PKGDATADIR='/usr/share/pbuilder'
PBUILDER_PKGLIBDIR='/usr/lib/pbuilder'
PBUILDER_SYSCONFDIR='/etc'
PPID='2928428'
PS1='# '
PS2='> '
PS4='+ '
PWD='/'
SHELL='/bin/bash'
SHLVL='2'
SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/pbuilderrc_waa1 --distribution bookworm --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bookworm-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/b1 --logfile b1/build.log scm_5f3-4.dsc'
SUDO_GID='110'
SUDO_UID='105'
SUDO_USER='jenkins'
TERM='unknown'
TZ='/usr/share/zoneinfo/Etc/GMT+12'
USER='root'
_='/usr/bin/systemd-run'
http_proxy='http://85.184.249.68:3128'
I: uname -a
Linux ionos5-amd64 6.1.0-0.deb11.6-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.15-1~bpo11+1 (2023-03-16) x86_64 GNU/Linux
I: ls -l /bin
total 5632
-rwxr-xr-x 1 root root 1265648 Apr 23 2023 bash
-rwxr-xr-x 3 root root 39224 Sep 18 2022 bunzip2
-rwxr-xr-x 3 root root 39224 Sep 18 2022 bzcat
lrwxrwxrwx 1 root root 6 Sep 18 2022 bzcmp -> bzdiff
-rwxr-xr-x 1 root root 2225 Sep 18 2022 bzdiff
lrwxrwxrwx 1 root root 6 Sep 18 2022 bzegrep -> bzgrep
-rwxr-xr-x 1 root root 4893 Nov 27 2021 bzexe
lrwxrwxrwx 1 root root 6 Sep 18 2022 bzfgrep -> bzgrep
-rwxr-xr-x 1 root root 3775 Sep 18 2022 bzgrep
-rwxr-xr-x 3 root root 39224 Sep 18 2022 bzip2
-rwxr-xr-x 1 root root 14568 Sep 18 2022 bzip2recover
lrwxrwxrwx 1 root root 6 Sep 18 2022 bzless -> bzmore
-rwxr-xr-x 1 root root 1297 Sep 18 2022 bzmore
-rwxr-xr-x 1 root root 44016 Sep 20 2022 cat
-rwxr-xr-x 1 root root 68656 Sep 20 2022 chgrp
-rwxr-xr-x 1 root root 64496 Sep 20 2022 chmod
-rwxr-xr-x 1 root root 72752 Sep 20 2022 chown
-rwxr-xr-x 1 root root 151152 Sep 20 2022 cp
-rwxr-xr-x 1 root root 125640 Jan 5 2023 dash
-rwxr-xr-x 1 root root 121904 Sep 20 2022 date
-rwxr-xr-x 1 root root 89240 Sep 20 2022 dd
-rwxr-xr-x 1 root root 102200 Sep 20 2022 df
-rwxr-xr-x 1 root root 151344 Sep 20 2022 dir
-rwxr-xr-x 1 root root 88656 Mar 22 2023 dmesg
lrwxrwxrwx 1 root root 8 Dec 19 2022 dnsdomainname -> hostname
lrwxrwxrwx 1 root root 8 Dec 19 2022 domainname -> hostname
-rwxr-xr-x 1 root root 43856 Sep 20 2022 echo
-rwxr-xr-x 1 root root 41 Jan 24 2023 egrep
-rwxr-xr-x 1 root root 35664 Sep 20 2022 false
-rwxr-xr-x 1 root root 41 Jan 24 2023 fgrep
-rwxr-xr-x 1 root root 85600 Mar 22 2023 findmnt
-rwsr-xr-x 1 root root 35128 Mar 22 2023 fusermount
-rwxr-xr-x 1 root root 203152 Jan 24 2023 grep
-rwxr-xr-x 2 root root 2346 Apr 9 2022 gunzip
-rwxr-xr-x 1 root root 6447 Apr 9 2022 gzexe
-rwxr-xr-x 1 root root 98136 Apr 9 2022 gzip
-rwxr-xr-x 1 root root 22680 Dec 19 2022 hostname
-rwxr-xr-x 1 root root 72824 Sep 20 2022 ln
-rwxr-xr-x 1 root root 53024 Mar 23 2023 login
-rwxr-xr-x 1 root root 151344 Sep 20 2022 ls
-rwxr-xr-x 1 root root 207168 Mar 22 2023 lsblk
-rwxr-xr-x 1 root root 97552 Sep 20 2022 mkdir
-rwxr-xr-x 1 root root 72912 Sep 20 2022 mknod
-rwxr-xr-x 1 root root 43952 Sep 20 2022 mktemp
-rwxr-xr-x 1 root root 59712 Mar 22 2023 more
-rwsr-xr-x 1 root root 59704 Mar 22 2023 mount
-rwxr-xr-x 1 root root 18744 Mar 22 2023 mountpoint
-rwxr-xr-x 1 root root 142968 Sep 20 2022 mv
lrwxrwxrwx 1 root root 8 Dec 19 2022 nisdomainname -> hostname
lrwxrwxrwx 1 root root 14 Apr 2 2023 pidof -> /sbin/killall5
-rwxr-xr-x 1 root root 43952 Sep 20 2022 pwd
lrwxrwxrwx 1 root root 4 Apr 23 2023 rbash -> bash
-rwxr-xr-x 1 root root 52112 Sep 20 2022 readlink
-rwxr-xr-x 1 root root 72752 Sep 20 2022 rm
-rwxr-xr-x 1 root root 56240 Sep 20 2022 rmdir
-rwxr-xr-x 1 root root 27560 Nov 2 2022 run-parts
-rwxr-xr-x 1 root root 126424 Jan 5 2023 sed
lrwxrwxrwx 1 root root 4 Jan 5 2023 sh -> dash
-rwxr-xr-x 1 root root 43888 Sep 20 2022 sleep
-rwxr-xr-x 1 root root 85008 Sep 20 2022 stty
-rwsr-xr-x 1 root root 72000 Mar 22 2023 su
-rwxr-xr-x 1 root root 39824 Sep 20 2022 sync
-rwxr-xr-x 1 root root 531984 Apr 6 2023 tar
-rwxr-xr-x 1 root root 14520 Nov 2 2022 tempfile
-rwxr-xr-x 1 root root 109616 Sep 20 2022 touch
-rwxr-xr-x 1 root root 35664 Sep 20 2022 true
-rwxr-xr-x 1 root root 14568 Mar 22 2023 ulockmgr_server
-rwsr-xr-x 1 root root 35128 Mar 22 2023 umount
-rwxr-xr-x 1 root root 43888 Sep 20 2022 uname
-rwxr-xr-x 2 root root 2346 Apr 9 2022 uncompress
-rwxr-xr-x 1 root root 151344 Sep 20 2022 vdir
-rwxr-xr-x 1 root root 72024 Mar 22 2023 wdctl
lrwxrwxrwx 1 root root 8 Dec 19 2022 ypdomainname -> hostname
-rwxr-xr-x 1 root root 1984 Apr 9 2022 zcat
-rwxr-xr-x 1 root root 1678 Apr 9 2022 zcmp
-rwxr-xr-x 1 root root 6460 Apr 9 2022 zdiff
-rwxr-xr-x 1 root root 29 Apr 9 2022 zegrep
-rwxr-xr-x 1 root root 29 Apr 9 2022 zfgrep
-rwxr-xr-x 1 root root 2081 Apr 9 2022 zforce
-rwxr-xr-x 1 root root 8103 Apr 9 2022 zgrep
-rwxr-xr-x 1 root root 2206 Apr 9 2022 zless
-rwxr-xr-x 1 root root 1842 Apr 9 2022 zmore
-rwxr-xr-x 1 root root 4577 Apr 9 2022 znew
I: user script /srv/workspace/pbuilder/2928428/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 <pbuilder-maint@lists.alioth.debian.org>
Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder
This package was created automatically by pbuilder to satisfy the
build-dependencies of the package being currently built.
Depends: debhelper-compat (= 13), slib, libncurses-dev, libreadline-dev, texinfo, libx11-dev
dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'.
Selecting previously unselected package pbuilder-satisfydepends-dummy.
(Reading database ... 19596 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} libelf1{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1{a} libncurses-dev{a} libncurses6{a} libpipeline1{a} libpthread-stubs0-dev{a} libreadline-dev{a} libreadline8{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} 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, 58 newly installed, 0 to remove and 0 not upgraded.
Need to get 26.0 MB of archives. After unpacking 106 MB will be used.
Writing extended state information...
Get: 1 http://deb.debian.org/debian bookworm/main amd64 readline-common all 8.2-1.3 [69.0 kB]
Get: 2 http://deb.debian.org/debian bookworm/main amd64 sensible-utils all 0.0.17+nmu1 [19.0 kB]
Get: 3 http://deb.debian.org/debian bookworm/main amd64 libmagic-mgc amd64 1:5.44-3 [305 kB]
Get: 4 http://deb.debian.org/debian bookworm/main amd64 libmagic1 amd64 1:5.44-3 [104 kB]
Get: 5 http://deb.debian.org/debian bookworm/main amd64 file amd64 1:5.44-3 [42.5 kB]
Get: 6 http://deb.debian.org/debian bookworm/main amd64 gettext-base amd64 0.21-12 [160 kB]
Get: 7 http://deb.debian.org/debian bookworm/main amd64 libuchardet0 amd64 0.0.7-1 [67.8 kB]
Get: 8 http://deb.debian.org/debian bookworm/main amd64 groff-base amd64 1.22.4-10 [916 kB]
Get: 9 http://deb.debian.org/debian bookworm/main amd64 bsdextrautils amd64 2.38.1-5+b1 [86.6 kB]
Get: 10 http://deb.debian.org/debian bookworm/main amd64 libpipeline1 amd64 1.5.7-1 [38.5 kB]
Get: 11 http://deb.debian.org/debian bookworm/main amd64 man-db amd64 2.11.2-2 [1386 kB]
Get: 12 http://deb.debian.org/debian bookworm/main amd64 ucf all 3.0043+nmu1 [55.2 kB]
Get: 13 http://deb.debian.org/debian bookworm/main amd64 m4 amd64 1.4.19-3 [287 kB]
Get: 14 http://deb.debian.org/debian bookworm/main amd64 autoconf all 2.71-3 [332 kB]
Get: 15 http://deb.debian.org/debian bookworm/main amd64 autotools-dev all 20220109.1 [51.6 kB]
Get: 16 http://deb.debian.org/debian bookworm/main amd64 automake all 1:1.16.5-1.3 [823 kB]
Get: 17 http://deb.debian.org/debian bookworm/main amd64 autopoint all 0.21-12 [495 kB]
Get: 18 http://deb.debian.org/debian bookworm/main amd64 libdebhelper-perl all 13.11.4 [81.2 kB]
Get: 19 http://deb.debian.org/debian bookworm/main amd64 libtool all 2.4.7-5 [517 kB]
Get: 20 http://deb.debian.org/debian bookworm/main amd64 dh-autoreconf all 20 [17.1 kB]
Get: 21 http://deb.debian.org/debian bookworm/main amd64 libarchive-zip-perl all 1.68-1 [104 kB]
Get: 22 http://deb.debian.org/debian bookworm/main amd64 libsub-override-perl all 0.09-4 [9304 B]
Get: 23 http://deb.debian.org/debian bookworm/main amd64 libfile-stripnondeterminism-perl all 1.13.1-1 [19.4 kB]
Get: 24 http://deb.debian.org/debian bookworm/main amd64 dh-strip-nondeterminism all 1.13.1-1 [8620 B]
Get: 25 http://deb.debian.org/debian bookworm/main amd64 libelf1 amd64 0.188-2.1 [174 kB]
Get: 26 http://deb.debian.org/debian bookworm/main amd64 dwz amd64 0.15-1 [109 kB]
Get: 27 http://deb.debian.org/debian bookworm/main amd64 libicu72 amd64 72.1-3 [9376 kB]
Get: 28 http://deb.debian.org/debian bookworm/main amd64 libxml2 amd64 2.9.14+dfsg-1.2 [687 kB]
Get: 29 http://deb.debian.org/debian bookworm/main amd64 gettext amd64 0.21-12 [1300 kB]
Get: 30 http://deb.debian.org/debian bookworm/main amd64 intltool-debian all 0.35.0+20060710.6 [22.9 kB]
Get: 31 http://deb.debian.org/debian bookworm/main amd64 po-debconf all 1.0.21+nmu1 [248 kB]
Get: 32 http://deb.debian.org/debian bookworm/main amd64 debhelper all 13.11.4 [942 kB]
Get: 33 http://deb.debian.org/debian bookworm/main amd64 libbsd0 amd64 0.11.7-2 [117 kB]
Get: 34 http://deb.debian.org/debian bookworm/main amd64 libncurses6 amd64 6.4-4 [103 kB]
Get: 35 http://deb.debian.org/debian bookworm/main amd64 libncurses-dev amd64 6.4-4 [349 kB]
Get: 36 http://deb.debian.org/debian bookworm/main amd64 libpthread-stubs0-dev amd64 0.4-1 [5344 B]
Get: 37 http://deb.debian.org/debian bookworm/main amd64 libreadline8 amd64 8.2-1.3 [166 kB]
Get: 38 http://deb.debian.org/debian bookworm/main amd64 libreadline-dev amd64 8.2-1.3 [151 kB]
Get: 39 http://deb.debian.org/debian bookworm/main amd64 libtext-unidecode-perl all 1.30-3 [101 kB]
Get: 40 http://deb.debian.org/debian bookworm/main amd64 libxau6 amd64 1:1.0.9-1 [19.7 kB]
Get: 41 http://deb.debian.org/debian bookworm/main amd64 libxdmcp6 amd64 1:1.1.2-3 [26.3 kB]
Get: 42 http://deb.debian.org/debian bookworm/main amd64 libxcb1 amd64 1.15-1 [144 kB]
Get: 43 http://deb.debian.org/debian bookworm/main amd64 libx11-data all 2:1.8.4-2 [292 kB]
Get: 44 http://deb.debian.org/debian bookworm/main amd64 libx11-6 amd64 2:1.8.4-2 [759 kB]
Get: 45 http://deb.debian.org/debian bookworm/main amd64 xorg-sgml-doctools all 1:1.11-1.1 [22.1 kB]
Get: 46 http://deb.debian.org/debian bookworm/main amd64 x11proto-dev all 2022.1-1 [599 kB]
Get: 47 http://deb.debian.org/debian bookworm/main amd64 libxau-dev amd64 1:1.0.9-1 [22.9 kB]
Get: 48 http://deb.debian.org/debian bookworm/main amd64 libxdmcp-dev amd64 1:1.1.2-3 [42.2 kB]
Get: 49 http://deb.debian.org/debian bookworm/main amd64 xtrans-dev all 1.4.0-1 [98.7 kB]
Get: 50 http://deb.debian.org/debian bookworm/main amd64 libxcb1-dev amd64 1.15-1 [181 kB]
Get: 51 http://deb.debian.org/debian bookworm/main amd64 libx11-dev amd64 2:1.8.4-2 [836 kB]
Get: 52 http://deb.debian.org/debian bookworm/main amd64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB]
Get: 53 http://deb.debian.org/debian bookworm/main amd64 libxml-sax-base-perl all 1.09-3 [20.6 kB]
Get: 54 http://deb.debian.org/debian bookworm/main amd64 libxml-sax-perl all 1.02+dfsg-3 [59.4 kB]
Get: 55 http://deb.debian.org/debian bookworm/main amd64 libxml-libxml-perl amd64 2.0207+dfsg+really+2.0134-1+b1 [322 kB]
Get: 56 http://deb.debian.org/debian bookworm/main amd64 slib all 3b6-3 [837 kB]
Get: 57 http://deb.debian.org/debian bookworm/main amd64 tex-common all 6.18 [32.5 kB]
Get: 58 http://deb.debian.org/debian bookworm/main amd64 texinfo amd64 6.8-6+b1 [1816 kB]
Fetched 26.0 MB in 5s (4924 kB/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 ... 19596 files and directories currently installed.)
Preparing to unpack .../00-readline-common_8.2-1.3_all.deb ...
Unpacking readline-common (8.2-1.3) ...
Selecting previously unselected package sensible-utils.
Preparing to unpack .../01-sensible-utils_0.0.17+nmu1_all.deb ...
Unpacking sensible-utils (0.0.17+nmu1) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../02-libmagic-mgc_1%3a5.44-3_amd64.deb ...
Unpacking libmagic-mgc (1:5.44-3) ...
Selecting previously unselected package libmagic1:amd64.
Preparing to unpack .../03-libmagic1_1%3a5.44-3_amd64.deb ...
Unpacking libmagic1:amd64 (1:5.44-3) ...
Selecting previously unselected package file.
Preparing to unpack .../04-file_1%3a5.44-3_amd64.deb ...
Unpacking file (1:5.44-3) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../05-gettext-base_0.21-12_amd64.deb ...
Unpacking gettext-base (0.21-12) ...
Selecting previously unselected package libuchardet0:amd64.
Preparing to unpack .../06-libuchardet0_0.0.7-1_amd64.deb ...
Unpacking libuchardet0:amd64 (0.0.7-1) ...
Selecting previously unselected package groff-base.
Preparing to unpack .../07-groff-base_1.22.4-10_amd64.deb ...
Unpacking groff-base (1.22.4-10) ...
Selecting previously unselected package bsdextrautils.
Preparing to unpack .../08-bsdextrautils_2.38.1-5+b1_amd64.deb ...
Unpacking bsdextrautils (2.38.1-5+b1) ...
Selecting previously unselected package libpipeline1:amd64.
Preparing to unpack .../09-libpipeline1_1.5.7-1_amd64.deb ...
Unpacking libpipeline1:amd64 (1.5.7-1) ...
Selecting previously unselected package man-db.
Preparing to unpack .../10-man-db_2.11.2-2_amd64.deb ...
Unpacking man-db (2.11.2-2) ...
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-3_amd64.deb ...
Unpacking m4 (1.4.19-3) ...
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-12_all.deb ...
Unpacking autopoint (0.21-12) ...
Selecting previously unselected package libdebhelper-perl.
Preparing to unpack .../17-libdebhelper-perl_13.11.4_all.deb ...
Unpacking libdebhelper-perl (13.11.4) ...
Selecting previously unselected package libtool.
Preparing to unpack .../18-libtool_2.4.7-5_all.deb ...
Unpacking libtool (2.4.7-5) ...
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.09-4_all.deb ...
Unpacking libsub-override-perl (0.09-4) ...
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 libelf1:amd64.
Preparing to unpack .../24-libelf1_0.188-2.1_amd64.deb ...
Unpacking libelf1:amd64 (0.188-2.1) ...
Selecting previously unselected package dwz.
Preparing to unpack .../25-dwz_0.15-1_amd64.deb ...
Unpacking dwz (0.15-1) ...
Selecting previously unselected package libicu72:amd64.
Preparing to unpack .../26-libicu72_72.1-3_amd64.deb ...
Unpacking libicu72:amd64 (72.1-3) ...
Selecting previously unselected package libxml2:amd64.
Preparing to unpack .../27-libxml2_2.9.14+dfsg-1.2_amd64.deb ...
Unpacking libxml2:amd64 (2.9.14+dfsg-1.2) ...
Selecting previously unselected package gettext.
Preparing to unpack .../28-gettext_0.21-12_amd64.deb ...
Unpacking gettext (0.21-12) ...
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.11.4_all.deb ...
Unpacking debhelper (13.11.4) ...
Selecting previously unselected package libbsd0:amd64.
Preparing to unpack .../32-libbsd0_0.11.7-2_amd64.deb ...
Unpacking libbsd0:amd64 (0.11.7-2) ...
Selecting previously unselected package libncurses6:amd64.
Preparing to unpack .../33-libncurses6_6.4-4_amd64.deb ...
Unpacking libncurses6:amd64 (6.4-4) ...
Selecting previously unselected package libncurses-dev:amd64.
Preparing to unpack .../34-libncurses-dev_6.4-4_amd64.deb ...
Unpacking libncurses-dev:amd64 (6.4-4) ...
Selecting previously unselected package libpthread-stubs0-dev:amd64.
Preparing to unpack .../35-libpthread-stubs0-dev_0.4-1_amd64.deb ...
Unpacking libpthread-stubs0-dev:amd64 (0.4-1) ...
Selecting previously unselected package libreadline8:amd64.
Preparing to unpack .../36-libreadline8_8.2-1.3_amd64.deb ...
Unpacking libreadline8:amd64 (8.2-1.3) ...
Selecting previously unselected package libreadline-dev:amd64.
Preparing to unpack .../37-libreadline-dev_8.2-1.3_amd64.deb ...
Unpacking libreadline-dev:amd64 (8.2-1.3) ...
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_amd64.deb ...
Unpacking libxau6:amd64 (1:1.0.9-1) ...
Selecting previously unselected package libxdmcp6:amd64.
Preparing to unpack .../40-libxdmcp6_1%3a1.1.2-3_amd64.deb ...
Unpacking libxdmcp6:amd64 (1:1.1.2-3) ...
Selecting previously unselected package libxcb1:amd64.
Preparing to unpack .../41-libxcb1_1.15-1_amd64.deb ...
Unpacking libxcb1:amd64 (1.15-1) ...
Selecting previously unselected package libx11-data.
Preparing to unpack .../42-libx11-data_2%3a1.8.4-2_all.deb ...
Unpacking libx11-data (2:1.8.4-2) ...
Selecting previously unselected package libx11-6:amd64.
Preparing to unpack .../43-libx11-6_2%3a1.8.4-2_amd64.deb ...
Unpacking libx11-6:amd64 (2:1.8.4-2) ...
Selecting previously unselected package xorg-sgml-doctools.
Preparing to unpack .../44-xorg-sgml-doctools_1%3a1.11-1.1_all.deb ...
Unpacking xorg-sgml-doctools (1:1.11-1.1) ...
Selecting previously unselected package x11proto-dev.
Preparing to unpack .../45-x11proto-dev_2022.1-1_all.deb ...
Unpacking x11proto-dev (2022.1-1) ...
Selecting previously unselected package libxau-dev:amd64.
Preparing to unpack .../46-libxau-dev_1%3a1.0.9-1_amd64.deb ...
Unpacking libxau-dev:amd64 (1:1.0.9-1) ...
Selecting previously unselected package libxdmcp-dev:amd64.
Preparing to unpack .../47-libxdmcp-dev_1%3a1.1.2-3_amd64.deb ...
Unpacking libxdmcp-dev:amd64 (1:1.1.2-3) ...
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.15-1_amd64.deb ...
Unpacking libxcb1-dev:amd64 (1.15-1) ...
Selecting previously unselected package libx11-dev:amd64.
Preparing to unpack .../50-libx11-dev_2%3a1.8.4-2_amd64.deb ...
Unpacking libx11-dev:amd64 (2:1.8.4-2) ...
Selecting previously unselected package libxml-namespacesupport-perl.
Preparing to unpack .../51-libxml-namespacesupport-perl_1.12-2_all.deb ...
Unpacking libxml-namespacesupport-perl (1.12-2) ...
Selecting previously unselected package libxml-sax-base-perl.
Preparing to unpack .../52-libxml-sax-base-perl_1.09-3_all.deb ...
Unpacking libxml-sax-base-perl (1.09-3) ...
Selecting previously unselected package libxml-sax-perl.
Preparing to unpack .../53-libxml-sax-perl_1.02+dfsg-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+b1_amd64.deb ...
Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-1+b1) ...
Selecting previously unselected package slib.
Preparing to unpack .../55-slib_3b6-3_all.deb ...
Unpacking slib (3b6-3) ...
Selecting previously unselected package tex-common.
Preparing to unpack .../56-tex-common_6.18_all.deb ...
Unpacking tex-common (6.18) ...
Selecting previously unselected package texinfo.
Preparing to unpack .../57-texinfo_6.8-6+b1_amd64.deb ...
Unpacking texinfo (6.8-6+b1) ...
Setting up libpipeline1:amd64 (1.5.7-1) ...
Setting up libxau6:amd64 (1:1.0.9-1) ...
Setting up libicu72:amd64 (72.1-3) ...
Setting up bsdextrautils (2.38.1-5+b1) ...
Setting up libmagic-mgc (1:5.44-3) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up libdebhelper-perl (13.11.4) ...
Setting up libmagic1:amd64 (1:5.44-3) ...
Setting up libxml-namespacesupport-perl (1.12-2) ...
Setting up gettext-base (0.21-12) ...
Setting up m4 (1.4.19-3) ...
Setting up file (1:5.44-3) ...
Setting up libpthread-stubs0-dev:amd64 (0.4-1) ...
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.4-2) ...
Setting up libncurses6:amd64 (6.4-4) ...
Setting up autopoint (0.21-12) ...
Setting up autoconf (2.71-3) ...
Setting up sensible-utils (0.0.17+nmu1) ...
Setting up libuchardet0:amd64 (0.0.7-1) ...
Setting up libsub-override-perl (0.09-4) ...
Setting up xorg-sgml-doctools (1:1.11-1.1) ...
Setting up libtext-unidecode-perl (1.30-3) ...
Setting up libbsd0:amd64 (0.11.7-2) ...
Setting up libelf1:amd64 (0.188-2.1) ...
Setting up readline-common (8.2-1.3) ...
Setting up libxml2:amd64 (2.9.14+dfsg-1.2) ...
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 (2022.1-1) ...
Setting up libfile-stripnondeterminism-perl (1.13.1-1) ...
Setting up libxdmcp6:amd64 (1:1.1.2-3) ...
Setting up libncurses-dev:amd64 (6.4-4) ...
Setting up libxcb1:amd64 (1.15-1) ...
Setting up gettext (0.21-12) ...
Setting up libxau-dev:amd64 (1:1.0.9-1) ...
Setting up libtool (2.4.7-5) ...
Setting up libreadline8:amd64 (8.2-1.3) ...
Setting up libreadline-dev:amd64 (8.2-1.3) ...
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) ...
Setting up ucf (3.0043+nmu1) ...
Setting up dh-strip-nondeterminism (1.13.1-1) ...
Setting up dwz (0.15-1) ...
Setting up groff-base (1.22.4-10) ...
Setting up libx11-6:amd64 (2:1.8.4-2) ...
Setting up libxcb1-dev:amd64 (1.15-1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up libx11-dev:amd64 (2:1.8.4-2) ...
Setting up man-db (2.11.2-2) ...
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+b1) ...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50...
update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50...
update-perl-sax-parsers: Updating overall Perl SAX parser modules info file...
Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version
Setting up debhelper (13.11.4) ...
Setting up texinfo (6.8-6+b1) ...
Processing triggers for libc-bin (2.36-9) ...
Reading package lists...
Building dependency tree...
Reading state information...
Reading extended state information...
Initializing package states...
Writing extended state information...
Building tag database...
-> Finished parsing the build-deps
I: Building the package
I: Running cd /build/scm-5f3/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../scm_5f3-4_source.changes
dpkg-buildpackage: info: source package scm
dpkg-buildpackage: info: source version 5f3-4
dpkg-buildpackage: info: source distribution unstable
dpkg-buildpackage: info: source changed by Bo YU <tsu.yubo@gmail.com>
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/scm-5f3'
dh_testdir
test -e /usr/share/slib || \
(echo "Must have slib installed for compile" && exit 1)
make[1]: Leaving directory '/build/scm-5f3'
dh_auto_clean
make -j16 distclean
make[1]: Entering directory '/build/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/scm-5f3'
dh_clean
debian/rules binary
dh binary
debian/rules override_dh_testdir
make[1]: Entering directory '/build/scm-5f3'
dh_testdir
test -e /usr/share/slib || \
(echo "Must have slib installed for compile" && exit 1)
make[1]: Leaving directory '/build/scm-5f3'
dh_update_autotools_config
dh_autoreconf
debian/rules override_dh_auto_configure
make[1]: Entering directory '/build/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/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/scm-5f3'
debian/rules override_dh_auto_build
make[1]: Entering directory '/build/scm-5f3'
make scmlit
make[2]: Entering directory '/build/scm-5f3'
echo "#ifndef IMPLINIT" > newflags.h
echo "#define IMPLINIT \"/build/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 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 scm.c -o scm.o
scm.c: In function 'process_signals':
scm.c:176:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
176 | wta(UNDEFINED, (char *)i, "");
| ^
scm.c: In function 'scmable_signal':
scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
290 | wta(UNDEFINED, (char *)i, "");
| ^
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 time.c -o time.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -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 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 scl.c -o scl.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 sys.c -o sys.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 eval.c -o eval.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 subr.c -o subr.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 unif.c -o unif.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 rope.c -o rope.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 continue.c -o continue.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 findexec.c -o findexec.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -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 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -O0 debug.c -o debug.o
cc -c -Wdate-time -D_FORTIFY_SOURCE=2 -g -O2 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -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: warning: the use of `tmpnam' is dangerous, better use `mkstemp'
make checklit
make[3]: Entering directory '/build/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)
#<primitive-procedure boolean?>
#<primitive-procedure char?>
#<primitive-procedure null?>
#<primitive-procedure number?>
#<primitive-procedure pair?>
#<primitive-procedure procedure?>
#<primitive-procedure string?>
#<primitive-procedure symbol?>
#<primitive-procedure vector?>
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))>
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a)) ==> (quote a)
(quote (quote a)) ==> (quote a)
SECTION(4 1 3)
(#<primitive-procedure *> 3 4) ==> 12
SECTION(4 1 4)
(#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4) ==> 8
(#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10) ==> 3
(#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6) ==> 10
(#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6)
(#<CLOSURE <anon> "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6)
SECTION(4 1 5)
(if yes) ==> yes
(if no) ==> no
(if 1) ==> 1
SECTION(4 1 6)
(define 3) ==> 3
(set! 5) ==> 5
SECTION(4 2 1)
(cond greater) ==> greater
(cond equal) ==> equal
(cond 2) ==> 2
(case composite) ==> composite
(case consonant) ==> consonant
(and #t) ==> #t
(and #f) ==> #f
(and (f g)) ==> (f g)
(and #t) ==> #t
(or #t) ==> #t
(or #t) ==> #t
(or #f) ==> #f
(or #f) ==> #f
(or (b c)) ==> (b c)
SECTION(4 2 2)
(let 6) ==> 6
(let 35) ==> 35
(let* 70) ==> 70
(letrec #t) ==> #t
(let 5) ==> 5
(let 34) ==> 34
(let 6) ==> 6
(let 34) ==> 34
(let 34) ==> 34
(let* 7) ==> 7
(let* 34) ==> 34
(let* 8) ==> 8
(let* 34) ==> 34
(letrec 9) ==> 9
(letrec 34) ==> 34
(letrec 10) ==> 10
(letrec 34) ==> 34
SECTION(4 2 3)
(begin 6) ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4)) ==> #(0 1 2 3 4)
(do 25) ==> 25
(do 25) ==> 25
(let 1) ==> 1
(let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2))
(let -1) ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (list a (quote a))) ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8)
(quasiquote 5) ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(tprint #t) ==> #t
(define 6) ==> 6
(define 1) ==> 1
(define 9) ==> 9
(define 9) ==> 9
(define 10) ==> 10
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> (3 6)
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> 9
SECTION(5 2 2)
(define 45) ==> 45
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5
(define 34) ==> 34
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5
(define 34) ==> 34
(#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88) ==> 88
(#<CLOSURE foo "r4rstest.scm": (x) (#@let () (#@define ((x 5)) #@x)) #@x> 4) ==> 4
(define 34) ==> 34
(internal-define 99) ==> 99
(internal-define 77) ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t) ==> #f
(#<primitive-procedure not> 3) ==> #f
(#<primitive-procedure not> (3)) ==> #f
(#<primitive-procedure not> #f) ==> #t
(#<primitive-procedure not> ()) ==> #f
(#<primitive-procedure not> ()) ==> #f
(#<primitive-procedure not> nil) ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a) ==> #t
(#<primitive-procedure eqv?> a b) ==> #f
(#<primitive-procedure eqv?> 2 2) ==> #t
(#<primitive-procedure eqv?> () ()) ==> #t
(#<primitive-procedure eqv?> 10000 10000) ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2)) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>) ==> #f
(#<primitive-procedure eqv?> #f nil) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>) ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>) ==> #f
(#<primitive-procedure eq?> a a) ==> #t
(#<primitive-procedure eq?> (a) (a)) ==> #f
(#<primitive-procedure eq?> () ()) ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>) ==> #t
(#<primitive-procedure eq?> (a) (a)) ==> #t
(#<primitive-procedure eq?> #() #()) ==> #t
(#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>) ==> #t
(#<primitive-procedure equal?> a a) ==> #t
(#<primitive-procedure equal?> (a) (a)) ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c)) ==> #t
(#<primitive-procedure equal?> "abc" "abc") ==> #t
(#<primitive-procedure equal?> 2 2) ==> #t
(#<primitive-procedure equal?> #(a a a a a) #(a a a a a)) ==> #t
SECTION(6 3)
(dot (a b c d e)) ==> (a b c d e)
(#<primitive-procedure list?> (a b c)) ==> #t
(set-cdr! (a . 4)) ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4)) ==> #t
(dot (a b c . d)) ==> (a b c . d)
(#<primitive-procedure list?> (a . 4)) ==> #f
(list? #f) ==> #f
(#<primitive-procedure cons> a ()) ==> (a)
(#<primitive-procedure cons> (a) (b c d)) ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c)) ==> ("a" b c)
(#<primitive-procedure cons> a 3) ==> (a . 3)
(#<primitive-procedure cons> (a b) c) ==> ((a b) . c)
(#<primitive-procedure car> (a b c)) ==> a
(#<primitive-procedure car> ((a) b c d)) ==> (a)
(#<primitive-procedure car> (1 . 2)) ==> 1
(#<primitive-procedure cdr> ((a) b c d)) ==> (b c d)
(#<primitive-procedure cdr> (1 . 2)) ==> 2
(#<primitive-procedure list> a 7 c) ==> (a 7 c)
(#<primitive-procedure list>) ==> ()
(#<primitive-procedure length> (a b c)) ==> 3
(#<primitive-procedure length> (a (b) (c d e))) ==> 3
(#<primitive-procedure length> ()) ==> 0
(#<primitive-procedure append> (x) (y)) ==> (x y)
(#<primitive-procedure append> (a) (b c d)) ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c))) ==> (a (b) (c))
(#<primitive-procedure append>) ==> ()
(#<primitive-procedure append> (a b) (c . d)) ==> (a b c . d)
(#<primitive-procedure append> () a) ==> a
(#<primitive-procedure reverse> (a b c)) ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2) ==> c
(#<primitive-procedure memq> a (a b c)) ==> (a b c)
(#<primitive-procedure memq> b (a b c)) ==> (b c)
(#<primitive-procedure memq> a (b c d)) ==> #f
(#<primitive-procedure memq> (a) (b (a) c)) ==> #f
(#<primitive-procedure member> (a) (b (a) c)) ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102)) ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3))) ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3))) ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3))) ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c)))) ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c)))) ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13))) ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a) ==> #t
(standard-case #t) ==> #t
(standard-case #t) ==> #t
(#<primitive-procedure symbol->string> flying-fish) ==> "flying-fish"
(#<primitive-procedure symbol->string> martin) ==> "martin"
(#<primitive-procedure symbol->string> \Malvina) ==> "Malvina"
(standard-case #t) ==> #t
(string-set! "cb") ==> "cb"
(#<primitive-procedure symbol->string> ab) ==> "ab"
(#<primitive-procedure string->symbol> "ab") ==> ab
(#<primitive-procedure eq?> mississippi mississippi) ==> #t
(string->symbol #f) ==> #f
(#<primitive-procedure string->symbol> "jollywog") ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3) ==> #t
(#<primitive-procedure complex?> 3) ==> #t
(#<primitive-procedure real?> 3) ==> #t
(#<primitive-procedure rational?> 3) ==> #t
(#<primitive-procedure integer?> 3) ==> #t
(#<primitive-procedure exact?> 3) ==> #t
(#<primitive-procedure inexact?> 3) ==> #f
(#<primitive-procedure integer-expt> 0 0) ==> 1
(#<primitive-procedure integer-expt> 0 1) ==> 0
(#<primitive-procedure integer-expt> 0 256) ==> 0
(#<primitive-procedure integer-expt> -1 256) ==> 1
(#<primitive-procedure integer-expt> -1 255) ==> -1
(#<primitive-procedure integer-expt> -1 -256) ==> 1
(#<primitive-procedure integer-expt> -1 -255) ==> -1
(#<primitive-procedure integer-expt> 256 0) ==> 1
(#<primitive-procedure integer-expt> -256 0) ==> 1
(#<primitive-procedure integer-expt> 256 1) ==> 256
(#<primitive-procedure integer-expt> -256 1) ==> -256
(#<primitive-procedure integer-expt> 2 3) ==> 8
(#<primitive-procedure integer-expt> -2 3) ==> -8
(#<primitive-procedure integer-expt> 3 2) ==> 9
(#<primitive-procedure integer-expt> -3 2) ==> 9
(#<primitive-procedure => 22 22 22) ==> #t
(#<primitive-procedure => 22 22) ==> #t
(#<primitive-procedure => 34 34 35) ==> #f
(#<primitive-procedure => 34 35) ==> #f
(#<primitive-procedure >> 3 -6246) ==> #t
(#<primitive-procedure >> 9 9 -2424) ==> #f
(#<primitive-procedure >=> 3 -4 -6246) ==> #t
(#<primitive-procedure >=> 9 9) ==> #t
(#<primitive-procedure >=> 8 9) ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8) ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7) ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8) ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7) ==> #t
(#<primitive-procedure <> 1 3 2) ==> #f
(#<primitive-procedure >=> 1 3 2) ==> #f
(#<primitive-procedure zero?> 0) ==> #t
(#<primitive-procedure zero?> 1) ==> #f
(#<primitive-procedure zero?> -1) ==> #f
(#<primitive-procedure zero?> -100) ==> #f
(#<primitive-procedure positive?> 4) ==> #t
(#<primitive-procedure positive?> -4) ==> #f
(#<primitive-procedure positive?> 0) ==> #f
(#<primitive-procedure negative?> 4) ==> #f
(#<primitive-procedure negative?> -4) ==> #t
(#<primitive-procedure negative?> 0) ==> #f
(#<primitive-procedure odd?> 3) ==> #t
(#<primitive-procedure odd?> 2) ==> #f
(#<primitive-procedure odd?> -4) ==> #f
(#<primitive-procedure odd?> -1) ==> #t
(#<primitive-procedure even?> 3) ==> #f
(#<primitive-procedure even?> 2) ==> #t
(#<primitive-procedure even?> -4) ==> #t
(#<primitive-procedure even?> -1) ==> #f
(#<primitive-procedure max> 34 5 7 38 6) ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24) ==> -24
(#<primitive-procedure +> 3 4) ==> 7
(#<primitive-procedure +> 3) ==> 3
(#<primitive-procedure +>) ==> 0
(#<primitive-procedure *> 4) ==> 4
(#<primitive-procedure *>) ==> 1
(#<primitive-procedure /> 1) ==> 1
(#<primitive-procedure /> -1) ==> -1
(#<primitive-procedure /> 6 3) ==> 2
(#<primitive-procedure /> 6 -2) ==> -3
(#<primitive-procedure /> -6 2) ==> -3
(#<primitive-procedure /> -6 -2) ==> 3
(#<primitive-procedure -> 3 4) ==> -1
(#<primitive-procedure -> 3) ==> -3
(#<primitive-procedure abs> -7) ==> 7
(#<primitive-procedure abs> 7) ==> 7
(#<primitive-procedure abs> 0) ==> 0
(#<primitive-procedure quotient> 35 7) ==> 5
(#<primitive-procedure quotient> -35 7) ==> -5
(#<primitive-procedure quotient> 35 -7) ==> -5
(#<primitive-procedure quotient> -35 -7) ==> 5
(#<primitive-procedure modulo> 13 4) ==> 1
(#<primitive-procedure remainder> 13 4) ==> 1
(#<primitive-procedure modulo> -13 4) ==> 3
(#<primitive-procedure remainder> -13 4) ==> -1
(#<primitive-procedure modulo> 13 -4) ==> -3
(#<primitive-procedure remainder> 13 -4) ==> 1
(#<primitive-procedure modulo> -13 -4) ==> -1
(#<primitive-procedure remainder> -13 -4) ==> -1
(#<primitive-procedure modulo> 0 86400) ==> 0
(#<primitive-procedure modulo> 0 -86400) ==> 0
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9) ==> #t
(#<primitive-procedure gcd> 0 4) ==> 4
(#<primitive-procedure gcd> -4 0) ==> 4
(#<primitive-procedure gcd> 32 -36) ==> 4
(#<primitive-procedure gcd>) ==> 0
(#<primitive-procedure lcm> 32 -36) ==> 288
(#<primitive-procedure lcm>) ==> 1
SECTION(6 5 5)
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0") ==> #t
SECTION(6 5 9)
(#<primitive-procedure number->string> 0) ==> "0"
(#<primitive-procedure number->string> 100) ==> "100"
(#<primitive-procedure number->string> 256 16) ==> "100"
(#<primitive-procedure string->number> "100") ==> 100
(#<primitive-procedure string->number> "100" 16) ==> 256
(#<primitive-procedure string->number> "") ==> #f
(#<primitive-procedure string->number> ".") ==> #f
(#<primitive-procedure string->number> "d") ==> #f
(#<primitive-procedure string->number> "D") ==> #f
(#<primitive-procedure string->number> "i") ==> #f
(#<primitive-procedure string->number> "I") ==> #f
(#<primitive-procedure string->number> "3i") ==> #f
(#<primitive-procedure string->number> "3I") ==> #f
(#<primitive-procedure string->number> "33i") ==> #f
(#<primitive-procedure string->number> "33I") ==> #f
(#<primitive-procedure string->number> "3.3i") ==> #f
(#<primitive-procedure string->number> "3.3I") ==> #f
(#<primitive-procedure string->number> "-") ==> #f
(#<primitive-procedure string->number> "+") ==> #f
(string->number #t) ==> #t
(string->number #t) ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space) ==> #t
(#<primitive-procedure eqv?> #\space #\space) ==> #t
(#<primitive-procedure char?> #\a) ==> #t
(#<primitive-procedure char?> #\() ==> #t
(#<primitive-procedure char?> #\space) ==> #t
(#<primitive-procedure char?> #\nl) ==> #t
(#<primitive-procedure char=?> #\A #\B) ==> #f
(#<primitive-procedure char=?> #\a #\b) ==> #f
(#<primitive-procedure char=?> #\9 #\0) ==> #f
(#<primitive-procedure char=?> #\A #\A) ==> #t
(#<primitive-procedure char<?> #\A #\B) ==> #t
(#<primitive-procedure char<?> #\a #\b) ==> #t
(#<primitive-procedure char<?> #\9 #\0) ==> #f
(#<primitive-procedure char<?> #\A #\A) ==> #f
(#<primitive-procedure char>?> #\A #\B) ==> #f
(#<primitive-procedure char>?> #\a #\b) ==> #f
(#<primitive-procedure char>?> #\9 #\0) ==> #t
(#<primitive-procedure char>?> #\A #\A) ==> #f
(#<primitive-procedure char<=?> #\A #\B) ==> #t
(#<primitive-procedure char<=?> #\a #\b) ==> #t
(#<primitive-procedure char<=?> #\9 #\0) ==> #f
(#<primitive-procedure char<=?> #\A #\A) ==> #t
(#<primitive-procedure char>=?> #\A #\B) ==> #f
(#<primitive-procedure char>=?> #\a #\b) ==> #f
(#<primitive-procedure char>=?> #\9 #\0) ==> #t
(#<primitive-procedure char>=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci=?> #\A #\B) ==> #f
(#<primitive-procedure char-ci=?> #\a #\B) ==> #f
(#<primitive-procedure char-ci=?> #\A #\b) ==> #f
(#<primitive-procedure char-ci=?> #\a #\b) ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci=?> #\A #\a) ==> #t
(#<primitive-procedure char-ci<?> #\A #\B) ==> #t
(#<primitive-procedure char-ci<?> #\a #\B) ==> #t
(#<primitive-procedure char-ci<?> #\A #\b) ==> #t
(#<primitive-procedure char-ci<?> #\a #\b) ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci<?> #\A #\A) ==> #f
(#<primitive-procedure char-ci<?> #\A #\a) ==> #f
(#<primitive-procedure char-ci>?> #\A #\B) ==> #f
(#<primitive-procedure char-ci>?> #\a #\B) ==> #f
(#<primitive-procedure char-ci>?> #\A #\b) ==> #f
(#<primitive-procedure char-ci>?> #\a #\b) ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0) ==> #t
(#<primitive-procedure char-ci>?> #\A #\A) ==> #f
(#<primitive-procedure char-ci>?> #\A #\a) ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B) ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B) ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b) ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b) ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B) ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B) ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b) ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b) ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a) ==> #t
(#<primitive-procedure char-alphabetic?> #\a) ==> #t
(#<primitive-procedure char-alphabetic?> #\A) ==> #t
(#<primitive-procedure char-alphabetic?> #\z) ==> #t
(#<primitive-procedure char-alphabetic?> #\Z) ==> #t
(#<primitive-procedure char-alphabetic?> #\0) ==> #f
(#<primitive-procedure char-alphabetic?> #\9) ==> #f
(#<primitive-procedure char-alphabetic?> #\space) ==> #f
(#<primitive-procedure char-alphabetic?> #\;) ==> #f
(#<primitive-procedure char-numeric?> #\a) ==> #f
(#<primitive-procedure char-numeric?> #\A) ==> #f
(#<primitive-procedure char-numeric?> #\z) ==> #f
(#<primitive-procedure char-numeric?> #\Z) ==> #f
(#<primitive-procedure char-numeric?> #\0) ==> #t
(#<primitive-procedure char-numeric?> #\9) ==> #t
(#<primitive-procedure char-numeric?> #\space) ==> #f
(#<primitive-procedure char-numeric?> #\;) ==> #f
(#<primitive-procedure char-whitespace?> #\a) ==> #f
(#<primitive-procedure char-whitespace?> #\A) ==> #f
(#<primitive-procedure char-whitespace?> #\z) ==> #f
(#<primitive-procedure char-whitespace?> #\Z) ==> #f
(#<primitive-procedure char-whitespace?> #\0) ==> #f
(#<primitive-procedure char-whitespace?> #\9) ==> #f
(#<primitive-procedure char-whitespace?> #\space) ==> #t
(#<primitive-procedure char-whitespace?> #\;) ==> #f
(#<primitive-procedure char-upper-case?> #\0) ==> #f
(#<primitive-procedure char-upper-case?> #\9) ==> #f
(#<primitive-procedure char-upper-case?> #\space) ==> #f
(#<primitive-procedure char-upper-case?> #\;) ==> #f
(#<primitive-procedure char-lower-case?> #\0) ==> #f
(#<primitive-procedure char-lower-case?> #\9) ==> #f
(#<primitive-procedure char-lower-case?> #\space) ==> #f
(#<primitive-procedure char-lower-case?> #\;) ==> #f
(#<primitive-procedure integer->char> 46) ==> #\.
(#<primitive-procedure integer->char> 65) ==> #\A
(#<primitive-procedure integer->char> 97) ==> #\a
(#<primitive-procedure char-upcase> #\A) ==> #\A
(#<primitive-procedure char-upcase> #\a) ==> #\A
(#<primitive-procedure char-downcase> #\A) ==> #\a
(#<primitive-procedure char-downcase> #\a) ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.") ==> #t
(string-set! "?**") ==> "?**"
(#<primitive-procedure string> #\a #\b #\c) ==> "abc"
(#<primitive-procedure string>) ==> ""
(#<primitive-procedure string-length> "abc") ==> 3
(#<primitive-procedure string-ref> "abc" 0) ==> #\a
(#<primitive-procedure string-ref> "abc" 2) ==> #\c
(#<primitive-procedure string-length> "") ==> 0
(#<primitive-procedure substring> "ab" 0 0) ==> ""
(#<primitive-procedure substring> "ab" 1 1) ==> ""
(#<primitive-procedure substring> "ab" 2 2) ==> ""
(#<primitive-procedure substring> "ab" 0 1) ==> "a"
(#<primitive-procedure substring> "ab" 1 2) ==> "b"
(#<primitive-procedure substring> "ab" 0 2) ==> "ab"
(#<primitive-procedure string-append> "foo" "bar") ==> "foobar"
(#<primitive-procedure string-append> "foo") ==> "foo"
(#<primitive-procedure string-append> "foo" "") ==> "foo"
(#<primitive-procedure string-append> "" "foo") ==> "foo"
(#<primitive-procedure string-append>) ==> ""
(#<primitive-procedure make-string> 0) ==> ""
(#<primitive-procedure string=?> "" "") ==> #t
(#<primitive-procedure string<?> "" "") ==> #f
(#<primitive-procedure string>?> "" "") ==> #f
(#<primitive-procedure string<=?> "" "") ==> #t
(#<primitive-procedure string>=?> "" "") ==> #t
(#<primitive-procedure string-ci=?> "" "") ==> #t
(#<primitive-procedure string-ci<?> "" "") ==> #f
(#<primitive-procedure string-ci>?> "" "") ==> #f
(#<primitive-procedure string-ci<=?> "" "") ==> #t
(#<primitive-procedure string-ci>=?> "" "") ==> #t
(#<primitive-procedure string=?> "A" "B") ==> #f
(#<primitive-procedure string=?> "a" "b") ==> #f
(#<primitive-procedure string=?> "9" "0") ==> #f
(#<primitive-procedure string=?> "A" "A") ==> #t
(#<primitive-procedure string<?> "A" "B") ==> #t
(#<primitive-procedure string<?> "a" "b") ==> #t
(#<primitive-procedure string<?> "9" "0") ==> #f
(#<primitive-procedure string<?> "A" "A") ==> #f
(#<primitive-procedure string>?> "A" "B") ==> #f
(#<primitive-procedure string>?> "a" "b") ==> #f
(#<primitive-procedure string>?> "9" "0") ==> #t
(#<primitive-procedure string>?> "A" "A") ==> #f
(#<primitive-procedure string<=?> "A" "B") ==> #t
(#<primitive-procedure string<=?> "a" "b") ==> #t
(#<primitive-procedure string<=?> "9" "0") ==> #f
(#<primitive-procedure string<=?> "A" "A") ==> #t
(#<primitive-procedure string>=?> "A" "B") ==> #f
(#<primitive-procedure string>=?> "a" "b") ==> #f
(#<primitive-procedure string>=?> "9" "0") ==> #t
(#<primitive-procedure string>=?> "A" "A") ==> #t
(#<primitive-procedure string-ci=?> "A" "B") ==> #f
(#<primitive-procedure string-ci=?> "a" "B") ==> #f
(#<primitive-procedure string-ci=?> "A" "b") ==> #f
(#<primitive-procedure string-ci=?> "a" "b") ==> #f
(#<primitive-procedure string-ci=?> "9" "0") ==> #f
(#<primitive-procedure string-ci=?> "A" "A") ==> #t
(#<primitive-procedure string-ci=?> "A" "a") ==> #t
(#<primitive-procedure string-ci<?> "A" "B") ==> #t
(#<primitive-procedure string-ci<?> "a" "B") ==> #t
(#<primitive-procedure string-ci<?> "A" "b") ==> #t
(#<primitive-procedure string-ci<?> "a" "b") ==> #t
(#<primitive-procedure string-ci<?> "9" "0") ==> #f
(#<primitive-procedure string-ci<?> "A" "A") ==> #f
(#<primitive-procedure string-ci<?> "A" "a") ==> #f
(#<primitive-procedure string-ci>?> "A" "B") ==> #f
(#<primitive-procedure string-ci>?> "a" "B") ==> #f
(#<primitive-procedure string-ci>?> "A" "b") ==> #f
(#<primitive-procedure string-ci>?> "a" "b") ==> #f
(#<primitive-procedure string-ci>?> "9" "0") ==> #t
(#<primitive-procedure string-ci>?> "A" "A") ==> #f
(#<primitive-procedure string-ci>?> "A" "a") ==> #f
(#<primitive-procedure string-ci<=?> "A" "B") ==> #t
(#<primitive-procedure string-ci<=?> "a" "B") ==> #t
(#<primitive-procedure string-ci<=?> "A" "b") ==> #t
(#<primitive-procedure string-ci<=?> "a" "b") ==> #t
(#<primitive-procedure string-ci<=?> "9" "0") ==> #f
(#<primitive-procedure string-ci<=?> "A" "A") ==> #t
(#<primitive-procedure string-ci<=?> "A" "a") ==> #t
(#<primitive-procedure string-ci>=?> "A" "B") ==> #f
(#<primitive-procedure string-ci>=?> "a" "B") ==> #f
(#<primitive-procedure string-ci>=?> "A" "b") ==> #f
(#<primitive-procedure string-ci>=?> "a" "b") ==> #f
(#<primitive-procedure string-ci>=?> "9" "0") ==> #t
(#<primitive-procedure string-ci>=?> "A" "A") ==> #t
(#<primitive-procedure string-ci>=?> "A" "a") ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna")) ==> #t
(#<primitive-procedure vector> a b c) ==> #(a b c)
(#<primitive-procedure vector>) ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna")) ==> 3
(#<primitive-procedure vector-length> #()) ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5) ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi) ==> #(hi hi)
(#<primitive-procedure make-vector> 0) ==> #()
(#<primitive-procedure make-vector> 0 a) ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>) ==> #t
(#<primitive-procedure procedure?> car) ==> #f
(#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>) ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x))) ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>) ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />) ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4)) ==> 7
(#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4)) ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ()) ==> ()
(#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h))) ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6)) ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3)) ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3)) ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3)) ==> (-1 -2 -3)
(for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3
(#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4)) ==> 4
(#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f)))))) (#@r #@obj))))> (a b . c)) ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ()) ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>) ==> #t
(#<primitive-procedure output-port?> #<output-port 1 L1 C1>) ==> #t
(#<CLOSURE call-with-input-file "/build/scm-5f3/Init5f3.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>) ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">) ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">) ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE call-with-output-file "/build/scm-5f3/Init5f3.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp1" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t
(#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(input-port? #t) ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">) ==> #t
(#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(input-port? #t) ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
Passed all tests
To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)
;testing scheme 4 functions;
SECTION(6 7)
(#<primitive-procedure string->list> "P l") ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "") ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\")) ==> "1\\\""
(#<primitive-procedure list->string> ()) ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah)) ==> (dah dah didah)
(#<primitive-procedure vector->list> #()) ==> ()
(#<primitive-procedure list->vector> (dididit dah)) ==> #(dididit dah)
(#<primitive-procedure list->vector> ()) ==> #()
SECTION(6 10 4)
(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
Passed all tests
;testing DELAY and FORCE;
SECTION(6 9)
(delay 3) ==> 3
(delay (3 3)) ==> (3 3)
(delay 2) ==> 2
(#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>) ==> 6
(#<primitive-procedure force> #<promise 6>) ==> 6
(force 3) ==> 3
Passed all tests
make[3]: Leaving directory '/build/scm-5f3'
make[2]: Leaving directory '/build/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 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -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')
In file included from scmfig.h:71,
from scm.h:55,
from scm.c:26:
scm.c: In function 'scm_init_extensions':
scmflags.h:3:116: warning: implicit declaration of function 'init_unix'; did you mean 'init_unif'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:128: warning: implicit declaration of function 'init_crs'; did you mean 'init_subrs'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:139: warning: implicit declaration of function 'init_x'; did you mean 'init_rgx'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:148: warning: implicit declaration of function 'init_differ' [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scm.c: In function 'process_signals':
scm.c:176:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
176 | wta(UNDEFINED, (char *)i, "");
| ^
scm.c: In function 'scmable_signal':
scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
290 | 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 'find_section':
unexelf.c:406:51: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c:525:1: note: include '<stdlib.h>' or provide a declaration of 'exit'
524 | # include <link.h> /* get ElfW etc */
+++ |+#include <stdlib.h>
525 | #endif
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c: In function 'unexec':
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:692:5: note: in expansion of macro 'fatal'
692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:692:5: note: in expansion of macro 'fatal'
692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:695:5: note: in expansion of macro 'fatal'
695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:695:5: note: in expansion of macro 'fatal'
695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:711:12: warning: too many arguments for format [-Wformat-extra-args]
711 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:711:5: note: in expansion of macro 'fatal'
711 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:711:5: note: in expansion of macro 'fatal'
711 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:714:5: note: in expansion of macro 'fatal'
714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:714:5: note: in expansion of macro 'fatal'
714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:782:12: warning: too many arguments for format [-Wformat-extra-args]
782 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:782:5: note: in expansion of macro 'fatal'
782 | fatal (".bss shrank when undumping???\n", 0, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:782:5: note: in expansion of macro 'fatal'
782 | fatal (".bss shrank when undumping???\n", 0, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:790:5: note: in expansion of macro 'fatal'
790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:790:5: note: in expansion of macro 'fatal'
790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:795:5: note: in expansion of macro 'fatal'
795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:795:5: note: in expansion of macro 'fatal'
795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:800:12: warning: too many arguments for format [-Wformat-extra-args]
800 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:800:5: note: in expansion of macro 'fatal'
800 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:800:5: note: in expansion of macro 'fatal'
800 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:855:18: warning: too many arguments for format [-Wformat-extra-args]
855 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:855:11: note: in expansion of macro 'fatal'
855 | fatal ("Program segment above .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:855:11: note: in expansion of macro 'fatal'
855 | fatal ("Program segment above .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:865:12: warning: too many arguments for format [-Wformat-extra-args]
865 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:865:5: note: in expansion of macro 'fatal'
865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:865:5: note: in expansion of macro 'fatal'
865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:895:12: warning: too many arguments for format [-Wformat-extra-args]
895 | 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)
| ^
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:895:5: note: in expansion of macro 'fatal'
895 | fatal ("Can't find .data in %s.\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:895:5: note: in expansion of macro 'fatal'
895 | fatal ("Can't find .data in %s.\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1256:5: note: in expansion of macro 'fatal'
1256 | fatal ("Didn't write %d bytes: errno %d\n",
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1256:5: note: in expansion of macro 'fatal'
1256 | fatal ("Didn't write %d bytes: errno %d\n",
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1272:5: note: in expansion of macro 'fatal'
1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1272:5: note: in expansion of macro 'fatal'
1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1275:5: note: in expansion of macro 'fatal'
1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1275:5: note: in expansion of macro 'fatal'
1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1278:5: note: in expansion of macro 'fatal'
1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1278:5: note: in expansion of macro 'fatal'
1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1284:5: note: in expansion of macro 'fatal'
1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1284:5: note: in expansion of macro 'fatal'
1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno);
| ^~~~~
gmalloc.c: In function '__malloc_initialize':
gmalloc.c:56:33: warning: implicit declaration of function 'bzero' [-Wimplicit-function-declaration]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:486:3: note: in expansion of macro 'memset'
486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:486:3: note: in expansion of macro 'memset'
486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c: In function 'morecore':
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:556:15: note: in expansion of macro 'memset'
556 | memset (&newinfo[heapsize], 0,
| ^~~~~~
gmalloc.c:59:33: warning: implicit declaration of function 'bcopy' [-Wimplicit-function-declaration]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:590:7: note: in expansion of macro 'memcpy'
590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:590:7: note: in expansion of macro 'memcpy'
590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:591:7: note: in expansion of macro 'memset'
591 | memset (&newinfo[heapsize], 0,
| ^~~~~~
gmalloc.c: In function '__malloc_safe_bcopy':
gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1211 | bcopy (from, to, size);
| ^~~~~
gmalloc.c:1241:15: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1241 | bcopy (endf, endt, to - from);
| ^~~~~
gmalloc.c:1247:11: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1247 | bcopy (from, to, endt - from);
| ^~~~~
gmalloc.c: In function '_realloc_internal':
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:1301:15: note: in expansion of macro 'memcpy'
1301 | memcpy (result, ptr, size);
| ^~~~~~
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:1376:11: note: in expansion of macro 'memcpy'
1376 | memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type));
| ^~~~~~
gmalloc.c: In function 'calloc':
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:1431:12: note: in expansion of macro 'memset'
1431 | (void) memset (result, 0, nmemb * size);
| ^~~~~~
gmalloc.c: In function 'valloc':
gmalloc.c:1646:16: warning: implicit declaration of function '__getpagesize' [-Wimplicit-function-declaration]
1646 | pagesize = __getpagesize ();
| ^~~~~~~~~~~~~
; ================ 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: 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 -ffile-prefix-map=/build/scm-5f3=. -fstack-protector-strong -Wformat -Werror=format-security -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')
In file included from scmfig.h:71,
from scm.h:55,
from scm.c:26:
scm.c: In function 'scm_init_extensions':
scmflags.h:3:116: warning: implicit declaration of function 'init_unix'; did you mean 'init_unif'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:128: warning: implicit declaration of function 'init_crs'; did you mean 'init_subrs'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:139: warning: implicit declaration of function 'init_x'; did you mean 'init_rgx'? [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scmflags.h:3:148: warning: implicit declaration of function 'init_differ' [-Wimplicit-function-declaration]
3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();
| ^~~~~~~~~~~
scm.c:110:3: note: in expansion of macro 'COMPILED_INITS'
110 | COMPILED_INITS; /* initialize statically linked add-ons */
| ^~~~~~~~~~~~~~
scm.c: In function 'process_signals':
scm.c:176:24: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
176 | wta(UNDEFINED, (char *)i, "");
| ^
scm.c: In function 'scmable_signal':
scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
290 | 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 'find_section':
unexelf.c:406:51: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c:525:1: note: include '<stdlib.h>' or provide a declaration of 'exit'
524 | # include <link.h> /* get ElfW etc */
+++ |+#include <stdlib.h>
525 | #endif
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:634:9: note: in expansion of macro 'fatal'
634 | fatal ("Can't find %s in %s.\n", name, file_name);
| ^~~~~
unexelf.c: In function 'unexec':
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:692:5: note: in expansion of macro 'fatal'
692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:692:5: note: in expansion of macro 'fatal'
692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:695:5: note: in expansion of macro 'fatal'
695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:695:5: note: in expansion of macro 'fatal'
695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:711:12: warning: too many arguments for format [-Wformat-extra-args]
711 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:711:5: note: in expansion of macro 'fatal'
711 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:711:5: note: in expansion of macro 'fatal'
711 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:714:5: note: in expansion of macro 'fatal'
714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:714:5: note: in expansion of macro 'fatal'
714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:782:12: warning: too many arguments for format [-Wformat-extra-args]
782 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:782:5: note: in expansion of macro 'fatal'
782 | fatal (".bss shrank when undumping???\n", 0, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:782:5: note: in expansion of macro 'fatal'
782 | fatal (".bss shrank when undumping???\n", 0, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:790:5: note: in expansion of macro 'fatal'
790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:790:5: note: in expansion of macro 'fatal'
790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:795:5: note: in expansion of macro 'fatal'
795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:795:5: note: in expansion of macro 'fatal'
795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:800:12: warning: too many arguments for format [-Wformat-extra-args]
800 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:800:5: note: in expansion of macro 'fatal'
800 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:800:5: note: in expansion of macro 'fatal'
800 | fatal ("Can't allocate buffer for %s\n", old_name, 0);
| ^~~~~
unexelf.c:855:18: warning: too many arguments for format [-Wformat-extra-args]
855 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:855:11: note: in expansion of macro 'fatal'
855 | fatal ("Program segment above .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:855:11: note: in expansion of macro 'fatal'
855 | fatal ("Program segment above .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:865:12: warning: too many arguments for format [-Wformat-extra-args]
865 | 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:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:865:5: note: in expansion of macro 'fatal'
865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:865:5: note: in expansion of macro 'fatal'
865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0);
| ^~~~~
unexelf.c:895:12: warning: too many arguments for format [-Wformat-extra-args]
895 | 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)
| ^
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:895:5: note: in expansion of macro 'fatal'
895 | fatal ("Can't find .data in %s.\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:895:5: note: in expansion of macro 'fatal'
895 | fatal ("Can't find .data in %s.\n", old_name, 0);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1256:5: note: in expansion of macro 'fatal'
1256 | fatal ("Didn't write %d bytes: errno %d\n",
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1256:5: note: in expansion of macro 'fatal'
1256 | fatal ("Didn't write %d bytes: errno %d\n",
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1272:5: note: in expansion of macro 'fatal'
1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1272:5: note: in expansion of macro 'fatal'
1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1275:5: note: in expansion of macro 'fatal'
1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1275:5: note: in expansion of macro 'fatal'
1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1278:5: note: in expansion of macro 'fatal'
1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1278:5: note: in expansion of macro 'fatal'
1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' [-Wbuiltin-declaration-mismatch]
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1284:5: note: in expansion of macro 'fatal'
1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno);
| ^~~~~
unexelf.c:406:51: note: include '<stdlib.h>' or provide a declaration of 'exit'
406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1)
| ^~~~
unexelf.c:1284:5: note: in expansion of macro 'fatal'
1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno);
| ^~~~~
gmalloc.c: In function '__malloc_initialize':
gmalloc.c:56:33: warning: implicit declaration of function 'bzero' [-Wimplicit-function-declaration]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:486:3: note: in expansion of macro 'memset'
486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:486:3: note: in expansion of macro 'memset'
486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c: In function 'morecore':
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:556:15: note: in expansion of macro 'memset'
556 | memset (&newinfo[heapsize], 0,
| ^~~~~~
gmalloc.c:59:33: warning: implicit declaration of function 'bcopy' [-Wimplicit-function-declaration]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:590:7: note: in expansion of macro 'memcpy'
590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:590:7: note: in expansion of macro 'memcpy'
590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info));
| ^~~~~~
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:591:7: note: in expansion of macro 'memset'
591 | memset (&newinfo[heapsize], 0,
| ^~~~~~
gmalloc.c: In function '__malloc_safe_bcopy':
gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1211 | bcopy (from, to, size);
| ^~~~~
gmalloc.c:1241:15: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1241 | bcopy (endf, endt, to - from);
| ^~~~~
gmalloc.c:1247:11: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
1247 | bcopy (from, to, endt - from);
| ^~~~~
gmalloc.c: In function '_realloc_internal':
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:1301:15: note: in expansion of macro 'memcpy'
1301 | memcpy (result, ptr, size);
| ^~~~~~
gmalloc.c:59:33: warning: incompatible implicit declaration of built-in function 'bcopy' [-Wbuiltin-declaration-mismatch]
59 | #define memcpy(d, s, n) bcopy ((s), (d), (n))
| ^~~~~
gmalloc.c:1376:11: note: in expansion of macro 'memcpy'
1376 | memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type));
| ^~~~~~
gmalloc.c: In function 'calloc':
gmalloc.c:56:33: warning: incompatible implicit declaration of built-in function 'bzero' [-Wbuiltin-declaration-mismatch]
56 | #define memset(s, zero, n) bzero ((s), (n))
| ^~~~~
gmalloc.c:1431:12: note: in expansion of macro 'memset'
1431 | (void) memset (result, 0, nmemb * size);
| ^~~~~~
gmalloc.c: In function 'valloc':
gmalloc.c:1646:16: warning: implicit declaration of function '__getpagesize' [-Wimplicit-function-declaration]
1646 | pagesize = __getpagesize ();
| ^~~~~~~~~~~~~
; ================ Link C object files
(system "ar rc libscm.a sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o")
(system "ranlib libscm.a")
makeinfo --html --no-split scm.texi
makeinfo --html --no-split Xlibscm.texi
cp XlibScm.html Xlibscm.html
cp ChangeLog changelog
make[1]: Leaving directory '/build/scm-5f3'
dh_auto_test
make -j16 check "TESTSUITEFLAGS=-j16 --verbose" VERBOSE=1
make[1]: Entering directory '/build/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)
#<primitive-procedure boolean?>
#<primitive-procedure char?>
#<primitive-procedure null?>
#<primitive-procedure number?>
#<primitive-procedure pair?>
#<primitive-procedure procedure?>
#<primitive-procedure string?>
#<primitive-procedure symbol?>
#<primitive-procedure vector?>
(#t #f #f #f #f #f #f #f #f)#t
(#t #f #f #f #f #f #f #f #f)#f
(#f #t #f #f #f #f #f #f #f)#\a
(#f #f #t #f #f #f #f #f #f)()
(#f #f #f #t #f #f #f #f #f)9739
(#f #f #f #f #t #f #f #f #f)(test)
(#f #f #f #f #f #t #f #f #f)#<CLOSURE record-error "r4rstest.scm": (e) (set! errs (cons (list cur-section e) errs))>
(#f #f #f #f #f #f #t #f #f)"test"
(#f #f #f #f #f #f #t #f #f)""
(#f #f #f #f #f #f #f #t #f)test
(#f #f #f #f #f #f #f #f #t)#()
(#f #f #f #f #f #f #f #f #t)#(a b c)
SECTION(4 1 2)
(quote (quote a)) ==> (quote a)
(quote (quote a)) ==> (quote a)
SECTION(4 1 3)
(#<primitive-procedure *> 3 4) ==> 12
SECTION(4 1 4)
(#<CLOSURE <anon> "r4rstest.scm": (x) (+ x x)> 4) ==> 8
(#<CLOSURE reverse-subtract "r4rstest.scm": (x y) (- y x)> 7 10) ==> 3
(#<CLOSURE <anon> "r4rstest.scm": (y) (+ x y)> 6) ==> 10
(#<CLOSURE <anon> "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6)
(#<CLOSURE <anon> "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6)
SECTION(4 1 5)
(if yes) ==> yes
(if no) ==> no
(if 1) ==> 1
SECTION(4 1 6)
(define 3) ==> 3
(set! 5) ==> 5
SECTION(4 2 1)
(cond greater) ==> greater
(cond equal) ==> equal
(cond 2) ==> 2
(case composite) ==> composite
(case consonant) ==> consonant
(and #t) ==> #t
(and #f) ==> #f
(and (f g)) ==> (f g)
(and #t) ==> #t
(or #t) ==> #t
(or #t) ==> #t
(or #f) ==> #f
(or #f) ==> #f
(or (b c)) ==> (b c)
SECTION(4 2 2)
(let 6) ==> 6
(let 35) ==> 35
(let* 70) ==> 70
(letrec #t) ==> #t
(let 5) ==> 5
(let 34) ==> 34
(let 6) ==> 6
(let 34) ==> 34
(let 34) ==> 34
(let* 7) ==> 7
(let* 34) ==> 34
(let* 8) ==> 8
(let* 34) ==> 34
(letrec 9) ==> 9
(letrec 34) ==> 34
(letrec 10) ==> 10
(letrec 34) ==> 34
SECTION(4 2 3)
(begin 6) ==> 6
SECTION(4 2 4)
(do #(0 1 2 3 4)) ==> #(0 1 2 3 4)
(do 25) ==> 25
(do 25) ==> 25
(let 1) ==> 1
(let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2))
(let -1) ==> -1
SECTION(4 2 6)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (list a (quote a))) ==> (list a (quote a))
(quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b)
(quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons)
(quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8)
(quasiquote 5) ==> 5
(quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)
(quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)
(quasiquote (list 3 4)) ==> (list 3 4)
(quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4))
SECTION(5 2 1)
(tprint #t) ==> #t
(define 6) ==> 6
(define 1) ==> 1
(define 9) ==> 9
(define 9) ==> 9
(define 10) ==> 10
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> (3 6)
(#<CLOSURE add3 "r4rstest.scm": (x) (#@+ #@x 3)> 6) ==> 9
SECTION(5 2 2)
(define 45) ==> 45
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5
(define 34) ==> 34
(#<CLOSURE foo "r4rstest.scm": () (#@define ((x 5)) x)>) ==> 5
(define 34) ==> 34
(#<CLOSURE foo "r4rstest.scm": (x) ((lambda () (define x 5) x)) x> 88) ==> 88
(#<CLOSURE foo "r4rstest.scm": (x) (#@let () (#@define ((x 5)) #@x)) #@x> 4) ==> 4
(define 34) ==> 34
(internal-define 99) ==> 99
(internal-define 77) ==> 77
SECTION(6 1)
(#<primitive-procedure not> #t) ==> #f
(#<primitive-procedure not> 3) ==> #f
(#<primitive-procedure not> (3)) ==> #f
(#<primitive-procedure not> #f) ==> #t
(#<primitive-procedure not> ()) ==> #f
(#<primitive-procedure not> ()) ==> #f
(#<primitive-procedure not> nil) ==> #f
SECTION(6 2)
(#<primitive-procedure eqv?> a a) ==> #t
(#<primitive-procedure eqv?> a b) ==> #f
(#<primitive-procedure eqv?> 2 2) ==> #t
(#<primitive-procedure eqv?> () ()) ==> #t
(#<primitive-procedure eqv?> 10000 10000) ==> #t
(#<primitive-procedure eqv?> (1 . 2) (1 . 2)) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () 1> #<CLOSURE <anon> "r4rstest.scm": () 2>) ==> #f
(#<primitive-procedure eqv?> #f nil) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE p "r4rstest.scm": (x) x> #<CLOSURE p "r4rstest.scm": (x) x>) ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t
(#<primitive-procedure eqv?> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n> #<CLOSURE <anon> "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f
(#<primitive-procedure eqv?> #<CLOSURE f "r4rstest.scm": () (if (eqv? f g) (quote f) (quote both))> #<CLOSURE g "r4rstest.scm": () (if (eqv? f g) (quote g) (quote both))>) ==> #f
(#<primitive-procedure eq?> a a) ==> #t
(#<primitive-procedure eq?> (a) (a)) ==> #f
(#<primitive-procedure eq?> () ()) ==> #t
(#<primitive-procedure eq?> #<primitive-procedure car> #<primitive-procedure car>) ==> #t
(#<primitive-procedure eq?> (a) (a)) ==> #t
(#<primitive-procedure eq?> #() #()) ==> #t
(#<primitive-procedure eq?> #<CLOSURE x "r4rstest.scm": (x) x> #<CLOSURE x "r4rstest.scm": (x) x>) ==> #t
(#<primitive-procedure equal?> a a) ==> #t
(#<primitive-procedure equal?> (a) (a)) ==> #t
(#<primitive-procedure equal?> (a (b) c) (a (b) c)) ==> #t
(#<primitive-procedure equal?> "abc" "abc") ==> #t
(#<primitive-procedure equal?> 2 2) ==> #t
(#<primitive-procedure equal?> #(a a a a a) #(a a a a a)) ==> #t
SECTION(6 3)
(dot (a b c d e)) ==> (a b c d e)
(#<primitive-procedure list?> (a b c)) ==> #t
(set-cdr! (a . 4)) ==> (a . 4)
(#<primitive-procedure eqv?> (a . 4) (a . 4)) ==> #t
(dot (a b c . d)) ==> (a b c . d)
(#<primitive-procedure list?> (a . 4)) ==> #f
(list? #f) ==> #f
(#<primitive-procedure cons> a ()) ==> (a)
(#<primitive-procedure cons> (a) (b c d)) ==> ((a) b c d)
(#<primitive-procedure cons> "a" (b c)) ==> ("a" b c)
(#<primitive-procedure cons> a 3) ==> (a . 3)
(#<primitive-procedure cons> (a b) c) ==> ((a b) . c)
(#<primitive-procedure car> (a b c)) ==> a
(#<primitive-procedure car> ((a) b c d)) ==> (a)
(#<primitive-procedure car> (1 . 2)) ==> 1
(#<primitive-procedure cdr> ((a) b c d)) ==> (b c d)
(#<primitive-procedure cdr> (1 . 2)) ==> 2
(#<primitive-procedure list> a 7 c) ==> (a 7 c)
(#<primitive-procedure list>) ==> ()
(#<primitive-procedure length> (a b c)) ==> 3
(#<primitive-procedure length> (a (b) (c d e))) ==> 3
(#<primitive-procedure length> ()) ==> 0
(#<primitive-procedure append> (x) (y)) ==> (x y)
(#<primitive-procedure append> (a) (b c d)) ==> (a b c d)
(#<primitive-procedure append> (a (b)) ((c))) ==> (a (b) (c))
(#<primitive-procedure append>) ==> ()
(#<primitive-procedure append> (a b) (c . d)) ==> (a b c . d)
(#<primitive-procedure append> () a) ==> a
(#<primitive-procedure reverse> (a b c)) ==> (c b a)
(#<primitive-procedure reverse> (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a)
(#<primitive-procedure list-ref> (a b c d) 2) ==> c
(#<primitive-procedure memq> a (a b c)) ==> (a b c)
(#<primitive-procedure memq> b (a b c)) ==> (b c)
(#<primitive-procedure memq> a (b c d)) ==> #f
(#<primitive-procedure memq> (a) (b (a) c)) ==> #f
(#<primitive-procedure member> (a) (b (a) c)) ==> ((a) c)
(#<primitive-procedure memv> 101 (100 101 102)) ==> (101 102)
(#<primitive-procedure assq> a ((a 1) (b 2) (c 3))) ==> (a 1)
(#<primitive-procedure assq> b ((a 1) (b 2) (c 3))) ==> (b 2)
(#<primitive-procedure assq> d ((a 1) (b 2) (c 3))) ==> #f
(#<primitive-procedure assq> (a) (((a)) ((b)) ((c)))) ==> #f
(#<primitive-procedure assoc> (a) (((a)) ((b)) ((c)))) ==> ((a))
(#<primitive-procedure assv> 5 ((2 3) (5 7) (11 13))) ==> (5 7)
SECTION(6 4)
(#<primitive-procedure symbol?> a) ==> #t
(standard-case #t) ==> #t
(standard-case #t) ==> #t
(#<primitive-procedure symbol->string> flying-fish) ==> "flying-fish"
(#<primitive-procedure symbol->string> martin) ==> "martin"
(#<primitive-procedure symbol->string> \Malvina) ==> "Malvina"
(standard-case #t) ==> #t
(string-set! "cb") ==> "cb"
(#<primitive-procedure symbol->string> ab) ==> "ab"
(#<primitive-procedure string->symbol> "ab") ==> ab
(#<primitive-procedure eq?> mississippi mississippi) ==> #t
(string->symbol #f) ==> #f
(#<primitive-procedure string->symbol> "jollywog") ==> jollywog
SECTION(6 5 5)
(#<primitive-procedure number?> 3) ==> #t
(#<primitive-procedure complex?> 3) ==> #t
(#<primitive-procedure real?> 3) ==> #t
(#<primitive-procedure rational?> 3) ==> #t
(#<primitive-procedure integer?> 3) ==> #t
(#<primitive-procedure exact?> 3) ==> #t
(#<primitive-procedure inexact?> 3) ==> #f
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (cond ((and (exact? z2) (not (and (zero? z1) (negative? z2)))) (integer-expt z1 z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (else (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 0) ==> 1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 1) ==> 0
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0 256) ==> 0
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 256) ==> 1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 255) ==> -1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -256) ==> 1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -1 -255) ==> -1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 0) ==> 1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 0) ==> 1
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 256 1) ==> 256
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -256 1) ==> -256
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 2 3) ==> 8
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -2 3) ==> -8
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 3 2) ==> 9
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> -3 2) ==> 9
(#<primitive-procedure => 22 22 22) ==> #t
(#<primitive-procedure => 22 22) ==> #t
(#<primitive-procedure => 34 34 35) ==> #f
(#<primitive-procedure => 34 35) ==> #f
(#<primitive-procedure >> 3 -6246) ==> #t
(#<primitive-procedure >> 9 9 -2424) ==> #f
(#<primitive-procedure >=> 3 -4 -6246) ==> #t
(#<primitive-procedure >=> 9 9) ==> #t
(#<primitive-procedure >=> 8 9) ==> #f
(#<primitive-procedure <> -1 2 3 4 5 6 7 8) ==> #t
(#<primitive-procedure <> -1 2 3 4 4 5 6 7) ==> #f
(#<primitive-procedure <=> -1 2 3 4 5 6 7 8) ==> #t
(#<primitive-procedure <=> -1 2 3 4 4 5 6 7) ==> #t
(#<primitive-procedure <> 1 3 2) ==> #f
(#<primitive-procedure >=> 1 3 2) ==> #f
(#<primitive-procedure zero?> 0) ==> #t
(#<primitive-procedure zero?> 1) ==> #f
(#<primitive-procedure zero?> -1) ==> #f
(#<primitive-procedure zero?> -100) ==> #f
(#<primitive-procedure positive?> 4) ==> #t
(#<primitive-procedure positive?> -4) ==> #f
(#<primitive-procedure positive?> 0) ==> #f
(#<primitive-procedure negative?> 4) ==> #f
(#<primitive-procedure negative?> -4) ==> #t
(#<primitive-procedure negative?> 0) ==> #f
(#<primitive-procedure odd?> 3) ==> #t
(#<primitive-procedure odd?> 2) ==> #f
(#<primitive-procedure odd?> -4) ==> #f
(#<primitive-procedure odd?> -1) ==> #t
(#<primitive-procedure even?> 3) ==> #f
(#<primitive-procedure even?> 2) ==> #t
(#<primitive-procedure even?> -4) ==> #t
(#<primitive-procedure even?> -1) ==> #f
(#<primitive-procedure max> 34 5 7 38 6) ==> 38
(#<primitive-procedure min> 3 5 5 330 4 -24) ==> -24
(#<primitive-procedure +> 3 4) ==> 7
(#<primitive-procedure +> 3) ==> 3
(#<primitive-procedure +>) ==> 0
(#<primitive-procedure *> 4) ==> 4
(#<primitive-procedure *>) ==> 1
(#<primitive-procedure /> 1) ==> 1
(#<primitive-procedure /> -1) ==> -1
(#<primitive-procedure /> 6 3) ==> 2
(#<primitive-procedure /> 6 -2) ==> -3
(#<primitive-procedure /> -6 2) ==> -3
(#<primitive-procedure /> -6 -2) ==> 3
(#<primitive-procedure -> 3 4) ==> -1
(#<primitive-procedure -> 3) ==> -3
(#<primitive-procedure abs> -7) ==> 7
(#<primitive-procedure abs> 7) ==> 7
(#<primitive-procedure abs> 0) ==> 0
(#<primitive-procedure quotient> 35 7) ==> 5
(#<primitive-procedure quotient> -35 7) ==> -5
(#<primitive-procedure quotient> 35 -7) ==> -5
(#<primitive-procedure quotient> -35 -7) ==> 5
(#<primitive-procedure modulo> 13 4) ==> 1
(#<primitive-procedure remainder> 13 4) ==> 1
(#<primitive-procedure modulo> -13 4) ==> 3
(#<primitive-procedure remainder> -13 4) ==> -1
(#<primitive-procedure modulo> 13 -4) ==> -3
(#<primitive-procedure remainder> 13 -4) ==> 1
(#<primitive-procedure modulo> -13 -4) ==> -1
(#<primitive-procedure remainder> -13 -4) ==> -1
(#<primitive-procedure modulo> 0 86400) ==> 0
(#<primitive-procedure modulo> 0 -86400) ==> 0
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))> 238 9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> 238 -9) ==> #t
(#<CLOSURE divtest "r4rstest.scm": (n1 n2) (#@= #@n1 (#@+ (#@* #@n2 (#@quotient #@n1 #@n2)) (#@remainder #@n1 #@n2)))> -238 -9) ==> #t
(#<primitive-procedure gcd> 0 4) ==> 4
(#<primitive-procedure gcd> -4 0) ==> 4
(#<primitive-procedure gcd> 32 -36) ==> 4
(#<primitive-procedure gcd>) ==> 0
(#<primitive-procedure lcm> 32 -36) ==> 288
(#<primitive-procedure lcm>) ==> 1
SECTION(6 5 5)
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t
(#<CLOSURE test-string->number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t
(#<primitive-procedure number?> 0.-1.i) ==> #t
(#<primitive-procedure number?> 0.+1.i) ==> #t
(#<primitive-procedure number?> 2.+1.i) ==> #t
SECTION(6 5 9)
(#<primitive-procedure number->string> 0) ==> "0"
(#<primitive-procedure number->string> 100) ==> "100"
(#<primitive-procedure number->string> 256 16) ==> "100"
(#<primitive-procedure string->number> "100") ==> 100
(#<primitive-procedure string->number> "100" 16) ==> 256
(#<primitive-procedure string->number> "") ==> #f
(#<primitive-procedure string->number> ".") ==> #f
(#<primitive-procedure string->number> "d") ==> #f
(#<primitive-procedure string->number> "D") ==> #f
(#<primitive-procedure string->number> "i") ==> #f
(#<primitive-procedure string->number> "I") ==> #f
(#<primitive-procedure string->number> "3i") ==> #f
(#<primitive-procedure string->number> "3I") ==> #f
(#<primitive-procedure string->number> "33i") ==> #f
(#<primitive-procedure string->number> "33I") ==> #f
(#<primitive-procedure string->number> "3.3i") ==> #f
(#<primitive-procedure string->number> "3.3I") ==> #f
(#<primitive-procedure string->number> "-") ==> #f
(#<primitive-procedure string->number> "+") ==> #f
(string->number #t) ==> #t
(string->number #t) ==> #t
SECTION(6 6)
(#<primitive-procedure eqv?> #\space #\space) ==> #t
(#<primitive-procedure eqv?> #\space #\space) ==> #t
(#<primitive-procedure char?> #\a) ==> #t
(#<primitive-procedure char?> #\() ==> #t
(#<primitive-procedure char?> #\space) ==> #t
(#<primitive-procedure char?> #\nl) ==> #t
(#<primitive-procedure char=?> #\A #\B) ==> #f
(#<primitive-procedure char=?> #\a #\b) ==> #f
(#<primitive-procedure char=?> #\9 #\0) ==> #f
(#<primitive-procedure char=?> #\A #\A) ==> #t
(#<primitive-procedure char<?> #\A #\B) ==> #t
(#<primitive-procedure char<?> #\a #\b) ==> #t
(#<primitive-procedure char<?> #\9 #\0) ==> #f
(#<primitive-procedure char<?> #\A #\A) ==> #f
(#<primitive-procedure char>?> #\A #\B) ==> #f
(#<primitive-procedure char>?> #\a #\b) ==> #f
(#<primitive-procedure char>?> #\9 #\0) ==> #t
(#<primitive-procedure char>?> #\A #\A) ==> #f
(#<primitive-procedure char<=?> #\A #\B) ==> #t
(#<primitive-procedure char<=?> #\a #\b) ==> #t
(#<primitive-procedure char<=?> #\9 #\0) ==> #f
(#<primitive-procedure char<=?> #\A #\A) ==> #t
(#<primitive-procedure char>=?> #\A #\B) ==> #f
(#<primitive-procedure char>=?> #\a #\b) ==> #f
(#<primitive-procedure char>=?> #\9 #\0) ==> #t
(#<primitive-procedure char>=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci=?> #\A #\B) ==> #f
(#<primitive-procedure char-ci=?> #\a #\B) ==> #f
(#<primitive-procedure char-ci=?> #\A #\b) ==> #f
(#<primitive-procedure char-ci=?> #\a #\b) ==> #f
(#<primitive-procedure char-ci=?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci=?> #\A #\a) ==> #t
(#<primitive-procedure char-ci<?> #\A #\B) ==> #t
(#<primitive-procedure char-ci<?> #\a #\B) ==> #t
(#<primitive-procedure char-ci<?> #\A #\b) ==> #t
(#<primitive-procedure char-ci<?> #\a #\b) ==> #t
(#<primitive-procedure char-ci<?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci<?> #\A #\A) ==> #f
(#<primitive-procedure char-ci<?> #\A #\a) ==> #f
(#<primitive-procedure char-ci>?> #\A #\B) ==> #f
(#<primitive-procedure char-ci>?> #\a #\B) ==> #f
(#<primitive-procedure char-ci>?> #\A #\b) ==> #f
(#<primitive-procedure char-ci>?> #\a #\b) ==> #f
(#<primitive-procedure char-ci>?> #\9 #\0) ==> #t
(#<primitive-procedure char-ci>?> #\A #\A) ==> #f
(#<primitive-procedure char-ci>?> #\A #\a) ==> #f
(#<primitive-procedure char-ci<=?> #\A #\B) ==> #t
(#<primitive-procedure char-ci<=?> #\a #\B) ==> #t
(#<primitive-procedure char-ci<=?> #\A #\b) ==> #t
(#<primitive-procedure char-ci<=?> #\a #\b) ==> #t
(#<primitive-procedure char-ci<=?> #\9 #\0) ==> #f
(#<primitive-procedure char-ci<=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci<=?> #\A #\a) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\B) ==> #f
(#<primitive-procedure char-ci>=?> #\a #\B) ==> #f
(#<primitive-procedure char-ci>=?> #\A #\b) ==> #f
(#<primitive-procedure char-ci>=?> #\a #\b) ==> #f
(#<primitive-procedure char-ci>=?> #\9 #\0) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\A) ==> #t
(#<primitive-procedure char-ci>=?> #\A #\a) ==> #t
(#<primitive-procedure char-alphabetic?> #\a) ==> #t
(#<primitive-procedure char-alphabetic?> #\A) ==> #t
(#<primitive-procedure char-alphabetic?> #\z) ==> #t
(#<primitive-procedure char-alphabetic?> #\Z) ==> #t
(#<primitive-procedure char-alphabetic?> #\0) ==> #f
(#<primitive-procedure char-alphabetic?> #\9) ==> #f
(#<primitive-procedure char-alphabetic?> #\space) ==> #f
(#<primitive-procedure char-alphabetic?> #\;) ==> #f
(#<primitive-procedure char-numeric?> #\a) ==> #f
(#<primitive-procedure char-numeric?> #\A) ==> #f
(#<primitive-procedure char-numeric?> #\z) ==> #f
(#<primitive-procedure char-numeric?> #\Z) ==> #f
(#<primitive-procedure char-numeric?> #\0) ==> #t
(#<primitive-procedure char-numeric?> #\9) ==> #t
(#<primitive-procedure char-numeric?> #\space) ==> #f
(#<primitive-procedure char-numeric?> #\;) ==> #f
(#<primitive-procedure char-whitespace?> #\a) ==> #f
(#<primitive-procedure char-whitespace?> #\A) ==> #f
(#<primitive-procedure char-whitespace?> #\z) ==> #f
(#<primitive-procedure char-whitespace?> #\Z) ==> #f
(#<primitive-procedure char-whitespace?> #\0) ==> #f
(#<primitive-procedure char-whitespace?> #\9) ==> #f
(#<primitive-procedure char-whitespace?> #\space) ==> #t
(#<primitive-procedure char-whitespace?> #\;) ==> #f
(#<primitive-procedure char-upper-case?> #\0) ==> #f
(#<primitive-procedure char-upper-case?> #\9) ==> #f
(#<primitive-procedure char-upper-case?> #\space) ==> #f
(#<primitive-procedure char-upper-case?> #\;) ==> #f
(#<primitive-procedure char-lower-case?> #\0) ==> #f
(#<primitive-procedure char-lower-case?> #\9) ==> #f
(#<primitive-procedure char-lower-case?> #\space) ==> #f
(#<primitive-procedure char-lower-case?> #\;) ==> #f
(#<primitive-procedure integer->char> 46) ==> #\.
(#<primitive-procedure integer->char> 65) ==> #\A
(#<primitive-procedure integer->char> 97) ==> #\a
(#<primitive-procedure char-upcase> #\A) ==> #\A
(#<primitive-procedure char-upcase> #\a) ==> #\A
(#<primitive-procedure char-downcase> #\A) ==> #\a
(#<primitive-procedure char-downcase> #\a) ==> #\a
SECTION(6 7)
(#<primitive-procedure string?> "The word \"recursion\\\" has many meanings.") ==> #t
(string-set! "?**") ==> "?**"
(#<primitive-procedure string> #\a #\b #\c) ==> "abc"
(#<primitive-procedure string>) ==> ""
(#<primitive-procedure string-length> "abc") ==> 3
(#<primitive-procedure string-ref> "abc" 0) ==> #\a
(#<primitive-procedure string-ref> "abc" 2) ==> #\c
(#<primitive-procedure string-length> "") ==> 0
(#<primitive-procedure substring> "ab" 0 0) ==> ""
(#<primitive-procedure substring> "ab" 1 1) ==> ""
(#<primitive-procedure substring> "ab" 2 2) ==> ""
(#<primitive-procedure substring> "ab" 0 1) ==> "a"
(#<primitive-procedure substring> "ab" 1 2) ==> "b"
(#<primitive-procedure substring> "ab" 0 2) ==> "ab"
(#<primitive-procedure string-append> "foo" "bar") ==> "foobar"
(#<primitive-procedure string-append> "foo") ==> "foo"
(#<primitive-procedure string-append> "foo" "") ==> "foo"
(#<primitive-procedure string-append> "" "foo") ==> "foo"
(#<primitive-procedure string-append>) ==> ""
(#<primitive-procedure make-string> 0) ==> ""
(#<primitive-procedure string=?> "" "") ==> #t
(#<primitive-procedure string<?> "" "") ==> #f
(#<primitive-procedure string>?> "" "") ==> #f
(#<primitive-procedure string<=?> "" "") ==> #t
(#<primitive-procedure string>=?> "" "") ==> #t
(#<primitive-procedure string-ci=?> "" "") ==> #t
(#<primitive-procedure string-ci<?> "" "") ==> #f
(#<primitive-procedure string-ci>?> "" "") ==> #f
(#<primitive-procedure string-ci<=?> "" "") ==> #t
(#<primitive-procedure string-ci>=?> "" "") ==> #t
(#<primitive-procedure string=?> "A" "B") ==> #f
(#<primitive-procedure string=?> "a" "b") ==> #f
(#<primitive-procedure string=?> "9" "0") ==> #f
(#<primitive-procedure string=?> "A" "A") ==> #t
(#<primitive-procedure string<?> "A" "B") ==> #t
(#<primitive-procedure string<?> "a" "b") ==> #t
(#<primitive-procedure string<?> "9" "0") ==> #f
(#<primitive-procedure string<?> "A" "A") ==> #f
(#<primitive-procedure string>?> "A" "B") ==> #f
(#<primitive-procedure string>?> "a" "b") ==> #f
(#<primitive-procedure string>?> "9" "0") ==> #t
(#<primitive-procedure string>?> "A" "A") ==> #f
(#<primitive-procedure string<=?> "A" "B") ==> #t
(#<primitive-procedure string<=?> "a" "b") ==> #t
(#<primitive-procedure string<=?> "9" "0") ==> #f
(#<primitive-procedure string<=?> "A" "A") ==> #t
(#<primitive-procedure string>=?> "A" "B") ==> #f
(#<primitive-procedure string>=?> "a" "b") ==> #f
(#<primitive-procedure string>=?> "9" "0") ==> #t
(#<primitive-procedure string>=?> "A" "A") ==> #t
(#<primitive-procedure string-ci=?> "A" "B") ==> #f
(#<primitive-procedure string-ci=?> "a" "B") ==> #f
(#<primitive-procedure string-ci=?> "A" "b") ==> #f
(#<primitive-procedure string-ci=?> "a" "b") ==> #f
(#<primitive-procedure string-ci=?> "9" "0") ==> #f
(#<primitive-procedure string-ci=?> "A" "A") ==> #t
(#<primitive-procedure string-ci=?> "A" "a") ==> #t
(#<primitive-procedure string-ci<?> "A" "B") ==> #t
(#<primitive-procedure string-ci<?> "a" "B") ==> #t
(#<primitive-procedure string-ci<?> "A" "b") ==> #t
(#<primitive-procedure string-ci<?> "a" "b") ==> #t
(#<primitive-procedure string-ci<?> "9" "0") ==> #f
(#<primitive-procedure string-ci<?> "A" "A") ==> #f
(#<primitive-procedure string-ci<?> "A" "a") ==> #f
(#<primitive-procedure string-ci>?> "A" "B") ==> #f
(#<primitive-procedure string-ci>?> "a" "B") ==> #f
(#<primitive-procedure string-ci>?> "A" "b") ==> #f
(#<primitive-procedure string-ci>?> "a" "b") ==> #f
(#<primitive-procedure string-ci>?> "9" "0") ==> #t
(#<primitive-procedure string-ci>?> "A" "A") ==> #f
(#<primitive-procedure string-ci>?> "A" "a") ==> #f
(#<primitive-procedure string-ci<=?> "A" "B") ==> #t
(#<primitive-procedure string-ci<=?> "a" "B") ==> #t
(#<primitive-procedure string-ci<=?> "A" "b") ==> #t
(#<primitive-procedure string-ci<=?> "a" "b") ==> #t
(#<primitive-procedure string-ci<=?> "9" "0") ==> #f
(#<primitive-procedure string-ci<=?> "A" "A") ==> #t
(#<primitive-procedure string-ci<=?> "A" "a") ==> #t
(#<primitive-procedure string-ci>=?> "A" "B") ==> #f
(#<primitive-procedure string-ci>=?> "a" "B") ==> #f
(#<primitive-procedure string-ci>=?> "A" "b") ==> #f
(#<primitive-procedure string-ci>=?> "a" "b") ==> #f
(#<primitive-procedure string-ci>=?> "9" "0") ==> #t
(#<primitive-procedure string-ci>=?> "A" "A") ==> #t
(#<primitive-procedure string-ci>=?> "A" "a") ==> #t
SECTION(6 8)
(#<primitive-procedure vector?> #(0 (2 2 2 2) "Anna")) ==> #t
(#<primitive-procedure vector> a b c) ==> #(a b c)
(#<primitive-procedure vector>) ==> #()
(#<primitive-procedure vector-length> #(0 (2 2 2 2) "Anna")) ==> 3
(#<primitive-procedure vector-length> #()) ==> 0
(#<primitive-procedure vector-ref> #(1 1 2 3 5 8 13 21) 5) ==> 8
(vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna")
(#<primitive-procedure make-vector> 2 hi) ==> #(hi hi)
(#<primitive-procedure make-vector> 0) ==> #()
(#<primitive-procedure make-vector> 0 a) ==> #()
SECTION(6 9)
(#<primitive-procedure procedure?> #<primitive-procedure car>) ==> #t
(#<primitive-procedure procedure?> car) ==> #f
(#<primitive-procedure procedure?> #<CLOSURE <anon> "r4rstest.scm": (x) (* x x)>) ==> #t
(#<primitive-procedure procedure?> (lambda (x) (* x x))) ==> #f
(#<primitive-procedure call-with-current-continuation> #<primitive-procedure procedure?>) ==> #t
(#<primitive-procedure procedure?> #<primitive-procedure />) ==> #t
(#<primitive-procedure apply> #<primitive-procedure +> (3 4)) ==> 7
(#<primitive-procedure apply> #<CLOSURE <anon> "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7
(#<primitive-procedure apply> #<primitive-procedure +> 10 (3 4)) ==> 17
(#<primitive-procedure apply> #<primitive-procedure list> ()) ==> ()
(#<CLOSURE <anon> "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30
(#<primitive-procedure map> #<primitive-procedure cadr> ((a b) (d e) (g h))) ==> (b e h)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3) (4 5 6)) ==> (5 7 9)
(#<primitive-procedure map> #<primitive-procedure +> (1 2 3)) ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure *> (1 2 3)) ==> (1 2 3)
(#<primitive-procedure map> #<primitive-procedure -> (1 2 3)) ==> (-1 -2 -3)
(for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16)
(#<primitive-procedure call-with-current-continuation> #<CLOSURE <anon> "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3
(#<CLOSURE list-length "r4rstest.scm": (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj))))> (1 2 3 4)) ==> 4
(#<CLOSURE list-length "r4rstest.scm": (obj) (#@call-with-current-continuation (#@lambda (return) (#@letrec ((r (#@lambda (obj) (#@cond ((#@null? #@obj) 0) ((#@pair? #@obj) (#@+ (#@r (#@cdr #@obj)) 1)) (#t (return #f)))))) (#@r #@obj))))> (a b . c)) ==> #f
(#<primitive-procedure map> #<primitive-procedure cadr> ()) ==> ()
SECTION(6 10 1)
(#<primitive-procedure input-port?> #<input-port 0>) ==> #t
(#<primitive-procedure output-port?> #<output-port 1 L1 C1>) ==> #t
(#<CLOSURE call-with-input-file "/build/scm-5f3/Init5f3.scm": (str proc) (#@call-with-open-ports (#@open-input-file #@str) #@proc)> "r4rstest.scm" #<primitive-procedure input-port?>) ==> #t
(#<primitive-procedure input-port?> #<input-port "r4rstest.scm">) ==> #t
SECTION(6 10 2)
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\;
(#<primitive-procedure read-char> #<input-port "r4rstest.scm">) ==> #\;
(#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define cur-section (quote ()))
(#<primitive-procedure peek-char> #<input-port "r4rstest.scm">) ==> #\(
(#<primitive-procedure read> #<input-port "r4rstest.scm">) ==> (define errs (quote ()))
SECTION(6 10 3)
(#<CLOSURE call-with-output-file "/build/scm-5f3/Init5f3.scm": (str proc) (call-with-open-ports (open-output-file str) proc)> "tmp1" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t
(#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(input-port? #t) ==> #t
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp1">) ==> #\;
(#<primitive-procedure read> #<input-port "tmp1">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp1">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure output-port?> #<output-port "tmp2">) ==> #t
(#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(input-port? #t) ==> #t
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp2">) ==> #\;
(#<primitive-procedure read> #<input-port "tmp2">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
(#<primitive-procedure read> #<input-port "tmp2">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))))
Passed all tests
;testing inexact numbers;
SECTION(6 2)
(#<primitive-procedure eqv?> 1 1.) ==> #f
(#<primitive-procedure eqv?> 0 0.) ==> #f
(#<primitive-procedure eqv?> 0. 0.) ==> #t
(#<primitive-procedure eqv?> 0. 0.) ==> #t
(#<primitive-procedure equal?> 0. 0.) ==> #t
(#<primitive-procedure eqv?> 0. 0.) ==> #t
(#<primitive-procedure equal?> 0. 0.) ==> #t
SECTION(6 5 5)
(magnitude 1.) ==> 1.
(#<primitive-procedure /> 1.e300+1.e300i 4.e300+4.e300i) ==> 2.5e-1
(magnitude 1.) ==> 1.
(#<primitive-procedure /> 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 2.5e-1
(#<primitive-procedure => 0. 0.) ==> #t
(#<primitive-procedure => 0. 0.) ==> #t
(#<primitive-procedure => 0. 0.) ==> #t
(#<primitive-procedure inexact?> 3.9) ==> #t
(max #t) ==> #t
(#<primitive-procedure max> 3.9 4) ==> 4.
(#<primitive-procedure exact->inexact> 4) ==> 4.
(#<primitive-procedure exact->inexact> 4.) ==> 4.
(#<primitive-procedure inexact->exact> 4) ==> 4
(#<primitive-procedure inexact->exact> 4.) ==> 4
(#<primitive-procedure round> -4.5) ==> -4.
(#<primitive-procedure round> -3.5) ==> -4.
(#<primitive-procedure round> -3.9) ==> -4.
(#<primitive-procedure round> 0.) ==> 0.
(#<primitive-procedure round> 2.5e-1) ==> 0.
(#<primitive-procedure round> 8.e-1) ==> 1.
(#<primitive-procedure round> 3.5) ==> 4.
(#<primitive-procedure round> 4.5) ==> 4.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((zero? z2) (+ 1 (* z1 z2))) ((and (real? z2) (real? z1) (positive? z1)) (real-expt z1 z2)) (#t (exp (* (if (zero? z1) (real-part z2) z2) (log z1)))))> 0. 1.) ==> 0.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0. 1) ==> 0.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> 0 1.) ==> 0.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (+ 1 (* z1 z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -25 0.) ==> 1.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0.) ==> 1.
(#<CLOSURE expt "/build/scm-5f3/Transcen.scm": (z1 z2) (#@cond ((#@and (#@exact? #@z2) (#@not (#@and (#@zero? #@z1) (#@negative? #@z2)))) (#@integer-expt #@z1 #@z2)) ((#@zero? #@z2) (#@+ 1 (#@* #@z1 #@z2))) ((#@and (#@real? #@z2) (#@real? #@z1) (#@positive? #@z1)) (real-expt z1 z2)) (#t (#@exp (#@* (#@if (#@zero? #@z1) (#@real-part #@z2) z2) (#@log #@z1)))))> -3.25 0) ==> 1.
(#<CLOSURE atan "/build/scm-5f3/Transcen.scm": (z . y) (#@if (#@null? #@y) (#@if (#@real? #@z) (#@real-atan #@z) (/ (log (/ (- 0.+1.i z) (+ 0.+1.i z))) 0.+2.i)) ($atan2 z (car y)))> 1 1) ==> 7.853981633974483e-1
(#<CLOSURE call-with-output-file "/build/scm-5f3/Init5f3.scm": (str proc) (#@call-with-open-ports (#@open-output-file #@str) #@proc)> "tmp3" #<CLOSURE <anon> "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t
(#<primitive-procedure read> #<input-port "tmp3">) ==> (define foo (quote (2.5e-1 -3.25)))
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(#<primitive-procedure eof-object?> #<eof>) ==> #t
(input-port? #t) ==> #t
(#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\;
(#<primitive-procedure read-char> #<input-port "tmp3">) ==> #\;
(#<primitive-procedure read> #<input-port "tmp3">) ==> (2.5e-1 -3.25)
(#<primitive-procedure read> #<input-port "tmp3">) ==> (define foo (quote (2.5e-1 -3.25)))
(pentium-fdiv-bug #t) ==> #t
Passed all tests
SECTION(6 5 6)
(float-print-test #t) ==> #t
(mult-float-print-test #t) ==> #t
(mult-float-print-test #t) ==> #t
(mult-float-print-test #t) ==> #t
(mult-float-print-test #t) ==> #t
(mult-float-print-test #t) ==> #t
(#<CLOSURE float-rw-range-test "r4rstest.scm": () (#@define ((success #t)) (do ((cnt -323 (+ 1 cnt))) ((> 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
(#<CLOSURE float-powers-of-2-test "r4rstest.scm": () (#@define ((all-ok? #t)) (do ((xx (expt f2.0 1000) (/ xx 2)) (p 1000 (+ p -1))) ((zero? xx) all-ok?) (let ((cnv (string->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)
(#<primitive-procedure modulo> 33333333333333333333 3) ==> 0
(#<primitive-procedure modulo> 33333333333333333333 -3) ==> 0
(#<primitive-procedure remainder> 33333333333333333333 3) ==> 0
(#<primitive-procedure remainder> 33333333333333333333 -3) ==> 0
(#<primitive-procedure modulo> 33333333333333333332 3) ==> 2
(#<primitive-procedure modulo> 33333333333333333332 -3) ==> -1
(#<primitive-procedure remainder> 33333333333333333332 3) ==> 2
(#<primitive-procedure remainder> 33333333333333333332 -3) ==> 2
(#<primitive-procedure modulo> -33333333333333333332 3) ==> 1
(#<primitive-procedure modulo> -33333333333333333332 -3) ==> -2
(#<primitive-procedure remainder> -33333333333333333332 3) ==> -2
(#<primitive-procedure remainder> -33333333333333333332 -3) ==> -2
(#<primitive-procedure modulo> 3 33333333333333333333) ==> 3
(#<primitive-procedure modulo> -3 33333333333333333333) ==> 33333333333333333330
(#<primitive-procedure remainder> 3 33333333333333333333) ==> 3
(#<primitive-procedure remainder> -3 33333333333333333333) ==> -3
(#<primitive-procedure modulo> 3 -33333333333333333333) ==> -33333333333333333330
(#<primitive-procedure modulo> -3 -33333333333333333333) ==> -3
(#<primitive-procedure remainder> 3 -33333333333333333333) ==> 3
(#<primitive-procedure remainder> -3 -33333333333333333333) ==> -3
(#<primitive-procedure modulo> -2177452800 86400) ==> 0
(#<primitive-procedure modulo> 2177452800 -86400) ==> 0
(#<primitive-procedure modulo> 2177452800 86400) ==> 0
(#<primitive-procedure modulo> -2177452800 -86400) ==> 0
(#<primitive-procedure modulo> 0 -2177452800) ==> 0
(remainder #t) ==> #t
(remainder #t) ==> #t
(#<primitive-procedure gcd> 33333333333333333333 11111111111111111111) ==> 11111111111111111111
(#<primitive-procedure gcd> 33333333333333333332 11111111111111111111) ==> 1
(#<primitive-procedure gcd> 33333333333333333330 11111111111111111111) ==> 1
(#<primitive-procedure gcd> 33333333333333333333 33333333333333333330) ==> 3
(#<primitive-procedure lcm> 33333333333333333333 11111111111111111111) ==> 33333333333333333333
(#<primitive-procedure lcm> -3 11111111111111111111) ==> 33333333333333333333
SECTION(6 5 8)
(#<primitive-procedure number->string> 281474976710655325431) ==> "281474976710655325431"
Passed all tests
;testing bignum-inexact comparisons;
SECTION(6 5 5)
(#<primitive-procedure => 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f
(#<primitive-procedure => 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f
(#<primitive-procedure <> 1427247692705959881058285969449495136382746623 1.42724769270596e45 1427247692705959881058285969449495136382746625) ==> #t
To fully test continuations, Scheme 4, and DELAY/FORCE do:
(test-cont) (test-sc4) (test-delay)
;testing scheme 4 functions;
SECTION(6 7)
(#<primitive-procedure string->list> "P l") ==> (#\P #\space #\l)
(#<primitive-procedure string->list> "") ==> ()
(#<primitive-procedure list->string> (#\1 #\\ #\")) ==> "1\\\""
(#<primitive-procedure list->string> ()) ==> ""
SECTION(6 8)
(#<primitive-procedure vector->list> #(dah dah didah)) ==> (dah dah didah)
(#<primitive-procedure vector->list> #()) ==> ()
(#<primitive-procedure list->vector> (dididit dah)) ==> #(dididit dah)
(#<primitive-procedure list->vector> ()) ==> #()
SECTION(6 10 4)
(load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))
Passed all tests
;testing continuations;
SECTION(6 9)
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (let* ((eot (list (quote eot))) (xf (next-leaf-generator x eot)) (yf (next-leaf-generator y eot))) (letrec ((loop (lambda (x y) (cond ((not (eq? x y)) #f) ((eq? eot x) #t) (else (loop (xf) (yf))))))) (loop (xf) (yf))))> (a (b (c))) ((a) b c)) ==> #t
(#<CLOSURE leaf-eq? "r4rstest.scm": (x y) (#@let* ((eot (#@list (#@quote eot))) (xf (#@next-leaf-generator #@x #@eot)) (yf (#@next-leaf-generator #@y #@eot))) (#@letrec ((loop (#@lambda (x y) (#@cond ((#@not (#@eq? #@x #@y)) #f) ((#@eq? #@eot #@x) #t) (#t (#@loop (#@xf) (#@yf))))))) (#@loop (#@xf) (#@yf))))> (a (b (c))) ((a) b c d)) ==> #f
Passed all tests
;testing DELAY and FORCE;
SECTION(6 9)
(delay 3) ==> 3
(delay (3 3)) ==> (3 3)
(delay 2) ==> 2
(#<primitive-procedure force> #<promise #<CLOSURE test-delay "r4rstest.scm": () (begin (set! count (+ count 1)) (if (> count x) count (force p)))>>) ==> 6
(#<primitive-procedure force> #<promise 6>) ==> 6
(force 3) ==> 3
Passed all tests
make[1]: Leaving directory '/build/scm-5f3'
create-stamp debian/debhelper-build-stamp
dh_prep
debian/rules override_dh_auto_install
make[1]: Entering directory '/build/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/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/scm-5f3'
dh_strip --no-automatic-dbgsym
make[1]: Leaving directory '/build/scm-5f3'
dh_makeshlibs -a
dh_shlibdeps -a
dh_installdeb
dh_gencontrol
dh_md5sums
dh_builddeb
dpkg-deb: building package 'scm' in '../scm_5f3-4_amd64.deb'.
dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f3-4_amd64.deb'.
dpkg-genbuildinfo --build=binary -O../scm_5f3-4_amd64.buildinfo
dpkg-genchanges --build=binary -O../scm_5f3-4_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: 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/2928428 and its subdirectories
I: Current time: Mon Jun 17 12:45:04 -12 2024
I: pbuilder-time-stamp: 1718671504
Tue May 16 18:22:05 UTC 2023 I: 1st build successful. Starting 2nd build on remote node ionos11-amd64.debian.net.
Tue May 16 18:22:05 UTC 2023 I: Preparing to do remote build '2' on ionos11-amd64.debian.net.
Tue May 16 18:23:28 UTC 2023 I: Deleting $TMPDIR on ionos11-amd64.debian.net.
Tue May 16 18:23:29 UTC 2023 I: scm_5f3-4_amd64.changes:
Format: 1.8
Date: Wed, 18 Jan 2023 12:34:18 +0800
Source: scm
Binary: libscm-dev scm
Architecture: amd64
Version: 5f3-4
Distribution: unstable
Urgency: medium
Maintainer: Debian Scheme Dream Team <debian-scheme@lists.debian.org>
Changed-By: Bo YU <tsu.yubo@gmail.com>
Description:
libscm-dev - Embeddable library for SCM Scheme language interpreter
scm - Scheme language interpreter
Closes: 1029122
Changes:
scm (5f3-4) unstable; urgency=medium
.
* Team upload.
* Fix ftbfs on mipsel. Closes: #1029122
* Use libncurses-dev instead of libncurses5-dev
Checksums-Sha1:
df34a83842b908427b9e44517edc2b3282f5a769 287592 libscm-dev_5f3-4_amd64.deb
be50721207ad0143438a8f48800a9849160d42ef 5886 scm_5f3-4_amd64.buildinfo
2642ea66583e612c856cade2fa57604a7c84c242 661932 scm_5f3-4_amd64.deb
Checksums-Sha256:
e4afa7b4eb123b0a081ef59f1c1a766a8f8bb27eed838e50d82b0c91a7888bb9 287592 libscm-dev_5f3-4_amd64.deb
11ebfe74f7490b4a1b7c1cc93ccb74c421681884b1543ea5eabeb3fbe31448f6 5886 scm_5f3-4_amd64.buildinfo
69b0a4140a88e6c51d4d53a7537ff87255bfde969c750aa1cda5dfb63cc852f7 661932 scm_5f3-4_amd64.deb
Files:
d4390da346c22824bbac0ebadc8b9430 287592 libdevel optional libscm-dev_5f3-4_amd64.deb
1e952fdf743761654800e53e055d4894 5886 interpreters optional scm_5f3-4_amd64.buildinfo
84f742279f40d7bc905444dce037f35a 661932 interpreters optional scm_5f3-4_amd64.deb
Tue May 16 18:23:38 UTC 2023 I: diffoscope 242 will be used to compare the two builds:
# Profiling output for: /usr/bin/diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/scm_5f3-4.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/scm_5f3-4.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/scm_5f3-4.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/b1/scm_5f3-4_amd64.changes /srv/reproducible-results/rbuild-debian/r-b-build.FpyZirfd/b2/scm_5f3-4_amd64.changes
## command (total time: 0.000s)
0.000s 1 call cmp (internal)
## has_same_content_as (total time: 0.000s)
0.000s 1 call abc.DotChangesFile
## main (total time: 6.148s)
6.148s 2 calls outputs
0.000s 1 call cleanup
## recognizes (total time: 0.124s)
0.124s 12 calls diffoscope.comparators.binary.FilesystemFile
0.000s 10 calls abc.DotChangesFile
## specialize (total time: 0.001s)
0.001s 1 call specialize
Tue May 16 18:25:28 UTC 2023 I: diffoscope 242 found no differences in the changes files, and a .buildinfo file also exists.
Tue May 16 18:25:28 UTC 2023 I: scm from bookworm built successfully and reproducibly on amd64.
Tue May 16 18:25:36 UTC 2023 I: Submitting .buildinfo files to external archives:
Tue May 16 18:25:36 UTC 2023 I: Submitting 8.0K b1/scm_5f3-4_amd64.buildinfo.asc
Tue May 16 18:25:37 UTC 2023 I: Submitting 8.0K b2/scm_5f3-4_amd64.buildinfo.asc
Tue May 16 18:25:38 UTC 2023 I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit.
Tue May 16 18:25:38 UTC 2023 I: Done submitting .buildinfo files.
Tue May 16 18:25:38 UTC 2023 I: Removing signed scm_5f3-4_amd64.buildinfo.asc files:
removed './b1/scm_5f3-4_amd64.buildinfo.asc'
removed './b2/scm_5f3-4_amd64.buildinfo.asc'