Diff of the two buildlogs: -- --- b1/build.log 2024-01-11 14:44:11.372179919 +0000 +++ b2/build.log 2024-01-11 15:23:33.511067138 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Wed Feb 12 08:41:24 -12 2025 -I: pbuilder-time-stamp: 1739392884 +I: Current time: Fri Jan 12 04:44:17 +14 2024 +I: pbuilder-time-stamp: 1704984257 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/bookworm-reproducible-base.tgz] I: copying local configuration @@ -29,49 +29,81 @@ dpkg-source: info: applying Version_2_6_15pre3 I: using fakeroot in build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/1604522/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/D01_modify_environment starting +debug: Running on ionos11-amd64. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Jan 11 14:44 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='amd64' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=16 ' - DISTRIBUTION='bookworm' - HOME='/root' - HOST_ARCH='amd64' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="2" [2]="15" [3]="1" [4]="release" [5]="x86_64-pc-linux-gnu") + BASH_VERSION='5.2.15(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=amd64 + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=15 ' + DIRSTACK=() + DISTRIBUTION=bookworm + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=x86_64 + HOST_ARCH=amd64 IFS=' ' - INVOCATION_ID='a427a282a305436ca38b6a54eb5ae21d' - 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='1604522' - PS1='# ' - PS2='> ' + INVOCATION_ID=7c961de34f3d4100b2a0b0689e029377 + LANG=C + LANGUAGE=et_EE:et + LC_ALL=C + MACHTYPE=x86_64-pc-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=1484197 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.cctKaJeW/pbuilderrc_sCEH --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.cctKaJeW/b1 --logfile b1/build.log gcl_2.6.14-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' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.cctKaJeW/pbuilderrc_oenY --distribution bookworm --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bookworm-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.cctKaJeW/b2 --logfile b2/build.log gcl_2.6.14-4.dsc' + SUDO_GID=111 + SUDO_UID=106 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://78.137.99.97:3128 I: uname -a - Linux ionos5-amd64 6.5.0-0.deb12.4-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.5.10-1~bpo12+1 (2023-11-23) x86_64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-17-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.69-1 (2023-12-30) x86_64 GNU/Linux I: ls -l /bin total 5632 -rwxr-xr-x 1 root root 1265648 Apr 23 2023 bash @@ -129,15 +161,15 @@ -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 Jul 28 2023 run-parts + -rwxr-xr-x 1 root root 27560 Jul 28 23:46 run-parts -rwxr-xr-x 1 root root 126424 Jan 5 2023 sed - lrwxrwxrwx 1 root root 4 Jan 5 2023 sh -> dash + lrwxrwxrwx 1 root root 9 Jan 11 14:44 sh -> /bin/bash -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 23 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 Jul 28 2023 tempfile + -rwxr-xr-x 1 root root 14520 Jul 28 23:46 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 23 2023 ulockmgr_server @@ -157,7 +189,7 @@ -rwxr-xr-x 1 root root 2206 Apr 10 2022 zless -rwxr-xr-x 1 root root 1842 Apr 10 2022 zmore -rwxr-xr-x 1 root root 4577 Apr 10 2022 znew -I: user script /srv/workspace/pbuilder/1604522/tmp/hooks/D02_print_environment finished +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -317,7 +349,7 @@ Get: 102 http://deb.debian.org/debian bookworm/main amd64 tcl8.6-dev amd64 8.6.13+dfsg-2 [1023 kB] Get: 103 http://deb.debian.org/debian bookworm/main amd64 tk8.6 amd64 8.6.13-2 [69.4 kB] Get: 104 http://deb.debian.org/debian bookworm/main amd64 tk8.6-dev amd64 8.6.13-2 [781 kB] -Fetched 40.3 MB in 1s (61.1 MB/s) +Fetched 40.3 MB in 2s (16.7 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package tzdata. (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 ... 18148 files and directories currently installed.) @@ -653,8 +685,8 @@ Setting up tzdata (2023c-5+deb12u1) ... Current default time zone: 'Etc/UTC' -Local time is now: Wed Feb 12 20:41:50 UTC 2025. -Universal Time is now: Wed Feb 12 20:41:50 UTC 2025. +Local time is now: Thu Jan 11 14:46:23 UTC 2024. +Universal Time is now: Thu Jan 11 14:46:23 UTC 2024. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up xtrans-dev (1.4.0-1) ... @@ -761,7 +793,11 @@ fakeroot is already the newest version (1.31-1.2). 0 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. I: Building the package -I: Running cd /build/reproducible-path/gcl-2.6.14/ && 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 > ../gcl_2.6.14-4_source.changes +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for bookworm +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/gcl-2.6.14/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../gcl_2.6.14-4_source.changes dpkg-buildpackage: info: source package gcl dpkg-buildpackage: info: source version 2.6.14-4 dpkg-buildpackage: info: source distribution unstable @@ -915,7 +951,7 @@ checking working gprof... ok checking for CFLAG -pg... yes checking for makeinfo... no -checking system version (for dynamic loading)... Linux-6.5.0-0.deb12.4-amd64 +checking system version (for dynamic loading)... Linux-6.1.0-17-amd64 checking for setjmp.h... yes checking sizeof jmp_buf... 200 checking for unistd.h... yes @@ -962,22 +998,22 @@ checking finding default linker script... got it checking output_arch... bfd_arch_i386 configure: trying to adjust text start -./configure: line 7577: 1626402 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626449 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626481 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626540 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626583 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626635 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626665 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626723 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626766 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626812 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626865 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626931 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1626983 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1627023 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1627102 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1627197 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1504936 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1504992 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505053 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505118 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505168 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505228 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505295 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505364 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505429 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505489 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505545 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505597 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505650 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505719 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505771 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1505815 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 configure: min log text start 15 configure: max log text start 29 configure: lowering log text to 18000 to maximize data area @@ -3488,7 +3524,7 @@ checking working gprof... ok checking for CFLAG -pg... yes checking for makeinfo... no -checking system version (for dynamic loading)... Linux-6.5.0-0.deb12.4-amd64 +checking system version (for dynamic loading)... Linux-6.1.0-17-amd64 checking for setjmp.h... yes checking sizeof jmp_buf... 200 checking for unistd.h... yes @@ -3535,22 +3571,22 @@ checking finding default linker script... got it checking output_arch... bfd_arch_i386 configure: trying to adjust text start -./configure: line 7577: 1827967 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828034 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828092 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828137 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828201 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828278 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828310 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828341 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828390 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828427 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828462 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828493 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828528 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828559 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828608 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 1828684 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594526 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594540 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594553 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594570 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594595 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594641 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594670 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594727 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594787 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594826 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594859 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594895 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594929 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594960 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1594991 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1595007 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 configure: min log text start 15 configure: max log text start 29 configure: lowering log text to 18000 to maximize data area @@ -6076,20 +6112,20 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o. Loading binary of GCL_PCL_FIXUP... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o" -Compiling gazonk_2008388_0.lsp. +Compiling gazonk_1898539_0.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_0.o" -start address -T 0xc635d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_0.o" -Compiling gazonk_2008388_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_0.o" +start address -T 0xc635d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_0.o" +Compiling gazonk_1898539_1.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_1.o" -start address -T 0xc63ba0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_1.o" +start address -T 0xc63ba0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_1.o" start address -T 0xc63460 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o" Compiling GCL_PCL_DEFCOMBIN... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.lisp. @@ -6099,34 +6135,34 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o. Loading binary of GCL_PCL_DEFCOMBIN... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o" -Compiling gazonk_2008388_2.lsp. +Compiling gazonk_1898539_2.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_2.o" -start address -T 0xc68380 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_2.o" -Compiling gazonk_2008388_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_2.o" +start address -T 0xc68380 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_2.o" +Compiling gazonk_1898539_3.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_3.o" -start address -T 0xc69660 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_3.o" -Compiling gazonk_2008388_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_3.o" +start address -T 0xc69660 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_3.o" +Compiling gazonk_1898539_4.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_4.o" -start address -T 0xc6a4b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_4.o" -Compiling gazonk_2008388_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_4.o" +start address -T 0xc6a4b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_4.o" +Compiling gazonk_1898539_5.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_5.o" -start address -T 0xc6ad00 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_5.o" +start address -T 0xc6ad00 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_5.o" start address -T 0xc64140 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o" Compiling GCL_PCL_CTYPES... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.lisp. @@ -6136,13 +6172,13 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o. Loading binary of GCL_PCL_CTYPES... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o" -Compiling gazonk_2008388_6.lsp. +Compiling gazonk_1898539_6.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_6.o" -start address -T 0xc6bde0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_6.o" +start address -T 0xc6bde0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_6.o" start address -T 0xc6b760 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o" Compiling GCL_PCL_ENV... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.lisp. @@ -6155,13 +6191,13 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o. Loading binary of GCL_PCL_ENV... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" -Compiling gazonk_2008388_7.lsp. +Compiling gazonk_1898539_7.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_7.o" -start address -T 0xc728f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2008388_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_7.o" +start address -T 0xc728f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1898539_7.o" Warning: DESCRIBE is being redefined. start address -T 0xc6c610 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -7037,7 +7073,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0xf2cdc0 ;; Finished loading "../tkl.o" +start address -T 0xf2b930 ;; Finished loading "../tkl.o" 80944 > @@ -7309,7 +7345,7 @@ checking for gawk... no checking for nawk... nawk checking for makeinfo... no -checking system version (for dynamic loading)... Linux-6.5.0-0.deb12.4-amd64 +checking system version (for dynamic loading)... Linux-6.1.0-17-amd64 checking for setjmp.h... yes checking sizeof jmp_buf... 200 checking for unistd.h... yes @@ -7356,22 +7392,22 @@ checking finding default linker script... got it checking output_arch... bfd_arch_i386 configure: trying to adjust text start -./configure: line 7577: 2068125 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068200 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068245 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068278 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068309 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068343 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068376 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068405 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068434 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068467 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068494 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068542 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068619 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068689 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068741 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2068788 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912772 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912784 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912796 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912808 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912822 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912836 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912850 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912866 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912880 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912894 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912908 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912922 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912936 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912950 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912964 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1912978 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 configure: min log text start 15 configure: max log text start 29 configure: lowering log text to 18000 to maximize data area @@ -9867,7 +9903,7 @@ checking for gawk... no checking for nawk... nawk checking for makeinfo... no -checking system version (for dynamic loading)... Linux-6.5.0-0.deb12.4-amd64 +checking system version (for dynamic loading)... Linux-6.1.0-17-amd64 checking for setjmp.h... yes checking sizeof jmp_buf... 200 checking for unistd.h... yes @@ -9914,22 +9950,22 @@ checking finding default linker script... got it checking output_arch... bfd_arch_i386 configure: trying to adjust text start -./configure: line 7577: 2196257 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196314 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196364 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196400 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196429 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196463 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196495 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196526 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196553 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196584 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196612 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196645 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196692 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196761 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196836 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 -./configure: line 7577: 2196912 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942391 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942403 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942415 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942427 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942439 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942451 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942463 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942475 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942487 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942499 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942513 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942525 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942537 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942549 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942561 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 +./configure: line 7577: 1942573 Segmentation fault ( $CC $LDFLAGS -Wl,-T gcl.script foo.c -o foo && ./foo ) > /dev/null 2>&1 configure: min log text start 15 configure: max log text start 29 configure: lowering log text to 18000 to maximize data area @@ -12455,20 +12491,20 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o. Loading binary of GCL_PCL_FIXUP... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o" -Compiling gazonk_2313568_0.lsp. +Compiling gazonk_1968648_0.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_0.o" -start address -T 0xb5b130 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_0.o" -Compiling gazonk_2313568_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_0.o" +start address -T 0xb5b130 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_0.o" +Compiling gazonk_1968648_1.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_1.o" -start address -T 0xb5b700 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_1.o" +start address -T 0xb5b700 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_1.o" start address -T 0xb5afd0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_fixup.o" Compiling GCL_PCL_DEFCOMBIN... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.lisp. @@ -12478,34 +12514,34 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o. Loading binary of GCL_PCL_DEFCOMBIN... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o" -Compiling gazonk_2313568_2.lsp. +Compiling gazonk_1968648_2.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_2.o" -start address -T 0xb5fdf0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_2.o" -Compiling gazonk_2313568_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_2.o" +start address -T 0xb5fdf0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_2.o" +Compiling gazonk_1968648_3.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_3.o" -start address -T 0xb610f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_3.o" -Compiling gazonk_2313568_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_3.o" +start address -T 0xb610f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_3.o" +Compiling gazonk_1968648_4.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_4.o" -start address -T 0xb61f20 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_4.o" -Compiling gazonk_2313568_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_4.o" +start address -T 0xb61f20 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_4.o" +Compiling gazonk_1968648_5.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_5.o" -start address -T 0xb62780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_5.o" +start address -T 0xb62780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_5.o" start address -T 0xb5bca0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_defcombin.o" Compiling GCL_PCL_CTYPES... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.lisp. @@ -12515,13 +12551,13 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o. Loading binary of GCL_PCL_CTYPES... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o" -Compiling gazonk_2313568_6.lsp. +Compiling gazonk_1968648_6.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_6.o" -start address -T 0xb63860 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_6.o" +start address -T 0xb63860 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_6.o" start address -T 0xb631f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_ctypes.o" Compiling GCL_PCL_ENV... Compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.lisp. @@ -12534,13 +12570,13 @@ Finished compiling /build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o. Loading binary of GCL_PCL_ENV... ;; Loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" -Compiling gazonk_2313568_7.lsp. +Compiling gazonk_1968648_7.lsp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_7.o" -start address -T 0xb6a3a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2313568_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_7.o" +start address -T 0xb6a3a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1968648_7.o" Warning: DESCRIBE is being redefined. start address -T 0xb640e0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -13416,7 +13452,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0xdd3270 ;; Finished loading "../tkl.o" +start address -T 0xddd890 ;; Finished loading "../tkl.o" 80896 > @@ -13589,6 +13625,17 @@ Compiling random-aux.lsp. End of Pass 1. End of Pass 2. +OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 +Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/random-aux.o. +;; Loading #p"random-aux.o" +start address -T 0x9703c0 ;; Finished loading #p"random-aux.o" +Compiling ansi-aux.lsp. +; (DEFUN CHECK-VALUES-LENGTH ...) is being compiled. +;; Warning: The ignored variable E is used. +; (DEFUN PRINTABLE-P ...) is being compiled. +;; Warning: The variable *READ-EVAL* is not used. +End of Pass 1. +End of Pass 2. GCL (GNU Common Lisp) 2.6.14 Fri Jan 13 10:47:56 AM EST 2023 ANSI git: Version_2_6_15pre3 Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl) Binary License: GPL due to GPL'ed components: (XGCL UNEXEC) @@ -13625,18 +13672,7 @@ OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/random-aux.o. ;; Loading #p"random-aux.o" -start address -T 0xd87c30 ;; Finished loading #p"random-aux.o" -Compiling ansi-aux.lsp. -; (DEFUN CHECK-VALUES-LENGTH ...) is being compiled. -;; Warning: The ignored variable E is used. -; (DEFUN PRINTABLE-P ...) is being compiled. -;; Warning: The variable *READ-EVAL* is not used. -End of Pass 1. -End of Pass 2. -OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/random-aux.o. -;; Loading #p"random-aux.o" -start address -T 0xd87c30 ;; Finished loading #p"random-aux.o" +start address -T 0x9703c0 ;; Finished loading #p"random-aux.o" Compiling ansi-aux.lsp. ; (DEFUN CHECK-VALUES-LENGTH ...) is being compiled. ;; Warning: The ignored variable E is used. @@ -14148,7 +14184,577 @@ Form: (REMOVE-IF #'MACRO-FUNCTION *EVAL-AND-COMPILE-MACROS*) Expected value: NIL Actual value: (DEFINE-SYMBOL-MACRO). - COMPILE.1 COMPILE.2 COMPILE.3Doing 11799 pending tests of 11799 tests total. + COMPILE.1 COMPILE.2 COMPILE.3 COMPILE.4 COMPILE.5 COMPILE.6 COMPILE.7 + COMPILE.8 COMPILE.9 +Test COMPILE.ERROR.1 failed +Form: (CLASSIFY-ERROR (COMPILE)) +Expected value: PROGRAM-ERROR +Actual value: ERROR. +Test COMPILE.ERROR.2 failed +Form: (CLASSIFY-ERROR (COMPILE NIL '(LAMBDA () NIL) 'GARBAGE)) +Expected value: PROGRAM-ERROR +Actual values: # + NIL + NIL. + CONSTANTP.ERROR.1 CONSTANTP.ERROR.2 CONSTANTP.1 CONSTANTP.2 + CONSTANTP.3 CONSTANTP.4 CONSTANTP.5 +Test CONSTANTP.6 failed +Form: (CONSTANTP-MACRO CONSTANTP-TEST-SYMBOL) +Expected value: T +Actual value: #. + CONSTANTP.7 +Test CONSTANTP.8 failed +Form: (NOTNOT-MV (CONSTANTP 1 NIL)) +Expected value: T +Actual value: #. + CONSTANTP.9 CONSTANTP.10 CONSTANTP.ORDER.1 +Test CONSTANTP.ORDER.2 failed +Form: (LET ((I 0) X Y) + (VALUES (NOTNOT (CONSTANTP (PROGN (SETF X (INCF I)) 1) + (PROGN (SETF Y (INCF I)) NIL))) + I X Y)) +Expected values: T + 2 + 1 + 2 +Actual value: #. + LAMBDA.1 LAMBDA.2 LAMBDA.3 LAMBDA.4 LAMBDA.5 LAMBDA.6 LAMBDA.7 + LAMBDA.8 LAMBDA.9 LAMBDA.10 LAMBDA.MACRO.1 LAMBDA.MACRO.2 +Test DCF-FUNS failed +Form: (REMOVE-IF #'FBOUNDP *DCF-FNS*) +Expected value: NIL +Actual value: (FUNCTION-LAMBDA-EXPRESSION). +Test DCF-MACROS failed +Form: (REMOVE-IF #'MACRO-FUNCTION *DCF-MACROS*) +Expected value: NIL +Actual value: (DEFINE-SETF-EXPANDER). + SETF-ORDER SETF-ORDER.2 PUSH-ORDER PUSHNEW-ORDER PUSHNEW-ORDER.2 + REMF-ORDER INCF-ORDER DECF-ORDER SHIFTF-ORDER.1 SHIFTF-ORDER.2 + ROTATEF-ORDER.1 ROTATEF-ORDER.2 PSETF-ORDER PSETF-ORDER.2 POP-ORDER + SETF-VAR SETF-VALUES.1 SETF-VALUES.2 SETF-VALUES.3 SETF-VALUES.4 +Test SETF-VALUES.5 failed +Form: (LET ((A (VECTOR NIL NIL)) (I 0) X Y Z) + (SETF (VALUES (AREF A (PROGN (SETF X (INCF I)) 0)) + (AREF A (PROGN (SETF Y (INCF I)) 1))) + (PROGN (SETF Z (INCF I)) (VALUES 'FOO 'BAR))) + (VALUES A I X Y Z)) +Expected values: #(FOO BAR) + 3 + 1 + 2 + 3 +Actual values: #(FOO BAR) + 3 + 2 + 3 + 1. + SETF-VALUES.6 SETF-THE.1 SETF-THE.2 SETF-APPLY.1 SETF-APPLY.2 + SETF-APPLY.3 SETF-APPLY.4 SETF-EXPANDER.1 SETF-MACRO.1 SETF-MACRO.2 + SETF-MACRO.3 SETF-MACRO.4 SETF-SYMBOL-MACRO.1 SETF-SYMBOL-MACRO.2 + SETF-SYMBOL-MACRO.3 SETQ.1 SETQ.2 SETQ.3 SETQ.4 SETF.1 SETF.2 SETF.3 + SETF.4 PSETQ.1 PSETQ.2 PSETQ.3 PSETQ.4 PSETQ.5 PSETQ.6 +Test PSETQ.7 failed +Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) + (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) + (PSETQ X (AREF A (INCF I)) Y (AREF A (INCF I))) + (VALUES A I))) +Expected values: #(0 2 2 4 4 5 6 7 8 9) + 4 +Actual values: #(0 1 2 1 2 5 6 7 8 9) + 4. + PSETF.1 PSETF.2 PSETF.3 PSETF.4 PSETF.5 PSETF.6 +Test PSETF.7 failed +Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) + (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) + (PSETF X (AREF A (INCF I)) Y (AREF A (INCF I))) + (VALUES A I))) +Expected values: #(0 2 2 4 4 5 6 7 8 9) + 4 +Actual values: #(0 1 2 1 2 5 6 7 8 9) + 4. + PSETF.8 PSETF.9 AND.1 AND.2 AND.3 AND.4 AND.5 AND.6 AND.7 AND.8 AND.9 + AND.ORDER.1 AND.ORDER.2 APPLY.ERROR.1 APPLY.ERROR.2 APPLY.ERROR.3 + APPLY.ERROR.4 APPLY.1 APPLY.2 APPLY.3 APPLY.4 APPLY.5 APPLY.ORDER.1 + BLOCK.1 BLOCK.2 BLOCK.3 BLOCK.4 BLOCK.5 BLOCK.6 BLOCK.7 BLOCK.8 + BLOCK.9 BLOCK.10 CALL-ARGUMENTS-LIMIT.1 CALL-ARGUMENTS-LIMIT.2 + CALL-ARGUMENTS-LIMIT.3 CALL-ARGUMENTS-LIMIT.4 CALL-ARGUMENTS-LIMIT.5 + CASE.1 CASE.2 CASE.3 CASE.4 CASE.5 CASE.6 CASE.7 CASE.8 CASE.9 CASE.10 + CASE.11 CASE.12 CASE.13 CASE.14 CASE.15 CASE.16 CASE.17 CASE.18 + CASE.19 CASE.20 CASE.21 CASE.22 CASE.23 CASE.24 CASE.25 CASE.26 + CASE.27 CASE.28 CASE.29 CASE.30 CASE.31 CASE.32 CASE.33 CASE.34 + CATCH.1 CATCH.2 CATCH.3 CATCH.4 CATCH.5 CATCH.6 CATCH.7 CATCH.8 + CATCH.9 CATCH.10 CATCH.11 CATCH.12 +Test THROW-ERROR failed +Form: (CLASSIFY-ERROR (THROW (GENSYM) NIL)) +Expected value: CONTROL-ERROR +Actual value: ERROR. + CCASE.1 CCASE.2 CCASE.3 CCASE.4 CCASE.5 CCASE.6 CCASE.7 CCASE.8 + CCASE.9 CCASE.10 CCASE.11 CCASE.12 CCASE.13 CCASE.14 CCASE.15 CCASE.16 + CCASE.17 CCASE.19 CCASE.20 CCASE.21 CCASE.23 CCASE.25 CCASE.26 + CCASE.27 CCASE.28 CCASE.29 CCASE.30 CCASE.31 COMPILED-FUNCTION-P.1 + COMPILED-FUNCTION-P.2 COMPILED-FUNCTION-P.3 + COMPILED-FUNCTION-P.ORDER.1 COMPILED-FUNCTION-P.ERROR.1 + COMPILED-FUNCTION-P.ERROR.2 COMPLEMENT.1 COMPLEMENT.2 COMPLEMENT.3 + COMPLEMENT.4 COMPLEMENT.5 COMPLEMENT.ORDER.1 COMPLEMENT.ERROR.1 + COMPLEMENT.ERROR.2 COMPLEMENT.ERROR.3 COMPLEMENT.ERROR.4 COND.1 COND.2 + COND.3 COND.4 COND.5 COND.6 COND.7 COND.8 COND.9 COND.10 COND.11 + COND.12 COND.13 COND.14 CONSTANTLY.1 CONSTANTLY.2 CONSTANTLY.3 + CONSTANTLY.ERROR.1 CONSTANTLY.ERROR.2 CTYPECASE.1 CTYPECASE.2 + CTYPECASE.3 CTYPECASE.4 CTYPECASE.5 CTYPECASE.6 CTYPECASE.7 + CTYPECASE.8 CTYPECASE.9 CTYPECASE.10 CTYPECASE.11 CTYPECASE.12 + CTYPECASE.13 DEFCONSTANT.1 DEFCONSTANT.2 DEFCONSTANT.3 DEFCONSTANT.4 + DEFCONSTANT.5 DEFINE-MODIFY-MACRO.1 DEFINE-MODIFY-MACRO.2 + DEFINE-MODIFY-MACRO.3 DEFINE-MODIFY-MACRO.4 DEFPARAMETER.1 + DEFPARAMETER.2 DEFPARAMETER.3 DEFPARAMETER.4 DEFPARAMETER.5 DEFVAR.1 + DEFVAR.2 DEFVAR.3 DEFVAR.4 DEFVAR.5 DESTRUCTURING-BIND.1 + DESTRUCTURING-BIND.2 DESTRUCTURING-BIND.3 DESTRUCTURING-BIND.4 + DESTRUCTURING-BIND.5 DESTRUCTURING-BIND.6 DESTRUCTURING-BIND.7 + DESTRUCTURING-BIND.8 DESTRUCTURING-BIND.9 DESTRUCTURING-BIND.10 + DESTRUCTURING-BIND.11 DESTRUCTURING-BIND.12 DESTRUCTURING-BIND.13 + DESTRUCTURING-BIND.14 DESTRUCTURING-BIND.15 DESTRUCTURING-BIND.16 + DESTRUCTURING-BIND.17 DESTRUCTURING-BIND.18 ECASE.1 ECASE.2 ECASE.3 + ECASE.4 ECASE.5 ECASE.6 ECASE.7 ECASE.8 ECASE.9 ECASE.10 ECASE.11 + ECASE.12 ECASE.13 ECASE.14 ECASE.15 ECASE.16 ECASE.17 ECASE.18 + ECASE.19 ECASE.20 ECASE.21 ECASE.23 ECASE.25 ECASE.26 ECASE.27 + ECASE.28 ECASE.29 ECASE.31 ECASE.32 EQL.1 EQL.2 EQL.3 EQL.4 EQL.5 + EQL.7 EQL.8 EQL.9 EQL.10 EQL.11 EQL.ORDER.1 EQL.ERROR.1 EQL.ERROR.2 + EQL.ERROR.3 EQ.ERROR.1 EQ.ERROR.2 EQ.ERROR.3 EQUAL.1 EQUAL.2 EQUAL.3 + EQUAL.4 EQUAL.5 EQUAL.6 EQUAL.7 EQUAL.8 EQUAL.9 EQUAL.10 EQUAL.11 + EQUAL.12 EQUAL.ORDER.1 EQUAL.ERROR.1 EQUAL.ERROR.2 EQUAL.ERROR.3 + EQUALP.1 EQUALP.2 EQUALP.3 EQUALP.4 EQUALP.ORDER.1 EQUALP.ERROR.1 + EQUALP.ERROR.2 EQUALP.ERROR.3 ETYPECASE.1 ETYPECASE.2 ETYPECASE.3 + ETYPECASE.4 ETYPECASE.5 ETYPECASE.6 ETYPECASE.7 ETYPECASE.8 + ETYPECASE.9 ETYPECASE.10 ETYPECASE.11 ETYPECASE.12 EVERY.1 EVERY.2 + EVERY.3 EVERY.4 EVERY.5 EVERY.6 EVERY.7 EVERY.8 EVERY.9 EVERY.10 + EVERY.11 EVERY.12 EVERY.13 EVERY.14 EVERY.15 EVERY.16 EVERY.ORDER.1 + EVERY.ORDER.2 EVERY.ERROR.1 EVERY.ERROR.2 EVERY.ERROR.3 EVERY.ERROR.4 + EVERY.ERROR.5 EVERY.ERROR.6 EVERY.ERROR.7 EVERY.ERROR.9 EVERY.ERROR.10 + EVERY.ERROR.11 EVERY.ERROR.12 EVERY.ERROR.13 FBOUNDP.1 FBOUNDP.2 + FBOUNDP.3 FBOUNDP.4 FBOUNDP.5 +Test FBOUNDP.6 failed +Form: (NOT-MV (FBOUNDP '(SETF FBOUNDP-6-ACCESSOR))) +Expected value: NIL +Actual value: #. +Test FBOUNDP.7 failed +Form: (LET ((G (GENSYM))) (FBOUNDP (LIST 'SETF G))) +Expected value: NIL +Actual value: #. + FBOUNDP.ORDER.1 FBOUNDP.ERROR.1 FBOUNDP.ERROR.2 FBOUNDP.ERROR.3 + FBOUNDP.ERROR.4 FBOUNDP.ERROR.5 FBOUNDP.ERROR.6 +Test FDEFINITION.ERROR.1 failed +Form: (CLASSIFY-ERROR (FDEFINITION)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FDEFINITION.ERROR.2 failed +Form: (CLASSIFY-ERROR (FDEFINITION 'CONS NIL)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. + FDEFINITION.ERROR.3 +Test FDEFINITION.ERROR.4 failed +Form: (CLASSIFY-ERROR (FDEFINITION 10)) +Expected value: TYPE-ERROR +Actual value: UNDEFINED-FUNCTION. + FDEFINITION.ERROR.5 +Test FDEFINITION.ERROR.6 failed +Form: (CLASSIFY-ERROR (LOCALLY (FDEFINITION 10) T)) +Expected value: TYPE-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FDEFINITION.1 failed +Form: (LET ((FUN (FDEFINITION 'CONS))) (FUNCALL FUN 'A 'B)) +Expected value: (A . B) +Actual value: #. +Test FDEFINITION.2 failed +Form: (PROGN (FDEFINITION 'COND) :GOOD) +Expected value: :GOOD +Actual value: #. +Test FDEFINITION.3 failed +Form: (PROGN (FDEFINITION 'SETQ) :GOOD) +Expected value: :GOOD +Actual value: #. +Test FDEFINITION.4 failed +Form: (LET ((SYM (GENSYM))) + (VALUES (FBOUNDP SYM) + (PROGN + (SETF (FDEFINITION SYM) (FDEFINITION 'CONS)) + (FUNCALL (SYMBOL-FUNCTION SYM) 'A 'B)) + (NOTNOT (FBOUNDP SYM)))) +Expected values: NIL + (A . B) + T +Actual value: #. +Test FDEFINITION.5 failed +Form: (LET* ((SYM (GENSYM)) (FNAME (LIST 'SETF SYM))) + (VALUES (FBOUNDP FNAME) + (PROGN + (SETF (FDEFINITION FNAME) (FDEFINITION 'CONS)) + (EVAL (LIST 'SETF (LIST SYM ''A) ''B))) + (NOTNOT (FBOUNDP FNAME)))) +Expected values: NIL + (B . A) + T +Actual value: #. +Test FDEFINITION.ORDER.1 failed +Form: (LET ((I 0)) (FDEFINITION (PROGN (INCF I) 'SETQ)) I) +Expected value: 1 +Actual value: #. + FLET.1 FLET.2 FLET.3 FLET.4 FLET.5 FLET.6 FLET.7 FLET.8 FLET.9 FLET.10 + FLET.11 FLET.12 FLET.13 FLET.14 FLET.15 FLET.16 +Test FLET.17 failed +Form: (FLET (((SETF %F) (X Y) (SETF (CAR Y) X))) + (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) +Expected value: (A 2) +Actual value: #. + FLET.18 FLET.19 FLET.20 FLET.21 FLET.22 FLET.23 FLET.24 FLET.25 + FLET.26 FLET.27 FLET.28 FLET.29 FLET.30 FLET.31 FLET.32 FLET.33 + FLET.34 FLET.35 FLET.36 FLET.37 FLET.38 FLET.39 FLET.40 FLET.45 + FLET.46 FLET.47 FLET.48 FLET.49 FLET.50 +Test FLET.51 failed +Form: (LOOP + FOR + S + IN + *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* + FOR + FORM + = + (LIST 'CLASSIFY-ERROR + (LIST 'FLET + (LIST (LIST* (LIST 'SETF S) + '((&REST ARGS) (DECLARE (IGNORE ARGS)) + 'A))) + (LIST 'SETF (LIST S) 10))) + UNLESS + (EQ (EVAL FORM) 'A) + COLLECT + S) +Expected value: NIL +Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL + &REST &WHOLE ** *** *BREAK-ON-SIGNALS* + *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* + *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* + *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* + *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* + *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* + *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* + *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* + *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* + *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* + *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* + *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* + *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* + *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* + *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* + *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ + // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT + ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR + BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 + BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 + BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR + BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN + BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT + CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED + COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM + CONDITION CONTROL-ERROR DEBUG DECLARATION + DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON + DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT + ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR + FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM + FLOATING-POINT-INEXACT + FLOATING-POINT-INVALID-OPERATION + FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW + FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE + INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD + LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT + LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT + LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT + LEAST-NEGATIVE-SHORT-FLOAT + LEAST-NEGATIVE-SINGLE-FLOAT + LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-POSITIVE-NORMALIZED-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT + LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT + LEAST-POSITIVE-SHORT-FLOAT + LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT + LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD + METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT + MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT + MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT + MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM + MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT + MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL + NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE + PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE + PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR + READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE + SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON + SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY + SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION + SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR + SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT + SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON + SPACE SPECIAL SPEED STANDARD STANDARD-CHAR + STANDARD-CLASS STANDARD-GENERIC-FUNCTION + STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION + STREAM STREAM-ERROR STRING-STREAM STRUCTURE + STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL + SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR + UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION + UNSIGNED-BYTE VARIABLE WARNING). + FMAKUNBOUND.1 FMAKUNBOUND.2 FMAKUNBOUND.3 +Test FMAKUNBOUND.4 failed +Form: (LET* ((G (GENSYM)) (N (LIST 'SETF G))) + (AND (NOT (FBOUNDP N)) (EVAL (LIST* 'DEFUN N '(NIL NIL))) + (FBOUNDP N) + (VALUES (EQUAL (CHECK-VALUES (FMAKUNBOUND N)) N) + (FBOUNDP N)))) +Expected values: T + NIL +Actual value: #. + FMAKUNBOUND.ERROR.1 FMAKUNBOUND.ERROR.2 FMAKUNBOUND.ERROR.3 + FMAKUNBOUND.ERROR.4 FMAKUNBOUND.ERROR.5 FMAKUNBOUND.ERROR.6 FUNCALL.1 + FUNCALL.2 FUNCALL.3 FUNCALL.4 FUNCALL.5 FUNCALL.6 FUNCALL.7 FUNCALL.8 + FUNCALL.9 FUNCALL.ORDER.1 FUNCALL.ORDER.2 FUNCALL.ERROR.1 + FUNCALL.ERROR.2 +Test FUNCALL.ERROR.3 failed +Form: (CLASSIFY-ERROR (FUNCALL 'DEFCONSTANT '(DEFCONSTANT X 10))) +Expected value: UNDEFINED-FUNCTION +Actual value: PROGRAM-ERROR. + FUNCALL.ERROR.4 FUNCALL.ERROR.5 FUNCALL.ERROR.6 FUNCALL.ERROR.7 +Test FUNCTION-LAMBDA-EXPRESSION.1 failed +Form: (LENGTH (MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'CONS))) +Expected value: 3 +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.2 failed +Form: (LET ((X NIL)) + (FLET ((%F NIL X)) + (LET ((RET-VALS + (MULTIPLE-VALUE-LIST + (FUNCTION-LAMBDA-EXPRESSION #'%F)))) + (VALUES (LENGTH RET-VALS) (NOTNOT (SECOND RET-VALS)))))) +Expected values: 3 + T +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.ORDER.1 failed +Form: (LET ((I 0)) + (FUNCTION-LAMBDA-EXPRESSION (PROGN (INCF I) #'CONS)) + I) +Expected value: 1 +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.ERROR.1 failed +Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FUNCTION-LAMBDA-EXPRESSION.ERROR.2 failed +Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION #'CONS NIL)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. + FUNCTION.1 +Test FUNCTION.2 failed +Form: (TYPEP 'IDENTITY 'FUNCTION) +Expected value: NIL +Actual value: T. + FUNCTION.3 FUNCTION.4 FUNCTION.5 +Test FUNCTION.6 failed +Form: (TYPEP '(LAMBDA (X) X) 'FUNCTION) +Expected value: NIL +Actual value: T. +Test FUNCTION.7 failed +Form: (NOT-MV (TYPEP #'(SETF FUNCTION-7-ACCESSOR) 'FUNCTION)) +Expected value: NIL +Actual value: #. + FUNCTION.8 FUNCTION.9 +Test FUNCTION.10 failed +Form: (LOOP + FOR + X + IN + *UNIVERSE* + WHEN + (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) + (TYPEP X 'ARRAY)) + (TYPEP X 'FUNCTION)) + COLLECT + X) +Expected value: NIL +Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). + FUNCTION.11 FUNCTION.12 FUNCTION.13 FUNCTIONP.1 +Test FUNCTIONP.2 failed +Form: (FUNCTIONP 'IDENTITY) +Expected value: NIL +Actual value: T. + FUNCTIONP.3 FUNCTIONP.4 FUNCTIONP.5 +Test FUNCTIONP.6 failed +Form: (FUNCTIONP '(LAMBDA (X) X)) +Expected value: NIL +Actual value: T. +Test FUNCTIONP.7 failed +Form: (NOT-MV (FUNCTIONP #'(SETF FUNCTIONP-7-ACCESSOR))) +Expected value: NIL +Actual value: #. + FUNCTIONP.8 FUNCTIONP.9 +Test FUNCTIONP.10 failed +Form: (LOOP + FOR + X + IN + *UNIVERSE* + WHEN + (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) + (TYPEP X 'ARRAY)) + (FUNCTIONP X)) + COLLECT + X) +Expected value: NIL +Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). + FUNCTIONP.11 FUNCTIONP.12 FUNCTIONP.ORDER.1 FUNCTIONP.ERROR.1 + FUNCTIONP.ERROR.2 GET-SETF-EXPANSION.ERROR.1 + GET-SETF-EXPANSION.ERROR.2 IDENTITY.1 IDENTITY.2 IDENTITY.3 + IDENTITY.ORDER.1 IDENTITY.ERROR.1 IDENTITY.ERROR.2 IF.1 IF.2 IF.3 IF.4 + IF.5 IF.6 IF.7 IF.ORDER.1 LABELS.1 LABELS.2 LABELS.3 LABELS.4 LABELS.5 + LABELS.6 LABELS.7 LABELS.8 LABELS.9 LABELS.10 LABELS.11 LABELS.12 + LABELS.13 LABELS.14 LABELS.15 LABELS.16 +Test LABELS.17 failed +Form: (LABELS (((SETF %F) (X Y) (SETF (CAR Y) X))) + (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) +Expected value: (A 2) +Actual value: #. + LABELS.7B LABELS.18 LABELS.19 LABELS.20 LABELS.21 LABELS.22 LABELS.23 + LABELS.24 LABELS.25 +Test LABELS.26 failed +Form: (LOOP + FOR + S + IN + *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* + FOR + FORM + = + (LIST 'CLASSIFY-ERROR + (LIST 'LABELS + (LIST (LIST* (LIST 'SETF S) + '((&REST ARGS) (DECLARE (IGNORE ARGS)) + 'A))) + (LIST 'SETF (LIST S) 10))) + UNLESS + (EQ (EVAL FORM) 'A) + COLLECT + S) +Expected value: NIL +Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL + &REST &WHOLE ** *** *BREAK-ON-SIGNALS* + *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* + *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* + *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* + *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* + *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* + *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* + *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* + *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* + *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* + *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* + *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* + *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* + *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* + *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* + *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ + // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT + ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR + BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 + BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 + BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR + BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN + BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT + CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED + COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM + CONDITION CONTROL-ERROR DEBUG DECLARATION + DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON + DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT + ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR + FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM + FLOATING-POINT-INEXACT + FLOATING-POINT-INVALID-OPERATION + FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW + FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE + INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD + LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT + LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT + LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT + LEAST-NEGATIVE-SHORT-FLOAT + LEAST-NEGATIVE-SINGLE-FLOAT + LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-POSITIVE-NORMALIZED-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT + LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT + LEAST-POSITIVE-SHORT-FLOAT + LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT + LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD + METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT + MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT + MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT + MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM + MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT + MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL + NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE + PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE + PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR + READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE + SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON + SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY + SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION + SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR + SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT + SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON + SPACE SPECIAL SPEED STANDARD STANDARD-CHAR + STANDARD-CLASS STANDARD-GENERIC-FUNCTION + STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION + STREAM STREAM-ERROR STRING-STREAM STRUCTURE + STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL + SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR + UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION + UNSIGNED-BYTE VARIABLE WARNING). + LAMBDA-LIST-KEYWORDS.1 LAMBDA-LIST-KEYWORDS.2 LAMBDA-LIST-KEYWORDS.3 + LAMBDA-LIST-KEYWORDS.4 LAMBDA-LIST-KEYWORDS.5 + LAMBDA-PARAMETERS-LIMIT.1 LAMBDA-PARAMETERS-LIMIT.2 LET.1 LET.2 LET.3 + LET.4 LET.5 LET.6 LET.7 LET.9 LET.11 LET.14 LET.15 LET*.1 LET*.2 + LET*.3 LET*.4 LET*.5 LET*.6 LET*.7 LET*.8 LET*.9 LET*.10 LET*.11 + LET*.12 LET*.14 LET*.15 MACROLET.1 MACROLET.2 MACROLET.3 MACROLET.4 +Test MACROLET.5 failed +Form: (LET ((X NIL)) + (MACROLET + ((%M ((&WHOLE W ARG)) + (LIST 'PROGN (LIST 'SETQ 'X (LIST 'QUOTE W)) ARG))) + (VALUES (%M (1)) X))) +Expected values: 1 + (1) +Actual value: #. + MACROLET.6 MACROLET.7 MACROLET.8 MACROLET.9 MACROLET.10 MACROLET.11 + MACROLET.12 +Test MACROLET.13 failed +Form: (SYMBOL-MACROLET ((A B)) + (MACROLET + ((FOO (X &ENVIRONMENT ENV) + (LET ((Y (MACROEXPAND X ENV))) (IF (EQ Y 'A) 1 2)))) + (FOO A))) +Expected value: 2 +Actual value: 1. +Test MACROLET.14 failed +Form: (SYMBOL-MACROLET ((A B)) + (MACROLET + ((FOO (X &ENVIRONMENT ENV) + (LET ((Y (MACROEXPAND-1 X ENV))) + (IF (EQ Y 'A) 1 2)))) + (FOO A))) +Expected value: 2 +Actual value: 1. + MACROLET.15 MACROLET.16Doing 11799 pending tests of 11799 tests total. SYMBOL-&ALLOW-OTHER-KEYS SYMBOL-&AUX SYMBOL-&BODY SYMBOL-&ENVIRONMENT SYMBOL-&KEY SYMBOL-&OPTIONAL SYMBOL-&REST SYMBOL-&WHOLE SYMBOL-* SYMBOL-** SYMBOL-*** SYMBOL-*BREAK-ON-SIGNALS* @@ -14893,7 +15499,9 @@ *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* - *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* + SYMBOL-MACROLET.1 MULTIPLE-VALUE-BIND.1 + MULTIPLE-VALUE-BIND.2 MULTIPLE-VALUE-BIND.3 MULTIPLE-VALUE-BIND.4 + MULTIPLE-VALUE-BIND.5 MULTIPLE-VALUE-BIND.6 MULTIPLE-VALUE-BIND.7 *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* @@ -16302,579 +16910,77 @@ INTERSECTION.ERROR.10 NINTERSECTION.1 NINTERSECTION.2 NINTERSECTION.3 NINTERSECTION.4 NINTERSECTION.5 NINTERSECTION.6 NINTERSECTION.7 NINTERSECTION.8 NINTERSECTION.9 NINTERSECTION.9-A NINTERSECTION.9-B - NINTERSECTION.10 NINTERSECTION.11 COMPILE.4 COMPILE.5 COMPILE.6 COMPILE.7 - COMPILE.8 COMPILE.9 -Test COMPILE.ERROR.1 failed -Form: (CLASSIFY-ERROR (COMPILE)) -Expected value: PROGRAM-ERROR -Actual value: ERROR. -Test COMPILE.ERROR.2 failed -Form: (CLASSIFY-ERROR (COMPILE NIL '(LAMBDA () NIL) 'GARBAGE)) -Expected value: PROGRAM-ERROR -Actual values: # - NIL - NIL. - CONSTANTP.ERROR.1 CONSTANTP.ERROR.2 CONSTANTP.1 CONSTANTP.2 - CONSTANTP.3 CONSTANTP.4 CONSTANTP.5 -Test CONSTANTP.6 failed -Form: (CONSTANTP-MACRO CONSTANTP-TEST-SYMBOL) -Expected value: T -Actual value: #. - CONSTANTP.7 -Test CONSTANTP.8 failed -Form: (NOTNOT-MV (CONSTANTP 1 NIL)) -Expected value: T -Actual value: #. - CONSTANTP.9 CONSTANTP.10 CONSTANTP.ORDER.1 -Test CONSTANTP.ORDER.2 failed -Form: (LET ((I 0) X Y) - (VALUES (NOTNOT (CONSTANTP (PROGN (SETF X (INCF I)) 1) - (PROGN (SETF Y (INCF I)) NIL))) - I X Y)) -Expected values: T - 2 - 1 - 2 -Actual value: #. - LAMBDA.1 LAMBDA.2 LAMBDA.3 LAMBDA.4 LAMBDA.5 LAMBDA.6 LAMBDA.7 - LAMBDA.8 LAMBDA.9 LAMBDA.10 LAMBDA.MACRO.1 LAMBDA.MACRO.2 -Test DCF-FUNS failed -Form: (REMOVE-IF #'FBOUNDP *DCF-FNS*) -Expected value: NIL -Actual value: (FUNCTION-LAMBDA-EXPRESSION). -Test DCF-MACROS failed -Form: (REMOVE-IF #'MACRO-FUNCTION *DCF-MACROS*) -Expected value: NIL -Actual value: (DEFINE-SETF-EXPANDER). - SETF-ORDER SETF-ORDER.2 PUSH-ORDER PUSHNEW-ORDER PUSHNEW-ORDER.2 - REMF-ORDER INCF-ORDER DECF-ORDER SHIFTF-ORDER.1 SHIFTF-ORDER.2 - ROTATEF-ORDER.1 ROTATEF-ORDER.2 PSETF-ORDER PSETF-ORDER.2 POP-ORDER - SETF-VAR SETF-VALUES.1 SETF-VALUES.2 SETF-VALUES.3 SETF-VALUES.4 -Test SETF-VALUES.5 failed -Form: (LET ((A (VECTOR NIL NIL)) (I 0) X Y Z) - (SETF (VALUES (AREF A (PROGN (SETF X (INCF I)) 0)) - (AREF A (PROGN (SETF Y (INCF I)) 1))) - (PROGN (SETF Z (INCF I)) (VALUES 'FOO 'BAR))) - (VALUES A I X Y Z)) -Expected values: #(FOO BAR) - 3 - 1 - 2 - 3 -Actual values: #(FOO BAR) - 3 - 2 - 3 - 1. - SETF-VALUES.6 SETF-THE.1 SETF-THE.2 SETF-APPLY.1 SETF-APPLY.2 - SETF-APPLY.3 SETF-APPLY.4 SETF-EXPANDER.1 SETF-MACRO.1 SETF-MACRO.2 - SETF-MACRO.3 SETF-MACRO.4 SETF-SYMBOL-MACRO.1 SETF-SYMBOL-MACRO.2 - SETF-SYMBOL-MACRO.3 SETQ.1 SETQ.2 SETQ.3 SETQ.4 SETF.1 SETF.2 SETF.3 - SETF.4 PSETQ.1 PSETQ.2 PSETQ.3 PSETQ.4 PSETQ.5 PSETQ.6 -Test PSETQ.7 failed -Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) - (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) - (PSETQ X (AREF A (INCF I)) Y (AREF A (INCF I))) - (VALUES A I))) -Expected values: #(0 2 2 4 4 5 6 7 8 9) - 4 -Actual values: #(0 1 2 1 2 5 6 7 8 9) - 4. - PSETF.1 PSETF.2 PSETF.3 PSETF.4 PSETF.5 PSETF.6 -Test PSETF.7 failed -Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) - (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) - (PSETF X (AREF A (INCF I)) Y (AREF A (INCF I))) - (VALUES A I))) -Expected values: #(0 2 2 4 4 5 6 7 8 9) - 4 -Actual values: #(0 1 2 1 2 5 6 7 8 9) - 4. - PSETF.8 PSETF.9 AND.1 AND.2 AND.3 AND.4 AND.5 AND.6 AND.7 AND.8 AND.9 - AND.ORDER.1 AND.ORDER.2 APPLY.ERROR.1 APPLY.ERROR.2 APPLY.ERROR.3 - APPLY.ERROR.4 APPLY.1 APPLY.2 APPLY.3 APPLY.4 APPLY.5 APPLY.ORDER.1 - BLOCK.1 BLOCK.2 BLOCK.3 BLOCK.4 BLOCK.5 BLOCK.6 BLOCK.7 BLOCK.8 - BLOCK.9 BLOCK.10 CALL-ARGUMENTS-LIMIT.1 CALL-ARGUMENTS-LIMIT.2 - CALL-ARGUMENTS-LIMIT.3 CALL-ARGUMENTS-LIMIT.4 CALL-ARGUMENTS-LIMIT.5 - CASE.1 CASE.2 CASE.3 CASE.4 CASE.5 CASE.6 CASE.7 CASE.8 CASE.9 CASE.10 - CASE.11 CASE.12 CASE.13 CASE.14 CASE.15 CASE.16 CASE.17 CASE.18 - CASE.19 CASE.20 CASE.21 CASE.22 CASE.23 CASE.24 CASE.25 CASE.26 - CASE.27 CASE.28 CASE.29 CASE.30 CASE.31 CASE.32 CASE.33 CASE.34 - CATCH.1 CATCH.2 CATCH.3 CATCH.4 CATCH.5 CATCH.6 CATCH.7 CATCH.8 - CATCH.9 CATCH.10 CATCH.11 CATCH.12 -Test THROW-ERROR failed -Form: (CLASSIFY-ERROR (THROW (GENSYM) NIL)) -Expected value: CONTROL-ERROR -Actual value: ERROR. - CCASE.1 CCASE.2 CCASE.3 CCASE.4 CCASE.5 CCASE.6 CCASE.7 CCASE.8 - CCASE.9 CCASE.10 CCASE.11 CCASE.12 CCASE.13 CCASE.14 CCASE.15 CCASE.16 - CCASE.17 CCASE.19 CCASE.20 CCASE.21 CCASE.23 CCASE.25 CCASE.26 - CCASE.27 CCASE.28 CCASE.29 CCASE.30 CCASE.31 COMPILED-FUNCTION-P.1 - COMPILED-FUNCTION-P.2 COMPILED-FUNCTION-P.3 - COMPILED-FUNCTION-P.ORDER.1 COMPILED-FUNCTION-P.ERROR.1 - COMPILED-FUNCTION-P.ERROR.2 COMPLEMENT.1 COMPLEMENT.2 COMPLEMENT.3 - COMPLEMENT.4 COMPLEMENT.5 COMPLEMENT.ORDER.1 COMPLEMENT.ERROR.1 - COMPLEMENT.ERROR.2 COMPLEMENT.ERROR.3 COMPLEMENT.ERROR.4 COND.1 COND.2 - COND.3 COND.4 COND.5 COND.6 COND.7 COND.8 COND.9 COND.10 COND.11 - COND.12 COND.13 COND.14 CONSTANTLY.1 CONSTANTLY.2 CONSTANTLY.3 - CONSTANTLY.ERROR.1 CONSTANTLY.ERROR.2 CTYPECASE.1 CTYPECASE.2 - CTYPECASE.3 CTYPECASE.4 CTYPECASE.5 CTYPECASE.6 CTYPECASE.7 - CTYPECASE.8 CTYPECASE.9 CTYPECASE.10 CTYPECASE.11 CTYPECASE.12 - CTYPECASE.13 DEFCONSTANT.1 DEFCONSTANT.2 DEFCONSTANT.3 DEFCONSTANT.4 - DEFCONSTANT.5 DEFINE-MODIFY-MACRO.1 DEFINE-MODIFY-MACRO.2 - DEFINE-MODIFY-MACRO.3 DEFINE-MODIFY-MACRO.4 DEFPARAMETER.1 - DEFPARAMETER.2 DEFPARAMETER.3 DEFPARAMETER.4 DEFPARAMETER.5 DEFVAR.1 - DEFVAR.2 DEFVAR.3 DEFVAR.4 DEFVAR.5 DESTRUCTURING-BIND.1 - DESTRUCTURING-BIND.2 DESTRUCTURING-BIND.3 DESTRUCTURING-BIND.4 - DESTRUCTURING-BIND.5 DESTRUCTURING-BIND.6 DESTRUCTURING-BIND.7 - DESTRUCTURING-BIND.8 DESTRUCTURING-BIND.9 DESTRUCTURING-BIND.10 - DESTRUCTURING-BIND.11 DESTRUCTURING-BIND.12 DESTRUCTURING-BIND.13 - DESTRUCTURING-BIND.14 DESTRUCTURING-BIND.15 DESTRUCTURING-BIND.16 - DESTRUCTURING-BIND.17 DESTRUCTURING-BIND.18 ECASE.1 ECASE.2 ECASE.3 - ECASE.4 ECASE.5 ECASE.6 ECASE.7 ECASE.8 ECASE.9 ECASE.10 ECASE.11 - ECASE.12 ECASE.13 ECASE.14 ECASE.15 ECASE.16 ECASE.17 ECASE.18 - ECASE.19 ECASE.20 ECASE.21 ECASE.23 ECASE.25 ECASE.26 ECASE.27 - ECASE.28 ECASE.29 ECASE.31 ECASE.32 EQL.1 EQL.2 EQL.3 EQL.4 EQL.5 - EQL.7 EQL.8 EQL.9 EQL.10 EQL.11 EQL.ORDER.1 EQL.ERROR.1 EQL.ERROR.2 - EQL.ERROR.3 EQ.ERROR.1 EQ.ERROR.2 EQ.ERROR.3 EQUAL.1 EQUAL.2 EQUAL.3 - EQUAL.4 EQUAL.5 EQUAL.6 EQUAL.7 EQUAL.8 EQUAL.9 EQUAL.10 EQUAL.11 - EQUAL.12 EQUAL.ORDER.1 EQUAL.ERROR.1 EQUAL.ERROR.2 EQUAL.ERROR.3 - EQUALP.1 EQUALP.2 EQUALP.3 EQUALP.4 EQUALP.ORDER.1 EQUALP.ERROR.1 - EQUALP.ERROR.2 EQUALP.ERROR.3 ETYPECASE.1 ETYPECASE.2 ETYPECASE.3 - ETYPECASE.4 ETYPECASE.5 ETYPECASE.6 ETYPECASE.7 ETYPECASE.8 - ETYPECASE.9 ETYPECASE.10 ETYPECASE.11 ETYPECASE.12 EVERY.1 EVERY.2 - EVERY.3 EVERY.4 EVERY.5 EVERY.6 EVERY.7 EVERY.8 EVERY.9 EVERY.10 - EVERY.11 EVERY.12 EVERY.13 EVERY.14 EVERY.15 EVERY.16 EVERY.ORDER.1 - EVERY.ORDER.2 EVERY.ERROR.1 EVERY.ERROR.2 EVERY.ERROR.3 EVERY.ERROR.4 - EVERY.ERROR.5 EVERY.ERROR.6 EVERY.ERROR.7 EVERY.ERROR.9 EVERY.ERROR.10 - EVERY.ERROR.11 EVERY.ERROR.12 EVERY.ERROR.13 FBOUNDP.1 FBOUNDP.2 - FBOUNDP.3 FBOUNDP.4 FBOUNDP.5 -Test FBOUNDP.6 failed -Form: (NOT-MV (FBOUNDP '(SETF FBOUNDP-6-ACCESSOR))) -Expected value: NIL -Actual value: #. -Test FBOUNDP.7 failed -Form: (LET ((G (GENSYM))) (FBOUNDP (LIST 'SETF G))) -Expected value: NIL -Actual value: #. - FBOUNDP.ORDER.1 FBOUNDP.ERROR.1 FBOUNDP.ERROR.2 FBOUNDP.ERROR.3 - FBOUNDP.ERROR.4 FBOUNDP.ERROR.5 FBOUNDP.ERROR.6 -Test FDEFINITION.ERROR.1 failed -Form: (CLASSIFY-ERROR (FDEFINITION)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FDEFINITION.ERROR.2 failed -Form: (CLASSIFY-ERROR (FDEFINITION 'CONS NIL)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. - FDEFINITION.ERROR.3 -Test FDEFINITION.ERROR.4 failed -Form: (CLASSIFY-ERROR (FDEFINITION 10)) -Expected value: TYPE-ERROR -Actual value: UNDEFINED-FUNCTION. - FDEFINITION.ERROR.5 -Test FDEFINITION.ERROR.6 failed -Form: (CLASSIFY-ERROR (LOCALLY (FDEFINITION 10) T)) -Expected value: TYPE-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FDEFINITION.1 failed -Form: (LET ((FUN (FDEFINITION 'CONS))) (FUNCALL FUN 'A 'B)) -Expected value: (A . B) -Actual value: #. -Test FDEFINITION.2 failed -Form: (PROGN (FDEFINITION 'COND) :GOOD) -Expected value: :GOOD -Actual value: #. -Test FDEFINITION.3 failed -Form: (PROGN (FDEFINITION 'SETQ) :GOOD) -Expected value: :GOOD -Actual value: #. -Test FDEFINITION.4 failed -Form: (LET ((SYM (GENSYM))) - (VALUES (FBOUNDP SYM) - (PROGN - (SETF (FDEFINITION SYM) (FDEFINITION 'CONS)) - (FUNCALL (SYMBOL-FUNCTION SYM) 'A 'B)) - (NOTNOT (FBOUNDP SYM)))) -Expected values: NIL - (A . B) - T -Actual value: #. -Test FDEFINITION.5 failed -Form: (LET* ((SYM (GENSYM)) (FNAME (LIST 'SETF SYM))) - (VALUES (FBOUNDP FNAME) - (PROGN - (SETF (FDEFINITION FNAME) (FDEFINITION 'CONS)) - (EVAL (LIST 'SETF (LIST SYM ''A) ''B))) - (NOTNOT (FBOUNDP FNAME)))) -Expected values: NIL - (B . A) - T -Actual value: #. -Test FDEFINITION.ORDER.1 failed -Form: (LET ((I 0)) (FDEFINITION (PROGN (INCF I) 'SETQ)) I) -Expected value: 1 -Actual value: #. - FLET.1 FLET.2 FLET.3 FLET.4 FLET.5 FLET.6 FLET.7 FLET.8 FLET.9 FLET.10 - FLET.11 FLET.12 FLET.13 FLET.14 FLET.15 FLET.16 -Test FLET.17 failed -Form: (FLET (((SETF %F) (X Y) (SETF (CAR Y) X))) - (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) -Expected value: (A 2) -Actual value: #. - FLET.18 FLET.19 FLET.20 FLET.21 FLET.22 FLET.23 FLET.24 FLET.25 - FLET.26 FLET.27 FLET.28 FLET.29 FLET.30 FLET.31 FLET.32 FLET.33 - FLET.34 FLET.35 FLET.36 FLET.37 FLET.38 FLET.39 FLET.40 FLET.45 - FLET.46 FLET.47 FLET.48 FLET.49 FLET.50 -Test FLET.51 failed -Form: (LOOP - FOR - S - IN - *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* - FOR - FORM - = - (LIST 'CLASSIFY-ERROR - (LIST 'FLET - (LIST (LIST* (LIST 'SETF S) - '((&REST ARGS) (DECLARE (IGNORE ARGS)) - 'A))) - (LIST 'SETF (LIST S) 10))) - UNLESS - (EQ (EVAL FORM) 'A) - COLLECT - S) -Expected value: NIL -Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL - &REST &WHOLE ** *** *BREAK-ON-SIGNALS* - *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* - *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* - *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* - *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* - *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* - *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* - *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* - *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* - *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* - *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* - *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* - *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* - *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* - *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* - *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ - // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT - ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR - BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 - BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 - BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR - BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN - BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT - CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED - COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM - CONDITION CONTROL-ERROR DEBUG DECLARATION - DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON - DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT - ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR - FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM - FLOATING-POINT-INEXACT - FLOATING-POINT-INVALID-OPERATION - FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW - FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE - INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD - LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT - LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT - LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT - LEAST-NEGATIVE-SHORT-FLOAT - LEAST-NEGATIVE-SINGLE-FLOAT - LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-POSITIVE-NORMALIZED-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT - LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT - LEAST-POSITIVE-SHORT-FLOAT - LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT - LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD - METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT - MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT - MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT - MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM - MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT - MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL - NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE - PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE - PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR - READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE - SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON - SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY - SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION - SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR - SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT - SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON - SPACE SPECIAL SPEED STANDARD STANDARD-CHAR - STANDARD-CLASS STANDARD-GENERIC-FUNCTION - STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION - STREAM STREAM-ERROR STRING-STREAM STRUCTURE - STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL - SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR - UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION - UNSIGNED-BYTE VARIABLE WARNING). - FMAKUNBOUND.1 FMAKUNBOUND.2 FMAKUNBOUND.3 -Test FMAKUNBOUND.4 failed -Form: (LET* ((G (GENSYM)) (N (LIST 'SETF G))) - (AND (NOT (FBOUNDP N)) (EVAL (LIST* 'DEFUN N '(NIL NIL))) - (FBOUNDP N) - (VALUES (EQUAL (CHECK-VALUES (FMAKUNBOUND N)) N) - (FBOUNDP N)))) -Expected values: T - NIL -Actual value: #. - FMAKUNBOUND.ERROR.1 FMAKUNBOUND.ERROR.2 FMAKUNBOUND.ERROR.3 - FMAKUNBOUND.ERROR.4 FMAKUNBOUND.ERROR.5 FMAKUNBOUND.ERROR.6 FUNCALL.1 - FUNCALL.2 FUNCALL.3 FUNCALL.4 FUNCALL.5 FUNCALL.6 FUNCALL.7 FUNCALL.8 - FUNCALL.9 FUNCALL.ORDER.1 FUNCALL.ORDER.2 FUNCALL.ERROR.1 - FUNCALL.ERROR.2 -Test FUNCALL.ERROR.3 failed -Form: (CLASSIFY-ERROR (FUNCALL 'DEFCONSTANT '(DEFCONSTANT X 10))) -Expected value: UNDEFINED-FUNCTION -Actual value: PROGRAM-ERROR. - FUNCALL.ERROR.4 FUNCALL.ERROR.5 FUNCALL.ERROR.6 FUNCALL.ERROR.7 -Test FUNCTION-LAMBDA-EXPRESSION.1 failed -Form: (LENGTH (MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'CONS))) -Expected value: 3 -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.2 failed -Form: (LET ((X NIL)) - (FLET ((%F NIL X)) - (LET ((RET-VALS - (MULTIPLE-VALUE-LIST - (FUNCTION-LAMBDA-EXPRESSION #'%F)))) - (VALUES (LENGTH RET-VALS) (NOTNOT (SECOND RET-VALS)))))) -Expected values: 3 - T -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.ORDER.1 failed -Form: (LET ((I 0)) - (FUNCTION-LAMBDA-EXPRESSION (PROGN (INCF I) #'CONS)) - I) -Expected value: 1 -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.ERROR.1 failed -Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FUNCTION-LAMBDA-EXPRESSION.ERROR.2 failed -Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION #'CONS NIL)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. - FUNCTION.1 -Test FUNCTION.2 failed -Form: (TYPEP 'IDENTITY 'FUNCTION) -Expected value: NIL -Actual value: T. - FUNCTION.3 FUNCTION.4 FUNCTION.5 -Test FUNCTION.6 failed -Form: (TYPEP '(LAMBDA (X) X) 'FUNCTION) -Expected value: NIL -Actual value: T. -Test FUNCTION.7 failed -Form: (NOT-MV (TYPEP #'(SETF FUNCTION-7-ACCESSOR) 'FUNCTION)) -Expected value: NIL -Actual value: #. - FUNCTION.8 FUNCTION.9 -Test FUNCTION.10 failed -Form: (LOOP - FOR - X - IN - *UNIVERSE* - WHEN - (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) - (TYPEP X 'ARRAY)) - (TYPEP X 'FUNCTION)) - COLLECT - X) -Expected value: NIL -Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). - FUNCTION.11 FUNCTION.12 FUNCTION.13 FUNCTIONP.1 -Test FUNCTIONP.2 failed -Form: (FUNCTIONP 'IDENTITY) -Expected value: NIL -Actual value: T. - FUNCTIONP.3 FUNCTIONP.4 FUNCTIONP.5 -Test FUNCTIONP.6 failed -Form: (FUNCTIONP '(LAMBDA (X) X)) -Expected value: NIL -Actual value: T. -Test FUNCTIONP.7 failed -Form: (NOT-MV (FUNCTIONP #'(SETF FUNCTIONP-7-ACCESSOR))) -Expected value: NIL -Actual value: #. - FUNCTIONP.8 FUNCTIONP.9 -Test FUNCTIONP.10 failed -Form: (LOOP - FOR - X - IN - *UNIVERSE* - WHEN - (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) - (TYPEP X 'ARRAY)) - (FUNCTIONP X)) - COLLECT - X) -Expected value: NIL -Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). - FUNCTIONP.11 FUNCTIONP.12 FUNCTIONP.ORDER.1 FUNCTIONP.ERROR.1 - FUNCTIONP.ERROR.2 GET-SETF-EXPANSION.ERROR.1 - GET-SETF-EXPANSION.ERROR.2 IDENTITY.1 IDENTITY.2 IDENTITY.3 - IDENTITY.ORDER.1 IDENTITY.ERROR.1 IDENTITY.ERROR.2 IF.1 IF.2 IF.3 IF.4 - IF.5 IF.6 IF.7 IF.ORDER.1 LABELS.1 LABELS.2 LABELS.3 LABELS.4 LABELS.5 - LABELS.6 LABELS.7 LABELS.8 LABELS.9 LABELS.10 LABELS.11 LABELS.12 - LABELS.13 LABELS.14 LABELS.15 LABELS.16 -Test LABELS.17 failed -Form: (LABELS (((SETF %F) (X Y) (SETF (CAR Y) X))) - (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) -Expected value: (A 2) -Actual value: #. - LABELS.7B LABELS.18 LABELS.19 LABELS.20 LABELS.21 LABELS.22 LABELS.23 - LABELS.24 LABELS.25 -Test LABELS.26 failed -Form: (LOOP - FOR - S - IN - *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* - FOR - FORM - = - (LIST 'CLASSIFY-ERROR - (LIST 'LABELS - (LIST (LIST* (LIST 'SETF S) - '((&REST ARGS) (DECLARE (IGNORE ARGS)) - 'A))) - (LIST 'SETF (LIST S) 10))) - UNLESS - (EQ (EVAL FORM) 'A) - COLLECT - S) -Expected value: NIL -Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL - &REST &WHOLE ** *** *BREAK-ON-SIGNALS* - *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* - *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* - *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* - *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* - *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* - *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* - *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* - *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* - *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* - *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* - *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* - *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* - *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* - *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* - *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ - // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT - ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR - BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 - BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 - BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR - BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN - BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT - CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED - COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM - CONDITION CONTROL-ERROR DEBUG DECLARATION - DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON - DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT - ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR - FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM - FLOATING-POINT-INEXACT - FLOATING-POINT-INVALID-OPERATION - FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW - FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE - INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD - LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT - LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT - LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT - LEAST-NEGATIVE-SHORT-FLOAT - LEAST-NEGATIVE-SINGLE-FLOAT - LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-POSITIVE-NORMALIZED-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT - LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT - LEAST-POSITIVE-SHORT-FLOAT - LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT - LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD - METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT - MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT - MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT - MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM - MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT - MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL - NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE - PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE - PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR - READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE - SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON - SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY - SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION - SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR - SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT - SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON - SPACE SPECIAL SPEED STANDARD STANDARD-CHAR - STANDARD-CLASS STANDARD-GENERIC-FUNCTION - STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION - STREAM STREAM-ERROR STRING-STREAM STRUCTURE - STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL - SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR - UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION - UNSIGNED-BYTE VARIABLE WARNING). - LAMBDA-LIST-KEYWORDS.1 LAMBDA-LIST-KEYWORDS.2 LAMBDA-LIST-KEYWORDS.3 - LAMBDA-LIST-KEYWORDS.4 LAMBDA-LIST-KEYWORDS.5 - LAMBDA-PARAMETERS-LIMIT.1 LAMBDA-PARAMETERS-LIMIT.2 LET.1 LET.2 LET.3 - LET.4 LET.5 LET.6 LET.7 LET.9 LET.11 LET.14 LET.15 LET*.1 LET*.2 - LET*.3 LET*.4 LET*.5 LET*.6 LET*.7 LET*.8 LET*.9 LET*.10 LET*.11 - LET*.12 LET*.14 LET*.15 MACROLET.1 MACROLET.2 MACROLET.3 MACROLET.4 -Test MACROLET.5 failed -Form: (LET ((X NIL)) - (MACROLET - ((%M ((&WHOLE W ARG)) - (LIST 'PROGN (LIST 'SETQ 'X (LIST 'QUOTE W)) ARG))) - (VALUES (%M (1)) X))) -Expected values: 1 - (1) -Actual value: #. - MACROLET.6 MACROLET.7 MACROLET.8 MACROLET.9 MACROLET.10 MACROLET.11 - MACROLET.12 -Test MACROLET.13 failed -Form: (SYMBOL-MACROLET ((A B)) - (MACROLET - ((FOO (X &ENVIRONMENT ENV) - (LET ((Y (MACROEXPAND X ENV))) (IF (EQ Y 'A) 1 2)))) - (FOO A))) -Expected value: 2 -Actual value: 1. -Test MACROLET.14 failed -Form: (SYMBOL-MACROLET ((A B)) - (MACROLET - ((FOO (X &ENVIRONMENT ENV) - (LET ((Y (MACROEXPAND-1 X ENV))) - (IF (EQ Y 'A) 1 2)))) - (FOO A))) -Expected value: 2 -Actual value: 1. - MACROLET.15 MACROLET.16 SYMBOL-MACROLET.1 MULTIPLE-VALUE-BIND.1 - MULTIPLE-VALUE-BIND.2 MULTIPLE-VALUE-BIND.3 MULTIPLE-VALUE-BIND.4 - MULTIPLE-VALUE-BIND.5 MULTIPLE-VALUE-BIND.6 MULTIPLE-VALUE-BIND.7 + NINTERSECTION.10 NINTERSECTION.11 NINTERSECTION.12 NINTERSECTION.13 + NINTERSECTION.14 NINTERSECTION.15 NINTERSECTION.16 NINTERSECTION.17 + NINTERSECTION.18 NINTERSECTION.ORDER.1 NINTERSECTION.ORDER.2 + NINTERSECTION.ORDER.3 NINTERSECTION.ORDER.4 NINTERSECTION.ORDER.5 + NINTERSECTION.ALLOW-OTHER-KEYS.1 NINTERSECTION.ALLOW-OTHER-KEYS.2 + NINTERSECTION.ALLOW-OTHER-KEYS.3 NINTERSECTION.ALLOW-OTHER-KEYS.4 + NINTERSECTION.ALLOW-OTHER-KEYS.5 NINTERSECTION.ALLOW-OTHER-KEYS.6 + NINTERSECTION.ALLOW-OTHER-KEYS.7 NINTERSECTION.KEYWORDS.8 + NINTERSECTION.ALLOW-OTHER-KEYS.9 NINTERSECTION.ERROR.1 + NINTERSECTION.ERROR.2 NINTERSECTION.ERROR.3 NINTERSECTION.ERROR.4 + NINTERSECTION.ERROR.5 NINTERSECTION.ERROR.6 NINTERSECTION.ERROR.7 + NINTERSECTION.ERROR.8 NINTERSECTION.ERROR.9 NINTERSECTION.ERROR.10 + UNION.1 UNION.2 UNION.3 UNION-4 UNION.5 UNION.6 UNION.6-A UNION.7 + UNION.8 UNION.9 UNION.10 UNION.11 UNION.12 UNION.13 UNION.14 UNION.15 + UNION.16 UNION.17 UNION.18 UNION.19 UNION.20 UNION.21 UNION.22 + UNION.23 UNION.24 UNION.25 UNION.26 UNION.27 UNION.28 UNION.29 + UNION.30 UNION.31 UNION.ORDER.1 UNION.ORDER.2 UNION.ORDER.3 + UNION.ALLOW-OTHER-KEYS.1 UNION.ALLOW-OTHER-KEYS.2 + UNION.ALLOW-OTHER-KEYS.3 UNION.ALLOW-OTHER-KEYS.4 + UNION.ALLOW-OTHER-KEYS.5 UNION.ALLOW-OTHER-KEYS.6 + UNION.ALLOW-OTHER-KEYS.7 UNION.KEYWORDS.9 UNION.ERROR.1 UNION.ERROR.2 + UNION.ERROR.3 UNION.ERROR.4 UNION.ERROR.5 UNION.ERROR.6 UNION.ERROR.7 + UNION.ERROR.8 UNION.ERROR.9 UNION.ERROR.10 NUNION.1 NUNION.2 NUNION.3 + NUNION.4 NUNION.5 NUNION.6 NUNION.6-A NUNION.7 NUNION.8 NUNION.9 + NUNION.10 NUNION.11 NUNION.12 NUNION.13 NUNION.14 NUNION.15 NUNION.16 + NUNION.17 NUNION.18 NUNION.19 NUNION.20 NUNION.21 NUNION.22 NUNION.23 + NUNION.24 NUNION.25 NUNION.26 NUNION.27 NUNION.28 NUNION.29 NUNION.30 + NUNION.31 NUNION.ORDER.1 NUNION.ORDER.2 NUNION.ORDER.3 + NUNION.ALLOW-OTHER-KEYS.1 NUNION.ALLOW-OTHER-KEYS.2 + NUNION.ALLOW-OTHER-KEYS.3 NUNION.ALLOW-OTHER-KEYS.4 + NUNION.ALLOW-OTHER-KEYS.5 NUNION.ALLOW-OTHER-KEYS.6 + NUNION.ALLOW-OTHER-KEYS.7 NUNION.KEYWORDS.9 NUNION.ERROR.1 + NUNION.ERROR.2 NUNION.ERROR.3 NUNION.ERROR.4 NUNION.ERROR.5 + NUNION.ERROR.6 NUNION.ERROR.7 NUNION.ERROR.8 NUNION.ERROR.9 + NUNION.ERROR.10 SET-DIFFERENCE.1 SET-DIFFERENCE.2 SET-DIFFERENCE.3 + SET-DIFFERENCE.4 SET-DIFFERENCE.5 SET-DIFFERENCE.6 SET-DIFFERENCE.7 + SET-DIFFERENCE.8 SET-DIFFERENCE.9 SET-DIFFERENCE.10 SET-DIFFERENCE.11 + SET-DIFFERENCE.12 SET-DIFFERENCE.13 SET-DIFFERENCE.14 + SET-DIFFERENCE.15 SET-DIFFERENCE.16 SET-DIFFERENCE.17 + SET-DIFFERENCE.18 SET-DIFFERENCE.19 SET-DIFFERENCE.ORDER.1 + SET-DIFFERENCE.ORDER.2 SET-DIFFERENCE.ORDER.3 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.1 SET-DIFFERENCE.ALLOW-OTHER-KEYS.2 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.3 SET-DIFFERENCE.ALLOW-OTHER-KEYS.4 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.5 SET-DIFFERENCE.ALLOW-OTHER-KEYS.6 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.7 SET-DIFFERENCE.KEYWORDS.8 + SET-DIFFERENCE.KEYWORDS.9 SET-DIFFERENCE.ERROR.1 + SET-DIFFERENCE.ERROR.2 SET-DIFFERENCE.ERROR.3 SET-DIFFERENCE.ERROR.4 + SET-DIFFERENCE.ERROR.5 SET-DIFFERENCE.ERROR.6 SET-DIFFERENCE.ERROR.7 + SET-DIFFERENCE.ERROR.8 SET-DIFFERENCE.ERROR.9 SET-DIFFERENCE.ERROR.10 + NSET-DIFFERENCE.1 NSET-DIFFERENCE.2 NSET-DIFFERENCE.3 + NSET-DIFFERENCE.4 NSET-DIFFERENCE.5 NSET-DIFFERENCE.6 + NSET-DIFFERENCE.7 NSET-DIFFERENCE.8 NSET-DIFFERENCE.9 + NSET-DIFFERENCE.10 NSET-DIFFERENCE.11 NSET-DIFFERENCE.12 + NSET-DIFFERENCE.13 NSET-DIFFERENCE.14 NSET-DIFFERENCE.15 + NSET-DIFFERENCE.16 NSET-DIFFERENCE.17 NSET-DIFFERENCE.18 + NSET-DIFFERENCE.19 NSET-DIFFERENCE.ORDER.1 NSET-DIFFERENCE.ORDER.2 + NSET-DIFFERENCE.ORDER.3 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.1 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.2 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.3 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.4 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.5 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.6 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.7 + NSET-DIFFERENCE.KEYWORDS.8 NSET-DIFFERENCE.KEYWORDS.9 + NSET-DIFFERENCE.ERROR.1 NSET-DIFFERENCE.ERROR.2 + NSET-DIFFERENCE.ERROR.3 NSET-DIFFERENCE.ERROR.4 + NSET-DIFFERENCE.ERROR.5 NSET-DIFFERENCE.ERROR.6 + NSET-DIFFERENCE.ERROR.7 NSET-DIFFERENCE.ERROR.8 + NSET-DIFFERENCE.ERROR.9 NSET-DIFFERENCE.ERROR.10 SET-EXCLUSIVE-OR.1 + SET-EXCLUSIVE-OR.2 SET-EXCLUSIVE-OR.3 SET-EXCLUSIVE-OR.4 + SET-EXCLUSIVE-OR.5 SET-EXCLUSIVE-OR.6 SET-EXCLUSIVE-OR.7 + SET-EXCLUSIVE-OR.7-A SET-EXCLUSIVE-OR.8 SET-EXCLUSIVE-OR.8-A + SET-EXCLUSIVE-OR.8-B SET-EXCLUSIVE-OR.9 SET-EXCLUSIVE-OR.10 + SET-EXCLUSIVE-OR.11 SET-EXCLUSIVE-OR.12 MULTIPLE-VALUE-CALL.1 MULTIPLE-VALUE-CALL.2 MULTIPLE-VALUE-CALL.3 MULTIPLE-VALUE-LIST.1 MULTIPLE-VALUE-LIST.2 MULTIPLE-VALUE-LIST.3 MULTIPLE-VALUE-LIST.4 MULTIPLE-VALUE-PROG1.1 MULTIPLE-VALUE-PROG1.2 @@ -18036,76 +18142,6 @@ SET-EXCLUSIVE-OR.5 SET-EXCLUSIVE-OR.6 SET-EXCLUSIVE-OR.7 SET-EXCLUSIVE-OR.7-A SET-EXCLUSIVE-OR.8 SET-EXCLUSIVE-OR.8-A SET-EXCLUSIVE-OR.8-B SET-EXCLUSIVE-OR.9 SET-EXCLUSIVE-OR.10 - SET-EXCLUSIVE-OR.11 SET-EXCLUSIVE-OR.12 NINTERSECTION.12 NINTERSECTION.13 - NINTERSECTION.14 NINTERSECTION.15 NINTERSECTION.16 NINTERSECTION.17 - NINTERSECTION.18 NINTERSECTION.ORDER.1 NINTERSECTION.ORDER.2 - NINTERSECTION.ORDER.3 NINTERSECTION.ORDER.4 NINTERSECTION.ORDER.5 - NINTERSECTION.ALLOW-OTHER-KEYS.1 NINTERSECTION.ALLOW-OTHER-KEYS.2 - NINTERSECTION.ALLOW-OTHER-KEYS.3 NINTERSECTION.ALLOW-OTHER-KEYS.4 - NINTERSECTION.ALLOW-OTHER-KEYS.5 NINTERSECTION.ALLOW-OTHER-KEYS.6 - NINTERSECTION.ALLOW-OTHER-KEYS.7 NINTERSECTION.KEYWORDS.8 - NINTERSECTION.ALLOW-OTHER-KEYS.9 NINTERSECTION.ERROR.1 - NINTERSECTION.ERROR.2 NINTERSECTION.ERROR.3 NINTERSECTION.ERROR.4 - NINTERSECTION.ERROR.5 NINTERSECTION.ERROR.6 NINTERSECTION.ERROR.7 - NINTERSECTION.ERROR.8 NINTERSECTION.ERROR.9 NINTERSECTION.ERROR.10 - UNION.1 UNION.2 UNION.3 UNION-4 UNION.5 UNION.6 UNION.6-A UNION.7 - UNION.8 UNION.9 UNION.10 UNION.11 UNION.12 UNION.13 UNION.14 UNION.15 - UNION.16 UNION.17 UNION.18 UNION.19 UNION.20 UNION.21 UNION.22 - UNION.23 UNION.24 UNION.25 UNION.26 UNION.27 UNION.28 UNION.29 - UNION.30 UNION.31 UNION.ORDER.1 UNION.ORDER.2 UNION.ORDER.3 - UNION.ALLOW-OTHER-KEYS.1 UNION.ALLOW-OTHER-KEYS.2 - UNION.ALLOW-OTHER-KEYS.3 UNION.ALLOW-OTHER-KEYS.4 - UNION.ALLOW-OTHER-KEYS.5 UNION.ALLOW-OTHER-KEYS.6 - UNION.ALLOW-OTHER-KEYS.7 UNION.KEYWORDS.9 UNION.ERROR.1 UNION.ERROR.2 - UNION.ERROR.3 UNION.ERROR.4 UNION.ERROR.5 UNION.ERROR.6 UNION.ERROR.7 - UNION.ERROR.8 UNION.ERROR.9 UNION.ERROR.10 NUNION.1 NUNION.2 NUNION.3 - NUNION.4 NUNION.5 NUNION.6 NUNION.6-A NUNION.7 NUNION.8 NUNION.9 - NUNION.10 NUNION.11 NUNION.12 NUNION.13 NUNION.14 NUNION.15 NUNION.16 - NUNION.17 NUNION.18 NUNION.19 NUNION.20 NUNION.21 NUNION.22 NUNION.23 - NUNION.24 NUNION.25 NUNION.26 NUNION.27 NUNION.28 NUNION.29 NUNION.30 - NUNION.31 NUNION.ORDER.1 NUNION.ORDER.2 NUNION.ORDER.3 - NUNION.ALLOW-OTHER-KEYS.1 NUNION.ALLOW-OTHER-KEYS.2 - NUNION.ALLOW-OTHER-KEYS.3 NUNION.ALLOW-OTHER-KEYS.4 - NUNION.ALLOW-OTHER-KEYS.5 NUNION.ALLOW-OTHER-KEYS.6 - NUNION.ALLOW-OTHER-KEYS.7 NUNION.KEYWORDS.9 NUNION.ERROR.1 - NUNION.ERROR.2 NUNION.ERROR.3 NUNION.ERROR.4 NUNION.ERROR.5 - NUNION.ERROR.6 NUNION.ERROR.7 NUNION.ERROR.8 NUNION.ERROR.9 - NUNION.ERROR.10 SET-DIFFERENCE.1 SET-DIFFERENCE.2 SET-DIFFERENCE.3 - SET-DIFFERENCE.4 SET-DIFFERENCE.5 SET-DIFFERENCE.6 SET-DIFFERENCE.7 - SET-DIFFERENCE.8 SET-DIFFERENCE.9 SET-DIFFERENCE.10 SET-DIFFERENCE.11 - SET-DIFFERENCE.12 SET-DIFFERENCE.13 SET-DIFFERENCE.14 - SET-DIFFERENCE.15 SET-DIFFERENCE.16 SET-DIFFERENCE.17 - SET-DIFFERENCE.18 SET-DIFFERENCE.19 SET-DIFFERENCE.ORDER.1 - SET-DIFFERENCE.ORDER.2 SET-DIFFERENCE.ORDER.3 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.1 SET-DIFFERENCE.ALLOW-OTHER-KEYS.2 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.3 SET-DIFFERENCE.ALLOW-OTHER-KEYS.4 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.5 SET-DIFFERENCE.ALLOW-OTHER-KEYS.6 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.7 SET-DIFFERENCE.KEYWORDS.8 - SET-DIFFERENCE.KEYWORDS.9 SET-DIFFERENCE.ERROR.1 - SET-DIFFERENCE.ERROR.2 SET-DIFFERENCE.ERROR.3 SET-DIFFERENCE.ERROR.4 - SET-DIFFERENCE.ERROR.5 SET-DIFFERENCE.ERROR.6 SET-DIFFERENCE.ERROR.7 - SET-DIFFERENCE.ERROR.8 SET-DIFFERENCE.ERROR.9 SET-DIFFERENCE.ERROR.10 - NSET-DIFFERENCE.1 NSET-DIFFERENCE.2 NSET-DIFFERENCE.3 - NSET-DIFFERENCE.4 NSET-DIFFERENCE.5 NSET-DIFFERENCE.6 - NSET-DIFFERENCE.7 NSET-DIFFERENCE.8 NSET-DIFFERENCE.9 - NSET-DIFFERENCE.10 NSET-DIFFERENCE.11 NSET-DIFFERENCE.12 - NSET-DIFFERENCE.13 NSET-DIFFERENCE.14 NSET-DIFFERENCE.15 - NSET-DIFFERENCE.16 NSET-DIFFERENCE.17 NSET-DIFFERENCE.18 - NSET-DIFFERENCE.19 NSET-DIFFERENCE.ORDER.1 NSET-DIFFERENCE.ORDER.2 - NSET-DIFFERENCE.ORDER.3 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.1 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.2 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.3 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.4 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.5 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.6 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.7 - NSET-DIFFERENCE.KEYWORDS.8 NSET-DIFFERENCE.KEYWORDS.9 - NSET-DIFFERENCE.ERROR.1 NSET-DIFFERENCE.ERROR.2 - NSET-DIFFERENCE.ERROR.3 NSET-DIFFERENCE.ERROR.4 - NSET-DIFFERENCE.ERROR.5 NSET-DIFFERENCE.ERROR.6 - NSET-DIFFERENCE.ERROR.7 NSET-DIFFERENCE.ERROR.8 - NSET-DIFFERENCE.ERROR.9 NSET-DIFFERENCE.ERROR.10 SET-EXCLUSIVE-OR.1 - SET-EXCLUSIVE-OR.2 SET-EXCLUSIVE-OR.3 SET-EXCLUSIVE-OR.4 - SET-EXCLUSIVE-OR.5 SET-EXCLUSIVE-OR.6 SET-EXCLUSIVE-OR.7 - SET-EXCLUSIVE-OR.7-A SET-EXCLUSIVE-OR.8 SET-EXCLUSIVE-OR.8-A - SET-EXCLUSIVE-OR.8-B SET-EXCLUSIVE-OR.9 SET-EXCLUSIVE-OR.10 SET-EXCLUSIVE-OR.11 SET-EXCLUSIVE-OR.12 SET-EXCLUSIVE-OR.13 SET-EXCLUSIVE-OR.14 SET-EXCLUSIVE-OR.15 SET-EXCLUSIVE-OR.16 SET-EXCLUSIVE-OR.17 SET-EXCLUSIVE-OR.17-A SET-EXCLUSIVE-OR.18 @@ -19448,10 +19484,10 @@ #(1.0S0 2.0S0 3.0S0 4.0S0 5.0S0) #(1.0 2.0 3.0 4.0 5.0) #(1.0 2.0 3.0 4.0 5.0) #(1.0 2.0 3.0 4.0 5.0) - # - # - # - # #p"foo" #p"foo" + # + # + # + # #p"foo" #p"foo" #p"bar" #p"foo.txt" #p"bar.txt" #p"xyz.txt" #p"" #p"*" #p".txt" #p"*.txt" #p"*.txt" #p"*.ABC" #p"/**/" #p".*" #p"" #p"" # @@ -19468,7 +19504,7 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$8274793858516829865384597175971772227133950640997578176290330719261226959108646543306246175836863476167335277087991403469633976890733038645429199565767234533757015548143838992790802792191126266352002291064641708800536854581700032354451467107389600792299064963721671338418397721438039478319884950468152832144482160115342201026254063804916183242077664701606219513049834570105295323644445031305809431796237198735904061165877173280580466098051990495765024965515842048826740099664466293551958176341447375894605539296697989654548062317114364092320666437217224800986308090710823133833106038502803333676086147129219321690468259687646996339136472270485048958393223479944520623961790310176058519742902217507662811571410892141193494444797730499704975353223025822312635587208522581976569493552277471813365572210628177883484820136572313444556771200567981761625976751504732911119892387751370561554996098624296232850446983599234209369089631897169393138058990110565549900987225216626746437923250601513392626805538138406975022367979990932397780084629772987614633997597699365467612731997255348182615342496012293602372840540577109059437373534821458654933822190772379261697998441384946341779782374141772051721931621093187980547789669777660792993665088813925647304343786226020532659751740614261590022757105758057045407881383299736457352904837017134882487604402109128625794557787103823212071521559124764138726459978992302404729356717937353707869271546374961457424000610140786632095259087858856571853476528215909438326608516982906020986862813447837298806980295195961116778069188520115174046222865537549607100060112251939618563957243098654598993488163300202269658005271563489591172967941475889063177678820144569137822668075025329491392731931551927243750269790331892643675474632850596025599688283506662070115805862711677056690633071580393878905376433106144690793836408286650328225233097236659206924091515988198638321657122412092225881342129223980644250315192959496480384334343876576154725440131711010170189111623234360952116796470699723191893604273556859002692649620769503313002050801456000929039844987722508659190196326000922847319497912565944817155791536832967645571253741814667794737446575865107344680507374217914596056440533978530529882044067950804102781017667237440780476731196103149058878162367585248689501729372644494453581339011936093213251034833632352935490261538813779729764762185934327314363134723057606436671133205016008152139511176704937251321038377211969439216339592432801062726539026386478377857892785149789939295201395872779908485760392000006215997136093735470065097168891886259091378160979533387251261499100784231929998732088774261299654821424487693850268192805654800963596684478826557052174782971095663733263717361648307380340807895605899886083126897685856602083145709617584405753873747272103488032173143883194778325271340340642204566269519560918656548314745397748214555828043314302904938388413356595475070788499674682060727090746964153156485749967771128272415803040215464758909527353727739486087703190005126832843935220178307883409659568447457308959791440673252428632308145205079439641920030350466265139260913693701664010361756374041209430118744614823330869230907793595957906605130464356037050918338901394107754916531006230081529432994421040654015354081128971935113944088129716521491183513196164892791226101547759924174518911429602712691884347092505608276290744471965808783700119418898891090256130511172365191036102328825325639202774848326821610594823151413043867187442931844354659139260336839109193751724112151700326669203425355817540724773608402414231168657697353987040956541696692238107278827889209599949667694113290827678126750617052376275467651048827252140700683515963467508456431801269353745354062440918633654004098257680859848846253240795927817534454319982562656749200303021193130903854820264357818586665170055147445390744484612666709562287449835181329438471911964935714242869438701573504858232579183001720444487386958606238688587924540002490025034798754164674629184570937802669301986610923741799663501470297069590698531663427559879743681964681130647544697096649280422010730682183531709937431804669690018549312488813510557120393074211546948170327143579657639560977119030731923211054808325128574023932811204482013673603350844188371430552694067139998264040481830771167356500390030904049995518479392531431010888220425474171200387351838584559372797460600736585377874805752429087879155652298581096585958609958548443496070596094310411619877249704344785552032883402752853613243698961656253665921109600978924046531909148373112070787311651852164965354488187410878063497564300869671446411340755666406028756752329455579561485688724693463916710111414771799880525061515330370862560000300719420797625985251099675744788133930722381414316286870415140597420843150697547627461418538298826934689673258718969814590976236229734545578318119433487854586857651383094779278794559337862667616242607967296144675104408577870401583640824143836343665811889910368652787126980430407999048928090749014945001599964898220339262286568536431497828186447817202033472497777054387427053775984713020081365622036967918186461956411570157124086600838258911657913994615057694787300911913189392634944693959616744000993463458812785158543950572998395942143889156163661918692683099626068372851294254880697142270484375102414320573444175253921005544078429549692309548517025819234911073217595327673161520514284779869030408904068902088590094901370709124732587603230557332020957110007930447576792819338680963307409358767025587234363896703826168797831166522270381232750274442245544230835354613717276827745979747455758745493402785244965956706381175656673973078764465660331878488033248853050013187509978001440777674293898239929121915745132464124682990630354770581749292396556466852148312506473218706830277358891039456415613789304396951396634489538763318526595703820406628143279727243785488755773698984017004121117291143248353110695931012296786756634484236402915354951479939816835095746053183289478517031856823681680523952127878159109134487985978899249184371281272310173). + #$50827403365640577427893425033165009777279930525822003258438547218489054835703977671259486341127668368092372134300724066399151731821572045600606065474735418423277348538197675260636932424414214111429409970008379205160149480405577526283670232312777204808371043541507443805410330089506290256355262503087193378718769814767869700149236992426621794809251403147772863569505861801879270533639823795824184030744991975361023173228798716306741125088309806915716499660208671005992745629246389453089074482577457754305085714510510348719566367887306531156194378849505936588287989321356588836167396834245299838897942366631832055245892217710461376971222359645069742056279953947689760366367131444038909339447640352746966580735879167395094855548159186536384732173590969506477891132437679527427731154289328339866326595544878677731659275125208440809346696045727029830542712961509250396659696064863287220316174856046143980430983446572168433370982665821765298732937430043284543506501512262824149674811211702354400362120372403298300540378140707757480043405030809112154465497415388835494307103983985942579145225330494297329374895799318756200696022264212288844426975938274171015273848835951199560918745337098782560475111400162769364395069438687339931763862978798157856885970855829446542006542244490935845367066981090027171622859055823743614606791543143037693765911742033223373315570436936796720536226065781097253866832469012503224952927679010097384858327346619432170032217301266163485067829481360346371853647963738162007936999189073751550195942381943605021107601808064752877221096179606404963237415946173570260219535373266243797233951745085105425469139767154626937054039161567206939765838893950567048297424958344159115554939672537769296443843922021745908758688101656654838267345792725574818928056672124794908936376439774104534808134101316547503432244381048411172582326030905483695589641260403574608438786277121086922955982069676312275496972690574032658008064597815144571519004720534757867312871156949256960698085629889078140091861272476789909772854506641340387345797448891599857037266032989600959662871187222899219170451513590001473744985933243403875178781609818717805010778493174052610841427864543382822419707573732687348134774271985937074045748584602620385405087328353584626408111159852978097805962382285639569346791804968613227377840121914004535454122765014504344042939178298271796780289304335668960183683999756571737998210243821928958894098702524471849360451032599033220178091257095882264999338344804529176532854802272314746601649779116834958623834865543951956960037298519588748297159784799597824040603771917423087100867454969383720195196762409463636452666259099444356139312488721452064902233812933630542091679966597467994124030003132992148565319460447916490401886307514663831543842650116073896848413833177400561216120815883681248836330310310872936895035310461235727047071130908245952808182167617444295542260155410283323708070536541734277182493400955164078185187169002053072953620214323279041158180182620423452911690313887575486338008403320325477857437004979734402876204128475900804787124559725142504738566958896730211068562359826692321362566060791002631125410818717334980633369460389283557906071281540659087110959484969902681252873733190316038366232920783209655849530841822407547255225955251707798562278776422300310854878410166507553590859724437423578914375266032416128261306187695548163795386120794494881988068929903329860180610375383888429153257453750917778278180787704852982027692268526394628278142725526142476284774260503224111731491659236570449138949794133758299539171775283752627172131965195971411658293057336806167580207637971127105719190324064904888489806181782559724401624684576011893961000699184762600420187727322711157204504355683912901939182262945277510440088900985698457203162893075612460157946405081486437390524974991684754212704404035889484658599162967306805082184573158068614320174151232349450731332266455619873164097880677058977711107054446492828264792556180827637288764997270306124503890274115851150067276253577413802397244457766065651791626984856701167335934416347474635171527204518643314522294620505151194093811997075763763926257239367824307162450732425675687438690152878689362967614972767631933279105928035451630097343931004219408523124853300555151017500349545698520281921335017903369675875718376495230558616843595276048577585967986909202623274717314768131749389386936106225713033723097683404734717602043222347230910635084156163578701116700261083528109851639589068054234592500112071000158932474329691482379213559453350312897324614999141743671781457152241624655990496628795817509150470410196166640549547253563604409343831736550255822450851923506721539202200609162050159609771677280790629281774379745635906341674308073049053120177577538798733873138056091798290384097063979226543295611683121814442994204675457582395670576461850869362838406496249303786916021925496788107415430615373912867985623806345570746060001912211845234034636967288738235534982352194309557320683390769587272311959384348269805014242298328742281504221348746542279738186593517403345976693811507635729334703087492619271636179042572321186709366206733489955162449742038681658452420449512392575364362197428554678145000340367120905346196542457623313580430854441766941326405067073992839460544906124259265185927115197701202770475445661719329324551651735878119020431154468763910506843001585217275288881018965575525323040146027325211339733312945706830624731724041823601044713945799738688327891621699905431869873726720563058759162780849945855474090666497076832006965058456434942919104362541526756385021265169285250607687300376829838903395612022213712676352455811809955094785422631896191419185790731953158545971505613655088037807118533222318805270254275698879286044366044235714074985014629781409565735579289535166062068789992056601292514984264998025822404927755492248715908856783411534472041011616383916335798622621229136927269147051224525047215199982688433657827705666849260020182640783097647097717791038550589058332668226886104204614159718970321185661898969641). UPGRADED-ARRAY-ELEMENT-TYPE.ERROR.1 UPGRADED-ARRAY-ELEMENT-TYPE.ERROR.2 VECTOR.TYPE.1 VECTOR.TYPE.2 VECTOR.TYPE.3 VECTOR.TYPE.4 VECTOR.TYPE.5 VECTOR.TYPE.6 VECTOR.TYPE.7 @@ -19800,34 +19836,6 @@ Package #<"CONDITIONS" package> Package #<"SLOT-ACCESSOR-NAME" package> Package #<"PCL" package> -Package #<"ITERATE" package> -Package #<"WALKER" package> -Package #<"XLIB" package> -Package #<"CLTL1-COMPAT" package> -Package #<"FPE" package> -Package #<"TK" package> -Package #<"DEFPACKAGE" package> -Package #<"ANSI-LOOP" package> -Package #<"SLOOP" package> -Package #<"COMPILER" package> -Package #<"SYSTEM" package> -Package #<"KEYWORD" package> -Package #<"COMMON-LISP-USER" package> -Package #<"COMMON-LISP" package> - WITH-PACKAGE-ITERATOR.13Package #<"MPE11" package> -Package #<"TEST-DPE2" package> -Package #<"LOOP.16.PACKAGE" package> -Package #<"LOOP.15.PACKAGE" package> -Package #<"STRUCT-TEST-PACKAGE" package> -Package #<"DS4" package> -Package #<"DS3" package> -Package #<"DS2" package> -Package #<"DS1" package> -Package #<"B" package> -Package #<"A" package> -Package #<"LOOP.CL-TEST.2" package> -Package #<"LOOP.CL-TEST.1" package> -Package #<"CL-TEST" package> SET-EXCLUSIVE-OR.13 SET-EXCLUSIVE-OR.14 SET-EXCLUSIVE-OR.15 SET-EXCLUSIVE-OR.16 SET-EXCLUSIVE-OR.17 SET-EXCLUSIVE-OR.17-A SET-EXCLUSIVE-OR.18 @@ -21170,10 +21178,10 @@ #(1.0S0 2.0S0 3.0S0 4.0S0 5.0S0) #(1.0 2.0 3.0 4.0 5.0) #(1.0 2.0 3.0 4.0 5.0) #(1.0 2.0 3.0 4.0 5.0) - # - # - # - # #p"foo" #p"foo" + # + # + # + # #p"foo" #p"foo" #p"bar" #p"foo.txt" #p"bar.txt" #p"xyz.txt" #p"" #p"*" #p".txt" #p"*.txt" #p"*.txt" #p"*.ABC" #p"/**/" #p".*" #p"" #p"" # @@ -21190,7 +21198,7 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$8274793858516829865384597175971772227133950640997578176290330719261226959108646543306246175836863476167335277087991403469633976890733038645429199565767234533757015548143838992790802792191126266352002291064641708800536854581700032354451467107389600792299064963721671338418397721438039478319884950468152832144482160115342201026254063804916183242077664701606219513049834570105295323644445031305809431796237198735904061165877173280580466098051990495765024965515842048826740099664466293551958176341447375894605539296697989654548062317114364092320666437217224800986308090710823133833106038502803333676086147129219321690468259687646996339136472270485048958393223479944520623961790310176058519742902217507662811571410892141193494444797730499704975353223025822312635587208522581976569493552277471813365572210628177883484820136572313444556771200567981761625976751504732911119892387751370561554996098624296232850446983599234209369089631897169393138058990110565549900987225216626746437923250601513392626805538138406975022367979990932397780084629772987614633997597699365467612731997255348182615342496012293602372840540577109059437373534821458654933822190772379261697998441384946341779782374141772051721931621093187980547789669777660792993665088813925647304343786226020532659751740614261590022757105758057045407881383299736457352904837017134882487604402109128625794557787103823212071521559124764138726459978992302404729356717937353707869271546374961457424000610140786632095259087858856571853476528215909438326608516982906020986862813447837298806980295195961116778069188520115174046222865537549607100060112251939618563957243098654598993488163300202269658005271563489591172967941475889063177678820144569137822668075025329491392731931551927243750269790331892643675474632850596025599688283506662070115805862711677056690633071580393878905376433106144690793836408286650328225233097236659206924091515988198638321657122412092225881342129223980644250315192959496480384334343876576154725440131711010170189111623234360952116796470699723191893604273556859002692649620769503313002050801456000929039844987722508659190196326000922847319497912565944817155791536832967645571253741814667794737446575865107344680507374217914596056440533978530529882044067950804102781017667237440780476731196103149058878162367585248689501729372644494453581339011936093213251034833632352935490261538813779729764762185934327314363134723057606436671133205016008152139511176704937251321038377211969439216339592432801062726539026386478377857892785149789939295201395872779908485760392000006215997136093735470065097168891886259091378160979533387251261499100784231929998732088774261299654821424487693850268192805654800963596684478826557052174782971095663733263717361648307380340807895605899886083126897685856602083145709617584405753873747272103488032173143883194778325271340340642204566269519560918656548314745397748214555828043314302904938388413356595475070788499674682060727090746964153156485749967771128272415803040215464758909527353727739486087703190005126832843935220178307883409659568447457308959791440673252428632308145205079439641920030350466265139260913693701664010361756374041209430118744614823330869230907793595957906605130464356037050918338901394107754916531006230081529432994421040654015354081128971935113944088129716521491183513196164892791226101547759924174518911429602712691884347092505608276290744471965808783700119418898891090256130511172365191036102328825325639202774848326821610594823151413043867187442931844354659139260336839109193751724112151700326669203425355817540724773608402414231168657697353987040956541696692238107278827889209599949667694113290827678126750617052376275467651048827252140700683515963467508456431801269353745354062440918633654004098257680859848846253240795927817534454319982562656749200303021193130903854820264357818586665170055147445390744484612666709562287449835181329438471911964935714242869438701573504858232579183001720444487386958606238688587924540002490025034798754164674629184570937802669301986610923741799663501470297069590698531663427559879743681964681130647544697096649280422010730682183531709937431804669690018549312488813510557120393074211546948170327143579657639560977119030731923211054808325128574023932811204482013673603350844188371430552694067139998264040481830771167356500390030904049995518479392531431010888220425474171200387351838584559372797460600736585377874805752429087879155652298581096585958609958548443496070596094310411619877249704344785552032883402752853613243698961656253665921109600978924046531909148373112070787311651852164965354488187410878063497564300869671446411340755666406028756752329455579561485688724693463916710111414771799880525061515330370862560000300719420797625985251099675744788133930722381414316286870415140597420843150697547627461418538298826934689673258718969814590976236229734545578318119433487854586857651383094779278794559337862667616242607967296144675104408577870401583640824143836343665811889910368652787126980430407999048928090749014945001599964898220339262286568536431497828186447817202033472497777054387427053775984713020081365622036967918186461956411570157124086600838258911657913994615057694787300911913189392634944693959616744000993463458812785158543950572998395942143889156163661918692683099626068372851294254880697142270484375102414320573444175253921005544078429549692309548517025819234911073217595327673161520514284779869030408904068902088590094901370709124732587603230557332020957110007930447576792819338680963307409358767025587234363896703826168797831166522270381232750274442245544230835354613717276827745979747455758745493402785244965956706381175656673973078764465660331878488033248853050013187509978001440777674293898239929121915745132464124682990630354770581749292396556466852148312506473218706830277358891039456415613789304396951396634489538763318526595703820406628143279727243785488755773698984017004121117291143248353110695931012296786756634484236402915354951479939816835095746053183289478517031856823681680523952127878159109134487985978899249184371281272310173). + #$50827403365640577427893425033165009777279930525822003258438547218489054835703977671259486341127668368092372134300724066399151731821572045600606065474735418423277348538197675260636932424414214111429409970008379205160149480405577526283670232312777204808371043541507443805410330089506290256355262503087193378718769814767869700149236992426621794809251403147772863569505861801879270533639823795824184030744991975361023173228798716306741125088309806915716499660208671005992745629246389453089074482577457754305085714510510348719566367887306531156194378849505936588287989321356588836167396834245299838897942366631832055245892217710461376971222359645069742056279953947689760366367131444038909339447640352746966580735879167395094855548159186536384732173590969506477891132437679527427731154289328339866326595544878677731659275125208440809346696045727029830542712961509250396659696064863287220316174856046143980430983446572168433370982665821765298732937430043284543506501512262824149674811211702354400362120372403298300540378140707757480043405030809112154465497415388835494307103983985942579145225330494297329374895799318756200696022264212288844426975938274171015273848835951199560918745337098782560475111400162769364395069438687339931763862978798157856885970855829446542006542244490935845367066981090027171622859055823743614606791543143037693765911742033223373315570436936796720536226065781097253866832469012503224952927679010097384858327346619432170032217301266163485067829481360346371853647963738162007936999189073751550195942381943605021107601808064752877221096179606404963237415946173570260219535373266243797233951745085105425469139767154626937054039161567206939765838893950567048297424958344159115554939672537769296443843922021745908758688101656654838267345792725574818928056672124794908936376439774104534808134101316547503432244381048411172582326030905483695589641260403574608438786277121086922955982069676312275496972690574032658008064597815144571519004720534757867312871156949256960698085629889078140091861272476789909772854506641340387345797448891599857037266032989600959662871187222899219170451513590001473744985933243403875178781609818717805010778493174052610841427864543382822419707573732687348134774271985937074045748584602620385405087328353584626408111159852978097805962382285639569346791804968613227377840121914004535454122765014504344042939178298271796780289304335668960183683999756571737998210243821928958894098702524471849360451032599033220178091257095882264999338344804529176532854802272314746601649779116834958623834865543951956960037298519588748297159784799597824040603771917423087100867454969383720195196762409463636452666259099444356139312488721452064902233812933630542091679966597467994124030003132992148565319460447916490401886307514663831543842650116073896848413833177400561216120815883681248836330310310872936895035310461235727047071130908245952808182167617444295542260155410283323708070536541734277182493400955164078185187169002053072953620214323279041158180182620423452911690313887575486338008403320325477857437004979734402876204128475900804787124559725142504738566958896730211068562359826692321362566060791002631125410818717334980633369460389283557906071281540659087110959484969902681252873733190316038366232920783209655849530841822407547255225955251707798562278776422300310854878410166507553590859724437423578914375266032416128261306187695548163795386120794494881988068929903329860180610375383888429153257453750917778278180787704852982027692268526394628278142725526142476284774260503224111731491659236570449138949794133758299539171775283752627172131965195971411658293057336806167580207637971127105719190324064904888489806181782559724401624684576011893961000699184762600420187727322711157204504355683912901939182262945277510440088900985698457203162893075612460157946405081486437390524974991684754212704404035889484658599162967306805082184573158068614320174151232349450731332266455619873164097880677058977711107054446492828264792556180827637288764997270306124503890274115851150067276253577413802397244457766065651791626984856701167335934416347474635171527204518643314522294620505151194093811997075763763926257239367824307162450732425675687438690152878689362967614972767631933279105928035451630097343931004219408523124853300555151017500349545698520281921335017903369675875718376495230558616843595276048577585967986909202623274717314768131749389386936106225713033723097683404734717602043222347230910635084156163578701116700261083528109851639589068054234592500112071000158932474329691482379213559453350312897324614999141743671781457152241624655990496628795817509150470410196166640549547253563604409343831736550255822450851923506721539202200609162050159609771677280790629281774379745635906341674308073049053120177577538798733873138056091798290384097063979226543295611683121814442994204675457582395670576461850869362838406496249303786916021925496788107415430615373912867985623806345570746060001912211845234034636967288738235534982352194309557320683390769587272311959384348269805014242298328742281504221348746542279738186593517403345976693811507635729334703087492619271636179042572321186709366206733489955162449742038681658452420449512392575364362197428554678145000340367120905346196542457623313580430854441766941326405067073992839460544906124259265185927115197701202770475445661719329324551651735878119020431154468763910506843001585217275288881018965575525323040146027325211339733312945706830624731724041823601044713945799738688327891621699905431869873726720563058759162780849945855474090666497076832006965058456434942919104362541526756385021265169285250607687300376829838903395612022213712676352455811809955094785422631896191419185790731953158545971505613655088037807118533222318805270254275698879286044366044235714074985014629781409565735579289535166062068789992056601292514984264998025822404927755492248715908856783411534472041011616383916335798622621229136927269147051224525047215199982688433657827705666849260020182640783097647097717791038550589058332668226886104204614159718970321185661898969641). UPGRADED-ARRAY-ELEMENT-TYPE.ERROR.1 UPGRADED-ARRAY-ELEMENT-TYPE.ERROR.2 VECTOR.TYPE.1 VECTOR.TYPE.2 VECTOR.TYPE.3 VECTOR.TYPE.4 VECTOR.TYPE.5 VECTOR.TYPE.6 VECTOR.TYPE.7 @@ -22017,7 +22025,35 @@ SEARCH.ERROR.10 SEARCH.ORDER.1 SEARCH.ORDER.2 SEARCH-VECTOR.1 SEARCH-VECTOR.2 SEARCH-VECTOR.3 SEARCH-VECTOR.4 SEARCH-VECTOR.5 SEARCH-VECTOR.6 SEARCH-VECTOR.7 SEARCH-VECTOR.8 SEARCH-VECTOR.9 - SEARCH-VECTOR.10 SEARCH-VECTOR.11Package #<"REGRESSION-TEST" package> + SEARCH-VECTOR.10 SEARCH-VECTOR.11 SEARCH-VECTOR.12 SEARCH-VECTOR.13Package #<"ITERATE" package> +Package #<"WALKER" package> +Package #<"XLIB" package> +Package #<"CLTL1-COMPAT" package> +Package #<"FPE" package> +Package #<"TK" package> +Package #<"DEFPACKAGE" package> +Package #<"ANSI-LOOP" package> +Package #<"SLOOP" package> +Package #<"COMPILER" package> +Package #<"SYSTEM" package> +Package #<"KEYWORD" package> +Package #<"COMMON-LISP-USER" package> +Package #<"COMMON-LISP" package> + WITH-PACKAGE-ITERATOR.13Package #<"MPE11" package> +Package #<"TEST-DPE2" package> +Package #<"LOOP.16.PACKAGE" package> +Package #<"LOOP.15.PACKAGE" package> +Package #<"STRUCT-TEST-PACKAGE" package> +Package #<"DS4" package> +Package #<"DS3" package> +Package #<"DS2" package> +Package #<"DS1" package> +Package #<"B" package> +Package #<"A" package> +Package #<"LOOP.CL-TEST.2" package> +Package #<"LOOP.CL-TEST.1" package> +Package #<"CL-TEST" package> +Package #<"REGRESSION-TEST" package> Package #<"CONDITIONS" package> Package #<"SLOT-ACCESSOR-NAME" package> Package #<"PCL" package> @@ -23014,7 +23050,8 @@ DELETE-BIT-VECTOR.2 DELETE-BIT-VECTOR.3 REMOVE.ORDER.1 REMOVE.ORDER.2 DELETE.ORDER.1 DELETE.ORDER.2 REMOVE-IF.ORDER.1 REMOVE-IF.ORDER.2 DELETE-IF.ORDER.1 DELETE-IF.ORDER.2 REMOVE-IF-NOT.ORDER.1 - REMOVE-IF-NOT.ORDER.2 DELETE-IF-NOT.ORDER.1 DELETE-IF-NOT.ORDER.2 SEARCH-VECTOR.12 SEARCH-VECTOR.13 + REMOVE-IF-NOT.ORDER.2 DELETE-IF-NOT.ORDER.1 DELETE-IF-NOT.ORDER.2 + REMOVE-RANDOM SEARCH-VECTOR.14 SEARCH-VECTOR.15 SEARCH-VECTOR.16 SEARCH-BITVECTOR.1 SEARCH-BITVECTOR.2 SEARCH-BITVECTOR.3 SEARCH-BITVECTOR.4 SEARCH-BITVECTOR.5 SEARCH-BITVECTOR.6 SEARCH-BITVECTOR.7 @@ -23545,8 +23582,8 @@ DELETE.ORDER.1 DELETE.ORDER.2 REMOVE-IF.ORDER.1 REMOVE-IF.ORDER.2 DELETE-IF.ORDER.1 DELETE-IF.ORDER.2 REMOVE-IF-NOT.ORDER.1 REMOVE-IF-NOT.ORDER.2 DELETE-IF-NOT.ORDER.1 DELETE-IF-NOT.ORDER.2 - REMOVE-RANDOM REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM REMOVE-RANDOM REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM DELETE-RANDOM + DELETE-IF-RANDOM REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM DELETE-RANDOM DELETE-IF-RANDOM DELETE-IF-NOT-RANDOM REMOVE-IF-LIST.1 REMOVE-IF-LIST.2 REMOVE-IF-NOT-LIST.1 REMOVE-IF-NOT-LIST.2 DELETE-IF-LIST.1 DELETE-IF-LIST.2 DELETE-IF-NOT-LIST.1 @@ -23561,8 +23598,8 @@ REMOVE.ERROR.5 REMOVE.ERROR.6 REMOVE.ERROR.7 REMOVE.ERROR.8 REMOVE.ERROR.9 REMOVE.ERROR.10 DELETE.ERROR.1 DELETE.ERROR.2 DELETE.ERROR.3 DELETE.ERROR.4 DELETE.ERROR.5 DELETE.ERROR.6 - DELETE.ERROR.7 DELETE.ERROR.8 DELETE.ERROR.9 DELETE.ERROR.10 DELETE-RANDOM - DELETE-IF-RANDOM DELETE-IF-NOT-RANDOM REMOVE-IF-LIST.1 + DELETE.ERROR.7 DELETE.ERROR.8 DELETE.ERROR.9 DELETE.ERROR.10 + RANDOM-REMOVE-DUPLICATES DELETE-IF-NOT-RANDOM REMOVE-IF-LIST.1 REMOVE-IF-LIST.2 REMOVE-IF-NOT-LIST.1 REMOVE-IF-NOT-LIST.2 DELETE-IF-LIST.1 DELETE-IF-LIST.2 DELETE-IF-NOT-LIST.1 DELETE-IF-NOT-LIST.2 DELETE-LIST.1 DELETE-LIST.2 @@ -25199,8 +25236,1582 @@ (((SUBTYPEP 'PRINT-NOT-READABLE 'ATOM) ==> NIL NIL)) (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL)) (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL))). - TYPES.7B - RANDOM-REMOVE-DUPLICATES RANDOM-DELETE-DUPLICATES REMOVE-DUPLICATES.1 + TYPES.7B TYPES.7C +Should be atomic, but isn't: CONDITION +Test TYPES.8 failed +Form: (LOOP + FOR + TP + IN + *DISJOINT-TYPES-LIST* + COUNT + (COND + ((AND (NOT (EQT TP 'CONS)) (NOT (SUBTYPEP* TP 'ATOM))) + (FORMAT T "~%Should be atomic, but isn't: ~S" TP) T))) +Expected value: 0 +Actual value: 1. + TYPES.9Found element of FUNCTION not in ATOM: (SYSTEM:LAMBDA-CLOSURE + () () () (X) + X) +Found element of ARRAY not in SIMPLE-ARRAY: #0ANIL +Found element of ARRAY not in SIMPLE-ARRAY: #(NIL NIL) +Found element of ARRAY not in SIMPLE-ARRAY: #2A((NIL NIL) (NIL NIL)) +Found element of ARRAY not in SIMPLE-ARRAY: #3A(((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL))) +Found element of ARRAY not in SIMPLE-ARRAY: #4A((((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL))) + (((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL)))) +Found element of ARRAY not in SIMPLE-ARRAY: #5A(((((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL))) + (((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL)))) + ((((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL))) + (((NIL NIL) (NIL NIL)) + ((NIL NIL) (NIL NIL))))) +Found element of ARRAY not in SIMPLE-ARRAY: #6A((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))))) +Found element of ARRAY not in SIMPLE-ARRAY: #7A(((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))))) + ((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))))) +Found element of ARRAY not in SIMPLE-ARRAY: #8A((((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))))) + ((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))))) + (((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))))) + ((((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))))) + (((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))) + ((((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL))) + (((NIL NIL) + (NIL NIL)) + ((NIL NIL) + (NIL NIL)))))))) +Found element of VECTOR not in SIMPLE-ARRAY: #(NIL NIL) +Test TYPES.9A failed +Form: (TYPES.9A-BODY) +Expected value: 0 +Actual value: 11. +Test ALL-CLASSES-ARE-TYPE-EQUIVALENT-TO-THEIR-NAMES failed +Form: (LOOP + FOR + SYM + BEING + THE + EXTERNAL-SYMBOLS + OF + "COMMON-LISP" + FOR + CLASS + = + (FIND-CLASS SYM NIL) + WHEN + CLASS + APPEND + (CHECK-EQUIVALENCE SYM CLASS)) +Expected value: NIL +Actual value: (((SUBTYPEP 'STRUCTURE-OBJECT + #) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STRUCTURE-OBJECT)) + ==> NIL T) + ((SUBTYPEP 'ARITHMETIC-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'ARITHMETIC-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT ARITHMETIC-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT ARITHMETIC-ERROR)) + ==> NIL T) + ((SUBTYPEP 'SYMBOL + #) + ==> NIL T) + ((SUBTYPEP + # 'SYMBOL) + ==> NIL T) + ((SUBTYPEP '(NOT SYMBOL) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SYMBOL)) + ==> NIL T) + ((SUBTYPEP 'CONTROL-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'CONTROL-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT CONTROL-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT CONTROL-ERROR)) + ==> NIL T) + ((SUBTYPEP 'CLASS + #) + ==> NIL T) + ((SUBTYPEP + # 'CLASS) + ==> NIL T) + ((SUBTYPEP '(NOT CLASS) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT CLASS)) + ==> NIL T) + ((SUBTYPEP 'SIMPLE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'SIMPLE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT SIMPLE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SIMPLE-ERROR)) + ==> NIL T) + ((SUBTYPEP T + #) + ==> NIL T) + ((SUBTYPEP + # T) + ==> NIL T) + ((SUBTYPEP '(NOT T) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) '(NOT T)) + ==> NIL T) + ((SUBTYPEP 'COMPLEX + #) + ==> NIL T) + ((SUBTYPEP + # 'COMPLEX) + ==> NIL T) + ((SUBTYPEP '(NOT COMPLEX) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT COMPLEX)) + ==> NIL T) + ((SUBTYPEP 'ARRAY + #) + ==> NIL T) + ((SUBTYPEP + # 'ARRAY) + ==> NIL T) + ((SUBTYPEP '(NOT ARRAY) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT ARRAY)) + ==> NIL T) + ((SUBTYPEP 'FLOATING-POINT-INEXACT + #) + ==> NIL T) + ((SUBTYPEP + # + 'FLOATING-POINT-INEXACT) + ==> NIL T) + ((SUBTYPEP '(NOT FLOATING-POINT-INEXACT) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FLOATING-POINT-INEXACT)) + ==> NIL T) + ((SUBTYPEP 'NUMBER + #) + ==> NIL T) + ((SUBTYPEP + # 'NUMBER) + ==> NIL T) + ((SUBTYPEP '(NOT NUMBER) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT NUMBER)) + ==> NIL T) + ((SUBTYPEP 'NULL + #) + ==> NIL T) + ((SUBTYPEP + # 'NULL) + ==> NIL T) + ((SUBTYPEP '(NOT NULL) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) '(NOT NULL)) + ==> NIL T) + ((SUBTYPEP 'FLOATING-POINT-UNDERFLOW + #) + ==> NIL T) + ((SUBTYPEP + # + 'FLOATING-POINT-UNDERFLOW) + ==> NIL T) + ((SUBTYPEP '(NOT FLOATING-POINT-UNDERFLOW) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FLOATING-POINT-UNDERFLOW)) + ==> NIL T) + ((SUBTYPEP 'FLOATING-POINT-OVERFLOW + #) + ==> NIL T) + ((SUBTYPEP + # + 'FLOATING-POINT-OVERFLOW) + ==> NIL T) + ((SUBTYPEP '(NOT FLOATING-POINT-OVERFLOW) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FLOATING-POINT-OVERFLOW)) + ==> NIL T) + ((SUBTYPEP 'RATIONAL + #) + ==> NIL T) + ((SUBTYPEP + # 'RATIONAL) + ==> NIL T) + ((SUBTYPEP '(NOT RATIONAL) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT RATIONAL)) + ==> NIL T) + ((SUBTYPEP 'RATIO + #) + ==> NIL T) + ((SUBTYPEP + # 'RATIO) + ==> NIL T) + ((SUBTYPEP '(NOT RATIO) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT RATIO)) + ==> NIL T) + ((SUBTYPEP 'STANDARD-METHOD + #) + ==> NIL T) + ((SUBTYPEP + # + 'STANDARD-METHOD) + ==> NIL T) + ((SUBTYPEP '(NOT STANDARD-METHOD) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STANDARD-METHOD)) + ==> NIL T) + ((SUBTYPEP 'STRUCTURE-CLASS + #) + ==> NIL T) + ((SUBTYPEP + # + 'STRUCTURE-CLASS) + ==> NIL T) + ((SUBTYPEP '(NOT STRUCTURE-CLASS) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STRUCTURE-CLASS)) + ==> NIL T) + ((SUBTYPEP 'BUILT-IN-CLASS + #) + ==> NIL T) + ((SUBTYPEP + # + 'BUILT-IN-CLASS) + ==> NIL T) + ((SUBTYPEP '(NOT BUILT-IN-CLASS) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT BUILT-IN-CLASS)) + ==> NIL T) + ((SUBTYPEP 'UNBOUND-SLOT + #) + ==> NIL T) + ((SUBTYPEP + # + 'UNBOUND-SLOT) + ==> NIL T) + ((SUBTYPEP '(NOT UNBOUND-SLOT) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT UNBOUND-SLOT)) + ==> NIL T) + ((SUBTYPEP 'ERROR + #) + ==> NIL T) + ((SUBTYPEP + # 'ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT ERROR)) + ==> NIL T) + ((SUBTYPEP 'STANDARD-GENERIC-FUNCTION + #) + ==> NIL T) + ((SUBTYPEP + # + 'STANDARD-GENERIC-FUNCTION) + ==> NIL T) + ((SUBTYPEP '(NOT STANDARD-GENERIC-FUNCTION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STANDARD-GENERIC-FUNCTION)) + ==> NIL T) + ((SUBTYPEP 'CHARACTER + #) + ==> NIL T) + ((SUBTYPEP + # 'CHARACTER) + ==> NIL T) + ((SUBTYPEP '(NOT CHARACTER) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT CHARACTER)) + ==> NIL T) + ((SUBTYPEP 'DIVISION-BY-ZERO + #) + ==> NIL T) + ((SUBTYPEP + # + 'DIVISION-BY-ZERO) + ==> NIL T) + ((SUBTYPEP '(NOT DIVISION-BY-ZERO) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT DIVISION-BY-ZERO)) + ==> NIL T) + ((SUBTYPEP 'SEQUENCE + #) + ==> NIL T) + ((SUBTYPEP + # 'SEQUENCE) + ==> NIL T) + ((SUBTYPEP '(NOT SEQUENCE) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SEQUENCE)) + ==> NIL T) + ((SUBTYPEP 'PRINT-NOT-READABLE + #) + ==> NIL T) + ((SUBTYPEP + # + 'PRINT-NOT-READABLE) + ==> NIL T) + ((SUBTYPEP '(NOT PRINT-NOT-READABLE) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT PRINT-NOT-READABLE)) + ==> NIL T) + ((SUBTYPEP 'UNDEFINED-FUNCTION + #) + ==> NIL T) + ((SUBTYPEP + # + 'UNDEFINED-FUNCTION) + ==> NIL T) + ((SUBTYPEP '(NOT UNDEFINED-FUNCTION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT UNDEFINED-FUNCTION)) + ==> NIL T) + ((SUBTYPEP 'END-OF-FILE + #) + ==> NIL T) + ((SUBTYPEP + # + 'END-OF-FILE) + ==> NIL T) + ((SUBTYPEP '(NOT END-OF-FILE) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT END-OF-FILE)) + ==> NIL T) + ((SUBTYPEP 'INTEGER + #) + ==> NIL T) + ((SUBTYPEP + # 'INTEGER) + ==> NIL T) + ((SUBTYPEP '(NOT INTEGER) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT INTEGER)) + ==> NIL T) + ((SUBTYPEP 'FLOAT + #) + ==> NIL T) + ((SUBTYPEP + # 'FLOAT) + ==> NIL T) + ((SUBTYPEP '(NOT FLOAT) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FLOAT)) + ==> NIL T) + ((SUBTYPEP 'BIT-VECTOR + #) + ==> NIL T) + ((SUBTYPEP + # 'BIT-VECTOR) + ==> NIL T) + ((SUBTYPEP '(NOT BIT-VECTOR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT BIT-VECTOR)) + ==> NIL T) + ((SUBTYPEP 'STYLE-WARNING + #) + ==> NIL T) + ((SUBTYPEP + # + 'STYLE-WARNING) + ==> NIL T) + ((SUBTYPEP '(NOT STYLE-WARNING) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STYLE-WARNING)) + ==> NIL T) + ((SUBTYPEP 'SIMPLE-TYPE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'SIMPLE-TYPE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT SIMPLE-TYPE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SIMPLE-TYPE-ERROR)) + ==> NIL T) + ((SUBTYPEP 'CELL-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # 'CELL-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT CELL-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT CELL-ERROR)) + ==> NIL T) + ((SUBTYPEP 'FILE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # 'FILE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT FILE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FILE-ERROR)) + ==> NIL T) + ((SUBTYPEP 'RESTART + #) + ==> NIL T) + ((SUBTYPEP + # 'RESTART) + ==> NIL T) + ((SUBTYPEP '(NOT RESTART) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT RESTART)) + ==> NIL T) + ((SUBTYPEP 'TYPE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # 'TYPE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT TYPE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT TYPE-ERROR)) + ==> NIL T) + ((SUBTYPEP 'LIST + #) + ==> NIL T) + ((SUBTYPEP + # 'LIST) + ==> NIL T) + ((SUBTYPEP '(NOT LIST) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) '(NOT LIST)) + ==> NIL T) + ((SUBTYPEP 'STANDARD-OBJECT + #) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STANDARD-OBJECT)) + ==> NIL T) + ((SUBTYPEP 'STRING + #) + ==> NIL T) + ((SUBTYPEP + # 'STRING) + ==> NIL T) + ((SUBTYPEP '(NOT STRING) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STRING)) + ==> NIL T) + ((SUBTYPEP 'METHOD-COMBINATION + #) + ==> NIL T) + ((SUBTYPEP + # + 'METHOD-COMBINATION) + ==> NIL T) + ((SUBTYPEP '(NOT METHOD-COMBINATION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT METHOD-COMBINATION)) + ==> NIL T) + ((SUBTYPEP 'CONS + #) + ==> NIL T) + ((SUBTYPEP + # 'CONS) + ==> NIL T) + ((SUBTYPEP '(NOT CONS) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) '(NOT CONS)) + ==> NIL T) + ((SUBTYPEP 'SIMPLE-CONDITION + #) + ==> NIL T) + ((SUBTYPEP + # + 'SIMPLE-CONDITION) + ==> NIL T) + ((SUBTYPEP '(NOT SIMPLE-CONDITION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SIMPLE-CONDITION)) + ==> NIL T) + ((SUBTYPEP 'SIMPLE-WARNING + #) + ==> NIL T) + ((SUBTYPEP + # + 'SIMPLE-WARNING) + ==> NIL T) + ((SUBTYPEP '(NOT SIMPLE-WARNING) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SIMPLE-WARNING)) + ==> NIL T) + ((SUBTYPEP 'PACKAGE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'PACKAGE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT PACKAGE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT PACKAGE-ERROR)) + ==> NIL T) + ((SUBTYPEP 'PARSE-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'PARSE-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT PARSE-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT PARSE-ERROR)) + ==> NIL T) + ((SUBTYPEP 'WARNING + #) + ==> NIL T) + ((SUBTYPEP + # 'WARNING) + ==> NIL T) + ((SUBTYPEP '(NOT WARNING) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT WARNING)) + ==> NIL T) + ((SUBTYPEP 'STORAGE-CONDITION + #) + ==> NIL T) + ((SUBTYPEP + # + 'STORAGE-CONDITION) + ==> NIL T) + ((SUBTYPEP '(NOT STORAGE-CONDITION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STORAGE-CONDITION)) + ==> NIL T) + ((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION + #) + ==> NIL T) + ((SUBTYPEP + # + 'FLOATING-POINT-INVALID-OPERATION) + ==> NIL T) + ((SUBTYPEP '(NOT FLOATING-POINT-INVALID-OPERATION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT FLOATING-POINT-INVALID-OPERATION)) + ==> NIL T) + ((SUBTYPEP 'PROGRAM-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'PROGRAM-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT PROGRAM-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT PROGRAM-ERROR)) + ==> NIL T) + ((SUBTYPEP 'METHOD + #) + ==> NIL T) + ((SUBTYPEP + # 'METHOD) + ==> NIL T) + ((SUBTYPEP '(NOT METHOD) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT METHOD)) + ==> NIL T) + ((SUBTYPEP 'STANDARD-CLASS + #) + ==> NIL T) + ((SUBTYPEP + # + 'STANDARD-CLASS) + ==> NIL T) + ((SUBTYPEP '(NOT STANDARD-CLASS) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STANDARD-CLASS)) + ==> NIL T) + ((SUBTYPEP 'GENERIC-FUNCTION + #) + ==> NIL T) + ((SUBTYPEP + # + 'GENERIC-FUNCTION) + ==> NIL T) + ((SUBTYPEP '(NOT GENERIC-FUNCTION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT GENERIC-FUNCTION)) + ==> NIL T) + ((SUBTYPEP 'STREAM-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'STREAM-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT STREAM-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT STREAM-ERROR)) + ==> NIL T) + ((SUBTYPEP 'SERIOUS-CONDITION + #) + ==> NIL T) + ((SUBTYPEP + # + 'SERIOUS-CONDITION) + ==> NIL T) + ((SUBTYPEP '(NOT SERIOUS-CONDITION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT SERIOUS-CONDITION)) + ==> NIL T) + ((SUBTYPEP 'READER-ERROR + #) + ==> NIL T) + ((SUBTYPEP + # + 'READER-ERROR) + ==> NIL T) + ((SUBTYPEP '(NOT READER-ERROR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT READER-ERROR)) + ==> NIL T) + ((SUBTYPEP 'REAL + #) + ==> NIL T) + ((SUBTYPEP + # 'REAL) + ==> NIL T) + ((SUBTYPEP '(NOT REAL) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) '(NOT REAL)) + ==> NIL T) + ((SUBTYPEP 'VECTOR + #) + ==> NIL T) + ((SUBTYPEP + # 'VECTOR) + ==> NIL T) + ((SUBTYPEP '(NOT VECTOR) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT VECTOR)) + ==> NIL T) + ((SUBTYPEP 'CONDITION + #) + ==> NIL T) + ((SUBTYPEP + # 'CONDITION) + ==> NIL T) + ((SUBTYPEP '(NOT CONDITION) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT CONDITION)) + ==> NIL T) + ((SUBTYPEP 'UNBOUND-VARIABLE + #) + ==> NIL T) + ((SUBTYPEP + # + 'UNBOUND-VARIABLE) + ==> NIL T) + ((SUBTYPEP '(NOT UNBOUND-VARIABLE) + '(NOT #)) + ==> NIL T) + ((SUBTYPEP + '(NOT #) + '(NOT UNBOUND-VARIABLE)) + ==> NIL T)). +Test ALL-STANDARD-CLASSES-ARE-SUBTYPES-OF-STANDARD-OBJECT failed +Form: (LOOP + FOR + SYM + BEING + THE + EXTERNAL-SYMBOLS + OF + "COMMON-LISP" + FOR + CLASS + = + (FIND-CLASS SYM NIL) + WHEN + (AND CLASS (TYPEP CLASS 'STANDARD-CLASS) + (OR (NOT (SUBTYPEP SYM 'STANDARD-OBJECT)) + (NOT (SUBTYPEP CLASS 'STANDARD-OBJECT)))) + COLLECT + SYM) +Expected value: NIL +Actual value: (ARITHMETIC-ERROR CONTROL-ERROR CLASS SIMPLE-ERROR + FLOATING-POINT-INEXACT FLOATING-POINT-UNDERFLOW + FLOATING-POINT-OVERFLOW STANDARD-METHOD + STRUCTURE-CLASS BUILT-IN-CLASS UNBOUND-SLOT ERROR + DIVISION-BY-ZERO PRINT-NOT-READABLE + UNDEFINED-FUNCTION END-OF-FILE STYLE-WARNING + SIMPLE-TYPE-ERROR CELL-ERROR FILE-ERROR TYPE-ERROR + METHOD-COMBINATION SIMPLE-CONDITION SIMPLE-WARNING + PACKAGE-ERROR PARSE-ERROR WARNING STORAGE-CONDITION + FLOATING-POINT-INVALID-OPERATION PROGRAM-ERROR METHOD + STANDARD-CLASS STREAM-ERROR SERIOUS-CONDITION + READER-ERROR CONDITION UNBOUND-VARIABLE). + ALL-STRUCTURE-CLASSES-ARE-SUBTYPES-OF-STRUCTURE-OBJECT + ALL-EXPORTED-CL-CLASS-NAMES-ARE-VALID +Test ALL-STANDARD-GENERIC-FUNCTIONS-ARE-INSTANCES-OF-THAT-CLASS failed +Form: (LOOP + FOR + SYM + IN + *CL-STANDARD-GENERIC-FUNCTION-SYMBOLS* + FOR + FUN + = + (AND (FBOUNDP SYM) (SYMBOL-FUNCTION SYM)) + UNLESS + (AND (TYPEP FUN 'GENERIC-FUNCTION) + (TYPEP FUN 'STANDARD-GENERIC-FUNCTION)) + COLLECT + (LIST SYM FUN)) +Expected value: NIL +Actual value: ((DOCUMENTATION #) + (FIND-METHOD NIL) (NO-NEXT-METHOD NIL)). + STRUCTURE-OBJECT-IS-IN-STRUCTURE-CLASS + STANDARD-OBJECT-IS-IN-STANDARD-CLASS DEFTYPE.1 DEFTYPE.2 DEFTYPE.3 + DEFTYPE.4 DEFTYPE.5 DEFTYPE.6 TYPE-AND-CLASS-FNS TYPE-AND-CLASS-MACROS + TYPEP-NIL-NULL TYPEP-T-NULL TYPE-OF.ERROR.1 TYPE-OF.ERROR.2 + TYPEP.ERROR.1 TYPEP.ERROR.2 TYPEP.ERROR.3 TYPE-ERROR-DATUM.ERROR.1 + TYPE-ERROR-DATUM.ERROR.2 TYPE-ERROR-EXPECTED-TYPE.ERROR.1 + TYPE-ERROR-EXPECTED-TYPE.ERROR.2 TYPEP.ENV.1 TYPEP.ENV.2 TYPEP.ENV.3 + TYPEP.1 TYPEP.2 TYPEP.3 TYPEP.4 TYPEP.5 TYPEP.6 TYPEP.7 TYPEP.8 + TYPEP.9 TYPEP.10 TYPEP.11 TYPEP.12 TYPEP.13 TYPEP.14 TYPEP.15 TYPEP.16 + TYPEP.17 TYPE-OR-NOT-TYPE-IS-EVERYTHING USER-CLASS-DISJOINTNESS + USER-CLASS-DISJOINTNESS-2 USER-STRUCT-DISJOINTNESS + USER-STRUCT-DISJOINTNESS-2 +Test TAC-3.1 failed +Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-A) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.2 failed +Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-B) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.3 failed +Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-C) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.4 failed +Form: (SUBTYPEP* 'TAC-3-A 'TAC-3-AB) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.5 failed +Form: (SUBTYPEP* 'TAC-3-B 'TAC-3-AB) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.6 failed +Form: (SUBTYPEP* 'TAC-3-C 'TAC-3-AB) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.7 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-A) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.8 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-B) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.9 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-C) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.10 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-AB) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.11 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-AC) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.12 failed +Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-BC) +Expected values: T + T +Actual values: NIL + NIL. +Test TAC-3.13 failed +Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-ABC) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.14 failed +Form: (SUBTYPEP* 'TAC-3-AC 'TAC-3-ABC) +Expected values: NIL + T +Actual values: NIL + NIL. +Test TAC-3.15 failed +Form: (SUBTYPEP* 'TAC-3-BC 'TAC-3-ABC) +Expected values: NIL + T +Actual values: NIL + NIL. + TAC-3.16 TAC-3.17 +Test UNIVERSE-ELEMENTS-IN-AT-MOST-ONE-DISJOINT-TYPE failed +Form: (LOOP + FOR + E + IN + *UNIVERSE* + FOR + TYPES + = + (REMOVE-IF-NOT #'(LAMBDA (X) (TYPEP E X)) + *DISJOINT-TYPES-LIST*) + WHEN + (> (LENGTH TYPES) 1) + COLLECT + (LIST E TYPES)) +Expected value: NIL +Actual value: ((CONS (SYMBOL FUNCTION)) + ((SYSTEM:LAMBDA-CLOSURE () () () (X) X) (CONS FUNCTION))). + INTEGER-AND-RATIO-ARE-DISJOINT BIGNUM-AND-RATIO-ARE-DISJOINT + BIGNUM-AND-FIXNUM-ARE-DISJOINT FIXNUM-AND-RATIO-ARE-DISJOINT + BYTE8-AND-RATIO-ARE-DISJOINT BIT-AND-RATIO-ARE-DISJOINT + INTEGER-AND-FLOAT-ARE-DISJOINT RATIO-AND-FLOAT-ARE-DISJOINT + COMPLEX-AND-FLOAT-ARE-DISJOINT INTEGER-SUBRANGES-ARE-DISJOINT + KEYWORD-AND-NULL-ARE-DISJOINT KEYWORD-AND-BOOLEAN-ARE-DISJOINT + COERCE.1 COERCE.2 COERCE.3 COERCE.4 COERCE.5 COERCE.6 COERCE.7 + COERCE.8 COERCE.9 COERCE.10 COERCE.11 COERCE.12 COERCE.13 COERCE.14 + COERCE.15 COERCE.16 COERCE.17 COERCE.18 COERCE.19 COERCE.20 COERCE.21 + COERCE.22 COERCE.ORDER.1 COERCE.ERROR.2 COERCE.ERROR.3 COERCE.ERROR.4 + COERCE.ERROR.5 COERCE.ERROR.6 COERCE.ERROR.7 COERCE.ERROR.8 + COERCE.ERROR.9 SUBTYPEP.ORDER.1 SIMPLE-BASE-STRING-IS-SEQUENCE + SUBTYPE.ENV.1 SUBTYPE.ENV.2 SUBTYPE.ENV.3 SUBTYPE.ENV.4 SUBTYPE.ENV.5 + SUBTYPEP.ERROR.1 SUBTYPEP.ERROR.2 SUBTYPEP.ERROR.3 + KEYWORD-IS-SUBTYPE-OF-ATOM RATIO-IS-SUBTYPE-OF-ATOM + EXTENDED-CHAR-IS-SUBTYPE-OF-ATOM STRING-IS-NOT-SIMPLE-VECTOR + BASE-STRING-IS-NOT-SIMPLE-VECTOR SIMPLE-STRING-IS-NOT-SIMPLE-VECTOR + SIMPLE-BASE-STRING-IS-NOT-SIMPLE-VECTOR + BIT-VECTOR-IS-NOT-SIMPLE-VECTOR SIMPLE-BIT-VECTOR-IS-NOT-SIMPLE-VECTOR + SUBTYPEP.EXTENDED-CHAR.1 SUBTYPEP.AND/OR.1 SUBTYPEP.AND/OR.2 + SUBTYPEP.AND.1 SUBTYPEP.OR.1 SUBTYPEP.AND.2 SUBTYPEP.OR.2 + SUBTYPEP.AND.3 SUBTYPEP.OR.3 SUBTYPEP.AND.4 SUBTYPEP.OR.4 + SUBTYPEP.NIL.1 SUBTYPEP.NIL.2 SUBTYPEP.FIXNUM-OR-BIGNUM + SUBTYPEP.FIXNUM.INTEGER +Test SUBTYPEP.BIGNUM.INTEGER failed +Form: (CHECK-EQUIVALENCE + (LIST 'OR (LIST 'INTEGER '* (LIST MOST-NEGATIVE-FIXNUM)) + (LIST 'INTEGER (LIST MOST-POSITIVE-FIXNUM) '*)) + 'BIGNUM) +Expected value: NIL +Actual value: (((SUBTYPEP + '(OR (INTEGER * (-9223372036854775808)) + (INTEGER (9223372036854775807) *)) + 'BIGNUM) + ==> NIL T) + ((SUBTYPEP '(NOT BIGNUM) + '(NOT (OR (INTEGER * (-9223372036854775808)) + (INTEGER (9223372036854775807) *)))) + ==> NIL T)). + SUBTYPEP.INTEGER.1 SUBTYPEP.INTEGER.2 SUBTYPEP.INTEGER.3 + SUBTYPEP.INTEGER.3A SUBTYPEP.INTEGER.3B SUBTYPEP.INTEGER.3C + SUBTYPEP.INTEGER.4 SUBTYPEP.INTEGER.4A SUBTYPEP.INTEGER.4B + SUBTYPEP.INTEGER.4C SUBTYPEP.INTEGER.5 SUBTYPEP.INTEGER.5A + SUBTYPEP.INTEGER.5B SUBTYPEP.INTEGER.5C SUBTYPEP.INTEGER.6 + SUBTYPEP.INTEGER.6A SUBTYPEP.INTEGER.6B SUBTYPEP.INTEGER.6C + SUBTYPEP.INTEGER.7 SUBTYPEP.INTEGER.7A SUBTYPEP.INTEGER.7B + SUBTYPEP.INTEGER.7C SUBTYPEP.INTEGER.8 SUBTYPEP.INTEGER.8A + SUBTYPEP.INTEGER.8B SUBTYPEP.INTEGER.8C SUBTYPEP.INTEGER.9 + SUBTYPEP.INTEGER.9A SUBTYPEP.INTEGER.9B SUBTYPEP.INTEGER.9C + SUBTYPEP.INTEGER.10 SUBTYPEP.INTEGER.10A SUBTYPEP.INTEGER.10B + SUBTYPEP.INTEGER.10C SUBTYPEP.INTEGER.11 SUBTYPEP.INTEGER.12 + SUBTYPEP.INTEGER.13 SUBTYPEP.INTEGER.14 SUBTYPEP.INTEGER.15 + SUBTYPEP.INTEGER.16 SUBTYPEP.INTEGER.17 SUBTYPEP.INTEGER.18 + SUBTYPEP.INTEGER.19 SUBTYPEP.INTEGER.20 SUBTYPEP.INTEGER.21 + SUBTYPEP.INTEGER.22 +Test SUBTYPEP.INTEGER.23 failed +Form: (CHECK-EQUIVALENCE '(INTEGER (9)) '(INTEGER 10)) +Expected value: NIL +Actual value: (((SUBTYPEP '(INTEGER (9)) '(INTEGER 10)) ==> NIL T) + ((SUBTYPEP '(NOT (INTEGER 10)) '(NOT (INTEGER (9)))) ==> + NIL T)). +Test SUBTYPEP.INTEGER.24 failed +Form: (CHECK-EQUIVALENCE '(INTEGER * (11)) '(INTEGER * 10)) +Expected value: NIL +Actual value: (((SUBTYPEP '(INTEGER * (11)) '(INTEGER * 10)) ==> NIL T) + ((SUBTYPEP '(NOT (INTEGER * 10)) + '(NOT (INTEGER * (11)))) + ==> NIL T)). + SUBTYPEP.INTEGER.25 SUBTYPEP.INTEGER.26 SUBTYPEP.INTEGER.27 + SUBTYPEP.INTEGER.28 SUBTYPEP.INTEGER.29 SUBTYPEP.INTEGER.30 + SUBTYPEP.INTEGER.REAL.1 SUBTYPEP.INTEGER.REAL.2 + SUBTYPEP.INTEGER.REAL.3 SUBTYPEP.INTEGER.REAL.4 + SUBTYPEP.INTEGER.REAL.5 SUBTYPEP.INTEGER.REAL.6 + SUBTYPEP.INTEGER.REAL.7 SUBTYPEP.INTEGER.REAL.8 + SUBTYPEP.INTEGER.REAL.9 SUBTYPEP.INTEGER.REAL.10 + SUBTYPEP.INTEGER.REAL.11 SUBTYPEP.INTEGER.RATIONAL.1 + SUBTYPEP.INTEGER.RATIONAL.2 SUBTYPEP.INTEGER.RATIONAL.3 + SUBTYPEP.INTEGER.RATIONAL.4 SUBTYPEP.INTEGER.RATIONAL.5 + SUBTYPEP.INTEGER.RATIONAL.6 SUBTYPEP.INTEGER.RATIONAL.7 + SUBTYPEP.INTEGER.RATIONAL.8 SUBTYPEP.INTEGER.RATIONAL.9 + SUBTYPEP.INTEGER.RATIONAL.10 SUBTYPEP.FLOAT.1 SUBTYPEP.FLOAT.2 + SUBTYPEP.FLOAT.3 SUBTYPEP.FLOAT.4 SUBTYPEP.FLOAT.5 SUBTYPEP.FLOAT.6 + SUBTYPEP.FLOAT.7 SUBTYPEP.FLOAT.8 SUBTYPEP.FLOAT.9 SUBTYPEP.FLOAT.10 + SUBTYPEP.FLOAT.11 SUBTYPEP.FLOAT.12 SUBTYPEP.FLOAT.13 + SUBTYPEP.FLOAT.14 SUBTYPEP.FLOAT.15 SUBTYPEP.FLOAT.16 + SUBTYPEP.FLOAT.17 SUBTYPEP.FLOAT.18 SUBTYPEP.FLOAT.19 + SUBTYPEP.FLOAT.20 SUBTYPEP.FLOAT.21 SUBTYPEP.FLOAT.22 + SUBTYPEP.FLOAT.23 SUBTYPEP.FLOAT.24 SUBTYPEP.FLOAT.25 + SUBTYPEP.FLOAT.26 SUBTYPEP.FLOAT.27 SUBTYPEP.RATIONAL.1 + SUBTYPEP.RATIONAL.2 SUBTYPEP.RATIONAL.3 SUBTYPEP.RATIONAL.4 + SUBTYPEP.RATIONAL.5 SUBTYPEP.RATIONAL.6 SUBTYPEP.RATIONAL.7 + SUBTYPEP.RATIONAL.8 SUBTYPEP.RATIONAL.9 SUBTYPEP.RATIONAL.10 + SUBTYPEP.RATIONAL.11 SUBTYPEP.RATIONAL.12 SUBTYPEP.RATIONAL.13 + SUBTYPEP.RATIONAL.14 SUBTYPEP.RATIONAL.15 SUBTYPEP.RATIONAL.16 + SUBTYPEP.RATIONAL.17 SUBTYPEP.RATIONAL.18 SUBTYPEP.REAL.1 + SUBTYPEP.REAL.2 SUBTYPEP.REAL.3 SUBTYPEP.REAL.4 SUBTYPEP.REAL.5 + SUBTYPEP.REAL.6 SUBTYPEP.REAL.7 SUBTYPEP.REAL.8 SUBTYPEP.REAL.9 + SUBTYPEP.REAL.10 SUBTYPEP.REAL.11 SUBTYPEP.REAL.12 SUBTYPEP.REAL.13 + SUBTYPEP.REAL.14 SUBTYPEP.REAL.15 SUBTYPEP.REAL.16 SUBTYPEP.REAL.17 + SUBTYPEP.REAL.18 SUBTYPEP.REAL.19 SUBTYPEP.REAL.20 SUBTYPEP.REAL.21 + SUBTYPEP.REAL.22 SUBTYPEP.REAL.23 SUBTYPEP.REAL.24 SUBTYPEP.CONS.1 +Test SUBTYPEP.CONS.2 failed +Form: (LOOP + FOR + T1 + IN + '((CONS NIL) (CONS NIL *) (CONS NIL T) (CONS * NIL) + (CONS T NIL) (CONS NIL NIL)) + UNLESS + (SUBTYPEP T1 NIL) + COLLECT + T1) +Expected value: NIL +Actual value: ((CONS NIL) (CONS NIL *) (CONS NIL T) (CONS * NIL) + (CONS T NIL) (CONS NIL NIL)). + SUBTYPEP.CONS.3 SUBTYPEP.CONS.4 SUBTYPEP.CONS.5 SUBTYPEP.CONS.6 + SUBTYPEP.CONS.7 SUBTYPEP.CONS.8 SUBTYPEP.CONS.9 SUBTYPEP.CONS.10 + SUBTYPEP.CONS.11 +Test SUBTYPEP.CONS.12 failed +Form: (CHECK-ALL-NOT-SUBTYPEP + '(CONS (OR INTEGER SYMBOL) (OR INTEGER SYMBOL)) + '(OR (CONS INTEGER SYMBOL) (CONS SYMBOL INTEGER))) +Expected value: NIL +Actual value: (((SUBTYPEP + '(CONS (OR INTEGER SYMBOL) (OR INTEGER SYMBOL)) + '(OR (CONS INTEGER SYMBOL) (CONS SYMBOL INTEGER))) + ==> T T) + ((SUBTYPEP + '(NOT (OR (CONS INTEGER SYMBOL) + (CONS SYMBOL INTEGER))) + '(NOT (CONS (OR INTEGER SYMBOL) + (OR INTEGER SYMBOL)))) + ==> T T)). + SUBTYPEP.CONS.13 SUBTYPEP.CONS.14 SUBTYPEP.CONS.15 SUBTYPEP.CONS.16 + SUBTYPEP.CONS.17 SUBTYPEP.CONS.18 SUBTYPEP.CONS.19 SUBTYPEP.CONS.20 + SUBTYPEP.MEMBER.1 SUBTYPEP.MEMBER.2 SUBTYPEP.MEMBER.3 + SUBTYPEP.MEMBER.4 SUBTYPEP.MEMBER.5 SUBTYPEP.MEMBER.6 + SUBTYPEP.MEMBER.7 SUBTYPEP.MEMBER.8 SUBTYPEP.MEMBER.9 + SUBTYPEP.MEMBER.10 SUBTYPEP.MEMBER.11 SUBTYPEP.MEMBER.12 + SUBTYPEP.MEMBER.13 SUBTYPEP.MEMBER.14 SUBTYPEP.MEMBER.15 + SUBTYPEP.MEMBER.16 +Test SUBTYPEP.MEMBER.17 failed +Form: (LET ((S1 (COPY-SEQ "abc")) (S2 (COPY-SEQ "abc"))) + (LET ((T1 (LIST 'MEMBER S1)) (T2 (LIST 'MEMBER S2))) + (COND + ((SUBTYPEP T1 T2) "T1 is subtype of T2") + ((SUBTYPEP T2 T1) "T2 is subtype of T1") + (T (CHECK-DISJOINTNESS T1 T2))))) +Expected value: NIL +Actual value: "T1 is subtype of T2". +Test SUBTYPEP.MEMBER.18 failed +Form: (LET ((S1 (COPY-SEQ '(A B C))) (S2 (COPY-SEQ '(A B C)))) + (LET ((T1 (LIST 'MEMBER S1)) (T2 (LIST 'MEMBER S2))) + (COND + ((SUBTYPEP T1 T2) "T1 is subtype of T2") + ((SUBTYPEP T2 T1) "T2 is subtype of T1") + (T (CHECK-DISJOINTNESS T1 T2))))) +Expected value: NIL +Actual value: "T1 is subtype of T2". + SUBTYPEP.MEMBER.19 SUBTYPEP.MEMBER.20 SUBTYPEP.MEMBER.21 + SUBTYPEP.MEMBER.22 SUBTYPEP.MEMBER.23 SUBTYPEP.MEMBER.24 + SUBTYPEP.MEMBER.25 SUBTYPEP.MEMBER.26 SUBTYPEP.MEMBER.27 + SUBTYPEP.MEMBER.28 SUBTYPEP.MEMBER.29 SUBTYPEP.MEMBER.30 + SUBTYPEP.MEMBER.31 SUBTYPEP.MEMBER.32 SUBTYPEP.MEMBER.33 + SUBTYPEP.MEMBER.34 SUBTYPEP.MEMBER.35 SUBTYPEP.MEMBER.36 + SUBTYPEP.MEMBER.37 SUBTYPEP.MEMBER.38 SUBTYPEP.MEMBER.39 + SUBTYPEP.MEMBER.40 SUBTYPEP.MEMBER.41 SUBTYPEP.MEMBER.42 + SUBTYPEP.MEMBER.43 SUBTYPEP.MEMBER.44 +Test SUBTYPEP.EQL.1 failed +Form: (LET ((S1 (COPY-SEQ "abc")) (S2 (COPY-SEQ "abc"))) + (LET ((T1 (LIST 'EQL S1)) (T2 (LIST 'EQL S2))) + (COND + ((SUBTYPEP T1 T2) "T1 is subtype of T2") + ((SUBTYPEP T2 T1) "T2 is subtype of T1") + (T (CHECK-DISJOINTNESS T1 T2))))) +Expected value: NIL +Actual value: "T1 is subtype of T2". +Test SUBTYPEP.EQL.2 failed +Form: (LET ((S1 (COPY-SEQ '(A B C))) (S2 (COPY-SEQ '(A B C)))) + (LET ((T1 (LIST 'EQL S1)) (T2 (LIST 'EQL S2))) + (COND + ((SUBTYPEP T1 T2) "T1 is subtype of T2") + ((SUBTYPEP T2 T1) "T2 is subtype of T1") + (T (CHECK-DISJOINTNESS T1 T2))))) +Expected value: NIL +Actual value: "T1 is subtype of T2". + SUBTYPEP.EQL.3 SUBTYPEP.EQL.4 SUBTYPEP.EQL.5 SUBTYPEP.EQL.6 + SUBTYPEP.EQL.7 SUBTYPEP.EQL.8 +Test SUBTYPEP.ARRAY.1 failed +Form: (LET ((ARRAY-TYPES + (CONS (FIND-CLASS 'ARRAY) + '(ARRAY (ARRAY) (ARRAY *) (ARRAY * *))))) + (LOOP + FOR + TP1 + IN + ARRAY-TYPES + APPEND + (LOOP + FOR + TP2 + IN + ARRAY-TYPES + UNLESS + (SUBTYPEP TP1 TP2) + COLLECT + (LIST TP1 TP2)))) +Expected value: NIL +Actual value: ((# ARRAY) + (# (ARRAY)) + (# (ARRAY *)) + (# (ARRAY * *)) + (ARRAY #) + ((ARRAY) + #) + ((ARRAY *) + #) + ((ARRAY * *) + #)). + SUBTYPEP.ARRAY.2 +Test SUBTYPEP.ARRAY.3 failed +Form: (LOOP + FOR + I + FROM + 0 + BELOW + (MIN 16 ARRAY-RANK-LIMIT) + FOR + TYPE + = + (LIST 'ARRAY '* I) + FOR + TYPE2 + = + (LIST 'ARRAY '* (MAKE-LIST I :INITIAL-ELEMENT '*)) + UNLESS + (AND (SUBTYPEP TYPE 'ARRAY) (SUBTYPEP TYPE '(ARRAY)) + (SUBTYPEP TYPE '(ARRAY *)) (SUBTYPEP TYPE '(ARRAY * *)) + (SUBTYPEP TYPE TYPE2)) + COLLECT + TYPE) +Expected value: NIL +Actual value: #. +Test SUBTYPEP.ARRAY.4 failed +Form: (LOOP + FOR + I + FROM + 0 + BELOW + (MIN 16 ARRAY-RANK-LIMIT) + FOR + TYPE + = + (LIST 'ARRAY T I) + FOR + TYPE2 + = + (LIST 'ARRAY T (MAKE-LIST I :INITIAL-ELEMENT '*)) + UNLESS + (AND (SUBTYPEP TYPE '(ARRAY T)) (SUBTYPEP TYPE '(ARRAY T *)) + (SUBTYPEP TYPE TYPE2)) + COLLECT + TYPE) +Expected value: NIL +Actual value: #. +Test SUBTYPEP.ARRAY.5 failed +Form: (LOOP + FOR + ELEMENT-TYPE + IN + (CONS '* *ARRAY-ELEMENT-TYPES*) + NCONC + (LOOP + FOR + I + FROM + 0 + BELOW + (MIN 16 ARRAY-RANK-LIMIT) + FOR + TYPE + = + (LIST 'ARRAY ELEMENT-TYPE I) + FOR + TYPE2 + = + (LIST 'ARRAY ELEMENT-TYPE (MAKE-LIST I :INITIAL-ELEMENT '0)) + FOR + TYPE3 + = + (LIST 'ARRAY ELEMENT-TYPE (MAKE-LIST I :INITIAL-ELEMENT '1)) + UNLESS + (AND (SUBTYPEP TYPE2 TYPE) (SUBTYPEP TYPE3 TYPE) + (LOOP + FOR + J + FROM + 0 + TO + I + ALWAYS + (AND (SUBTYPEP + (LIST 'ARRAY ELEMENT-TYPE + (APPEND (MAKE-LIST J :INITIAL-ELEMENT + '*) + (MAKE-LIST (- I J) + :INITIAL-ELEMENT 2))) + TYPE) + (SUBTYPEP + (LIST 'ARRAY ELEMENT-TYPE + (APPEND (MAKE-LIST J :INITIAL-ELEMENT + 2) + (MAKE-LIST (- I J) + :INITIAL-ELEMENT '*))) + TYPE)))) + COLLECT + TYPE)) +Expected value: NIL +Actual value: #. + SUBTYPEP.ARAY.6 SUBTYPEP.ARAY.7 READTABLE-VALID READTABLEP.1 + READ-SYMBOL.1 READ-SYMBOL.2 READ-SYMBOL.3 READ-SYMBOL.4 READ-SYMBOL.5 + READ-SYMBOL.6 READ-SYMBOL.7 READ-SYMBOL.9 READ-SYMBOL.10 CHAR.1 CHAR.2 + CHAR.3 CHAR.4 CHAR.5 CHAR.6 CHAR.7 CHAR.8 CHAR.9 CHAR.10 CHAR.ORDER.1 + CHAR.ORDER.2 SCHAR.1 SCHAR.2 SCHAR.3 SCHAR.4 SCHAR.5 SCHAR.6 SCHAR.7 + SCHAR.ORDER.1 SCHAR.ORDER.2 STRING.1 STRING.2 STRING.3 STRING.4 + STRING.5 STRING.6 RANDOM-DELETE-DUPLICATES REMOVE-DUPLICATES.1 DELETE-DUPLICATES.1 REMOVE-DUPLICATES.ORDER.1 REMOVE-DUPLICATES.ORDER.2 REMOVE-DUPLICATES.ALLOW-OTHER-KEYS.1 REMOVE-DUPLICATES.ALLOW-OTHER-KEYS.2 @@ -27111,17 +28722,17 @@ '(NOT STRUCTURE-OBJECT)) ==> NIL T) ((SUBTYPEP 'ARITHMETIC-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'ARITHMETIC-ERROR) ==> NIL T) ((SUBTYPEP '(NOT ARITHMETIC-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT ARITHMETIC-ERROR)) ==> NIL T) ((SUBTYPEP 'SYMBOL @@ -27138,17 +28749,17 @@ '(NOT SYMBOL)) ==> NIL T) ((SUBTYPEP 'CONTROL-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'CONTROL-ERROR) ==> NIL T) ((SUBTYPEP '(NOT CONTROL-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT CONTROL-ERROR)) ==> NIL T) ((SUBTYPEP 'CLASS @@ -27165,17 +28776,17 @@ '(NOT CLASS)) ==> NIL T) ((SUBTYPEP 'SIMPLE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'SIMPLE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT SIMPLE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT SIMPLE-ERROR)) ==> NIL T) ((SUBTYPEP T @@ -27217,17 +28828,17 @@ '(NOT ARRAY)) ==> NIL T) ((SUBTYPEP 'FLOATING-POINT-INEXACT - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'FLOATING-POINT-INEXACT) ==> NIL T) ((SUBTYPEP '(NOT FLOATING-POINT-INEXACT) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT FLOATING-POINT-INEXACT)) ==> NIL T) ((SUBTYPEP 'NUMBER @@ -27256,31 +28867,31 @@ '(NOT #) '(NOT NULL)) ==> NIL T) ((SUBTYPEP 'FLOATING-POINT-UNDERFLOW - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'FLOATING-POINT-UNDERFLOW) ==> NIL T) ((SUBTYPEP '(NOT FLOATING-POINT-UNDERFLOW) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT FLOATING-POINT-UNDERFLOW)) ==> NIL T) ((SUBTYPEP 'FLOATING-POINT-OVERFLOW - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'FLOATING-POINT-OVERFLOW) ==> NIL T) ((SUBTYPEP '(NOT FLOATING-POINT-OVERFLOW) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT FLOATING-POINT-OVERFLOW)) ==> NIL T) ((SUBTYPEP 'RATIONAL @@ -27366,16 +28977,16 @@ '(NOT UNBOUND-SLOT)) ==> NIL T) ((SUBTYPEP 'ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'ERROR) + # 'ERROR) ==> NIL T) ((SUBTYPEP '(NOT ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT ERROR)) ==> NIL T) ((SUBTYPEP 'STANDARD-GENERIC-FUNCTION @@ -27406,17 +29017,17 @@ '(NOT CHARACTER)) ==> NIL T) ((SUBTYPEP 'DIVISION-BY-ZERO - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'DIVISION-BY-ZERO) ==> NIL T) ((SUBTYPEP '(NOT DIVISION-BY-ZERO) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT DIVISION-BY-ZERO)) ==> NIL T) ((SUBTYPEP 'SEQUENCE @@ -27433,17 +29044,17 @@ '(NOT SEQUENCE)) ==> NIL T) ((SUBTYPEP 'PRINT-NOT-READABLE - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'PRINT-NOT-READABLE) ==> NIL T) ((SUBTYPEP '(NOT PRINT-NOT-READABLE) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT PRINT-NOT-READABLE)) ==> NIL T) ((SUBTYPEP 'UNDEFINED-FUNCTION @@ -27461,17 +29072,17 @@ '(NOT UNDEFINED-FUNCTION)) ==> NIL T) ((SUBTYPEP 'END-OF-FILE - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'END-OF-FILE) ==> NIL T) ((SUBTYPEP '(NOT END-OF-FILE) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT END-OF-FILE)) ==> NIL T) ((SUBTYPEP 'INTEGER @@ -27514,44 +29125,44 @@ '(NOT BIT-VECTOR)) ==> NIL T) ((SUBTYPEP 'STYLE-WARNING - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'STYLE-WARNING) ==> NIL T) ((SUBTYPEP '(NOT STYLE-WARNING) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT STYLE-WARNING)) ==> NIL T) ((SUBTYPEP 'SIMPLE-TYPE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'SIMPLE-TYPE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT SIMPLE-TYPE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT SIMPLE-TYPE-ERROR)) ==> NIL T) ((SUBTYPEP 'CELL-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'CELL-ERROR) + # 'CELL-ERROR) ==> NIL T) ((SUBTYPEP '(NOT CELL-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT CELL-ERROR)) ==> NIL T) ((SUBTYPEP 'FILE-ERROR @@ -27568,29 +29179,29 @@ '(NOT FILE-ERROR)) ==> NIL T) ((SUBTYPEP 'RESTART - #) + #) ==> NIL T) ((SUBTYPEP - # 'RESTART) + # 'RESTART) ==> NIL T) ((SUBTYPEP '(NOT RESTART) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT RESTART)) ==> NIL T) ((SUBTYPEP 'TYPE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'TYPE-ERROR) + # 'TYPE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT TYPE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT TYPE-ERROR)) ==> NIL T) ((SUBTYPEP 'LIST @@ -27652,31 +29263,31 @@ '(NOT #) '(NOT CONS)) ==> NIL T) ((SUBTYPEP 'SIMPLE-CONDITION - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'SIMPLE-CONDITION) ==> NIL T) ((SUBTYPEP '(NOT SIMPLE-CONDITION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT SIMPLE-CONDITION)) ==> NIL T) ((SUBTYPEP 'SIMPLE-WARNING - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'SIMPLE-WARNING) ==> NIL T) ((SUBTYPEP '(NOT SIMPLE-WARNING) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT SIMPLE-WARNING)) ==> NIL T) ((SUBTYPEP 'PACKAGE-ERROR @@ -27694,72 +29305,72 @@ '(NOT PACKAGE-ERROR)) ==> NIL T) ((SUBTYPEP 'PARSE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'PARSE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT PARSE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT PARSE-ERROR)) ==> NIL T) ((SUBTYPEP 'WARNING - #) + #) ==> NIL T) ((SUBTYPEP - # 'WARNING) + # 'WARNING) ==> NIL T) ((SUBTYPEP '(NOT WARNING) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT WARNING)) ==> NIL T) ((SUBTYPEP 'STORAGE-CONDITION - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'STORAGE-CONDITION) ==> NIL T) ((SUBTYPEP '(NOT STORAGE-CONDITION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT STORAGE-CONDITION)) ==> NIL T) ((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'FLOATING-POINT-INVALID-OPERATION) ==> NIL T) ((SUBTYPEP '(NOT FLOATING-POINT-INVALID-OPERATION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT FLOATING-POINT-INVALID-OPERATION)) ==> NIL T) ((SUBTYPEP 'PROGRAM-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'PROGRAM-ERROR) ==> NIL T) ((SUBTYPEP '(NOT PROGRAM-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT PROGRAM-ERROR)) ==> NIL T) ((SUBTYPEP 'METHOD @@ -27818,31 +29429,31 @@ '(NOT STREAM-ERROR)) ==> NIL T) ((SUBTYPEP 'SERIOUS-CONDITION - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'SERIOUS-CONDITION) ==> NIL T) ((SUBTYPEP '(NOT SERIOUS-CONDITION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT SERIOUS-CONDITION)) ==> NIL T) ((SUBTYPEP 'READER-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'READER-ERROR) ==> NIL T) ((SUBTYPEP '(NOT READER-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT READER-ERROR)) ==> NIL T) ((SUBTYPEP 'REAL @@ -27871,1686 +29482,30 @@ '(NOT VECTOR)) ==> NIL T) ((SUBTYPEP 'CONDITION - #) + #) ==> NIL T) ((SUBTYPEP - # 'CONDITION) + # 'CONDITION) ==> NIL T) ((SUBTYPEP '(NOT CONDITION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT CONDITION)) ==> NIL T) ((SUBTYPEP 'UNBOUND-VARIABLE - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'UNBOUND-VARIABLE) ==> NIL T) ((SUBTYPEP '(NOT UNBOUND-VARIABLE) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) - '(NOT UNBOUND-VARIABLE)) - ==> NIL T)). -Test ALL-STANDARD-CLASSES-ARE-SUBTYPES-OF-STANDARD-OBJECT failed -Form: (LOOP - FOR - SYM - BEING - THE - EXTERNAL-SYMBOLS - OF - "COMMON-LISP" - FOR - CLASS - = - (FIND-CLASS SYM NIL) - WHEN - (AND CLASS (TYPEP CLASS 'STANDARD-CLASS) - (OR (NOT (SUBTYPEP SYM 'STANDARD-OBJECT)) - (NOT (SUBTYPEP CLASS 'STANDARD-OBJECT)))) - COLLECT - SYM) -Expected value: NIL -Actual value: (ARITHMETIC-ERROR CONTROL-ERROR CLASS SIMPLE-ERROR - FLOATING-POINT-INEXACT FLOATING-POINT-UNDERFLOW - FLOATING-POINT-OVERFLOW STANDARD-METHOD - STRUCTURE-CLASS BUILT-IN-CLASS UNBOUND-SLOT ERROR - DIVISION-BY-ZERO PRINT-NOT-READABLE - UNDEFINED-FUNCTION END-OF-FILE STYLE-WARNING - SIMPLE-TYPE-ERROR CELL-ERROR FILE-ERROR TYPE-ERROR - METHOD-COMBINATION SIMPLE-CONDITION SIMPLE-WARNING - PACKAGE-ERROR PARSE-ERROR WARNING STORAGE-CONDITION - FLOATING-POINT-INVALID-OPERATION PROGRAM-ERROR METHOD - STANDARD-CLASS STREAM-ERROR SERIOUS-CONDITION - READER-ERROR CONDITION UNBOUND-VARIABLE). - ALL-STRUCTURE-CLASSES-ARE-SUBTYPES-OF-STRUCTURE-OBJECT - ALL-EXPORTED-CL-CLASS-NAMES-ARE-VALID -Test ALL-STANDARD-GENERIC-FUNCTIONS-ARE-INSTANCES-OF-THAT-CLASS failed -Form: (LOOP - FOR - SYM - IN - *CL-STANDARD-GENERIC-FUNCTION-SYMBOLS* - FOR - FUN - = - (AND (FBOUNDP SYM) (SYMBOL-FUNCTION SYM)) - UNLESS - (AND (TYPEP FUN 'GENERIC-FUNCTION) - (TYPEP FUN 'STANDARD-GENERIC-FUNCTION)) - COLLECT - (LIST SYM FUN)) -Expected value: NIL -Actual value: ((DOCUMENTATION #) - (FIND-METHOD NIL) (NO-NEXT-METHOD NIL)). - STRUCTURE-OBJECT-IS-IN-STRUCTURE-CLASS - STANDARD-OBJECT-IS-IN-STANDARD-CLASS DEFTYPE.1 DEFTYPE.2 DEFTYPE.3 - DEFTYPE.4 DEFTYPE.5 DEFTYPE.6 TYPE-AND-CLASS-FNS TYPE-AND-CLASS-MACROS - TYPEP-NIL-NULL TYPEP-T-NULL TYPE-OF.ERROR.1 TYPE-OF.ERROR.2 - TYPEP.ERROR.1 TYPEP.ERROR.2 TYPEP.ERROR.3 TYPE-ERROR-DATUM.ERROR.1 - TYPE-ERROR-DATUM.ERROR.2 TYPE-ERROR-EXPECTED-TYPE.ERROR.1 - TYPE-ERROR-EXPECTED-TYPE.ERROR.2 TYPEP.ENV.1 TYPEP.ENV.2 TYPEP.ENV.3 - TYPEP.1 TYPEP.2 TYPEP.3 TYPEP.4 TYPEP.5 TYPEP.6 TYPEP.7 TYPEP.8 - TYPEP.9 TYPEP.10 TYPEP.11 TYPEP.12 TYPEP.13 TYPEP.14 TYPEP.15 TYPEP.16 - TYPEP.17 TYPE-OR-NOT-TYPE-IS-EVERYTHING USER-CLASS-DISJOINTNESS - USER-CLASS-DISJOINTNESS-2 USER-STRUCT-DISJOINTNESS - USER-STRUCT-DISJOINTNESS-2 -Test TAC-3.1 failed -Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-A) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.2 failed -Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-B) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.3 failed -Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-C) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.4 failed -Form: (SUBTYPEP* 'TAC-3-A 'TAC-3-AB) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.5 failed -Form: (SUBTYPEP* 'TAC-3-B 'TAC-3-AB) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.6 failed -Form: (SUBTYPEP* 'TAC-3-C 'TAC-3-AB) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.7 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-A) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.8 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-B) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.9 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-C) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.10 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-AB) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.11 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-AC) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.12 failed -Form: (SUBTYPEP* 'TAC-3-ABC 'TAC-3-BC) -Expected values: T - T -Actual values: NIL - NIL. -Test TAC-3.13 failed -Form: (SUBTYPEP* 'TAC-3-AB 'TAC-3-ABC) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.14 failed -Form: (SUBTYPEP* 'TAC-3-AC 'TAC-3-ABC) -Expected values: NIL - T -Actual values: NIL - NIL. -Test TAC-3.15 failed -Form: (SUBTYPEP* 'TAC-3-BC 'TAC-3-ABC) -Expected values: NIL - T -Actual values: NIL - NIL. - TAC-3.16 TAC-3.17 -Test UNIVERSE-ELEMENTS-IN-AT-MOST-ONE-DISJOINT-TYPE failed -Form: (LOOP - FOR - E - IN - *UNIVERSE* - FOR - TYPES - = - (REMOVE-IF-NOT #'(LAMBDA (X) (TYPEP E X)) - *DISJOINT-TYPES-LIST*) - WHEN - (> (LENGTH TYPES) 1) - COLLECT - (LIST E TYPES)) -Expected value: NIL -Actual value: ((CONS (SYMBOL FUNCTION)) - ((SYSTEM:LAMBDA-CLOSURE () () () (X) X) (CONS FUNCTION))). - INTEGER-AND-RATIO-ARE-DISJOINT BIGNUM-AND-RATIO-ARE-DISJOINT - BIGNUM-AND-FIXNUM-ARE-DISJOINT FIXNUM-AND-RATIO-ARE-DISJOINT - BYTE8-AND-RATIO-ARE-DISJOINT BIT-AND-RATIO-ARE-DISJOINT - INTEGER-AND-FLOAT-ARE-DISJOINT RATIO-AND-FLOAT-ARE-DISJOINT - COMPLEX-AND-FLOAT-ARE-DISJOINT INTEGER-SUBRANGES-ARE-DISJOINT - KEYWORD-AND-NULL-ARE-DISJOINT KEYWORD-AND-BOOLEAN-ARE-DISJOINT - COERCE.1 COERCE.2 COERCE.3 COERCE.4 COERCE.5 COERCE.6 COERCE.7 - COERCE.8 COERCE.9 COERCE.10 COERCE.11 COERCE.12 COERCE.13 COERCE.14 - COERCE.15 COERCE.16 COERCE.17 COERCE.18 COERCE.19 COERCE.20 COERCE.21 - COERCE.22 COERCE.ORDER.1 COERCE.ERROR.2 COERCE.ERROR.3 COERCE.ERROR.4 - COERCE.ERROR.5 COERCE.ERROR.6 COERCE.ERROR.7 COERCE.ERROR.8 - COERCE.ERROR.9 SUBTYPEP.ORDER.1 SIMPLE-BASE-STRING-IS-SEQUENCE - SUBTYPE.ENV.1 SUBTYPE.ENV.2 SUBTYPE.ENV.3 SUBTYPE.ENV.4 SUBTYPE.ENV.5 - SUBTYPEP.ERROR.1 SUBTYPEP.ERROR.2 SUBTYPEP.ERROR.3 - KEYWORD-IS-SUBTYPE-OF-ATOM RATIO-IS-SUBTYPE-OF-ATOM - EXTENDED-CHAR-IS-SUBTYPE-OF-ATOM STRING-IS-NOT-SIMPLE-VECTOR - BASE-STRING-IS-NOT-SIMPLE-VECTOR SIMPLE-STRING-IS-NOT-SIMPLE-VECTOR - SIMPLE-BASE-STRING-IS-NOT-SIMPLE-VECTOR - BIT-VECTOR-IS-NOT-SIMPLE-VECTOR SIMPLE-BIT-VECTOR-IS-NOT-SIMPLE-VECTOR - SUBTYPEP.EXTENDED-CHAR.1 SUBTYPEP.AND/OR.1 SUBTYPEP.AND/OR.2 - SUBTYPEP.AND.1 SUBTYPEP.OR.1 SUBTYPEP.AND.2 SUBTYPEP.OR.2 - SUBTYPEP.AND.3 SUBTYPEP.OR.3 SUBTYPEP.AND.4 SUBTYPEP.OR.4 - SUBTYPEP.NIL.1 SUBTYPEP.NIL.2 SUBTYPEP.FIXNUM-OR-BIGNUM - SUBTYPEP.FIXNUM.INTEGER -Test SUBTYPEP.BIGNUM.INTEGER failed -Form: (CHECK-EQUIVALENCE - (LIST 'OR (LIST 'INTEGER '* (LIST MOST-NEGATIVE-FIXNUM)) - (LIST 'INTEGER (LIST MOST-POSITIVE-FIXNUM) '*)) - 'BIGNUM) -Expected value: NIL -Actual value: (((SUBTYPEP - '(OR (INTEGER * (-9223372036854775808)) - (INTEGER (9223372036854775807) *)) - 'BIGNUM) - ==> NIL T) - ((SUBTYPEP '(NOT BIGNUM) - '(NOT (OR (INTEGER * (-9223372036854775808)) - (INTEGER (9223372036854775807) *)))) - ==> NIL T)). - SUBTYPEP.INTEGER.1 SUBTYPEP.INTEGER.2 SUBTYPEP.INTEGER.3 - SUBTYPEP.INTEGER.3A SUBTYPEP.INTEGER.3B SUBTYPEP.INTEGER.3C - SUBTYPEP.INTEGER.4 SUBTYPEP.INTEGER.4A SUBTYPEP.INTEGER.4B - SUBTYPEP.INTEGER.4C SUBTYPEP.INTEGER.5 SUBTYPEP.INTEGER.5A - SUBTYPEP.INTEGER.5B SUBTYPEP.INTEGER.5C SUBTYPEP.INTEGER.6 - SUBTYPEP.INTEGER.6A SUBTYPEP.INTEGER.6B SUBTYPEP.INTEGER.6C - SUBTYPEP.INTEGER.7 SUBTYPEP.INTEGER.7A SUBTYPEP.INTEGER.7B - SUBTYPEP.INTEGER.7C SUBTYPEP.INTEGER.8 SUBTYPEP.INTEGER.8A - SUBTYPEP.INTEGER.8B SUBTYPEP.INTEGER.8C SUBTYPEP.INTEGER.9 - SUBTYPEP.INTEGER.9A SUBTYPEP.INTEGER.9B SUBTYPEP.INTEGER.9C - SUBTYPEP.INTEGER.10 SUBTYPEP.INTEGER.10A SUBTYPEP.INTEGER.10B - SUBTYPEP.INTEGER.10C SUBTYPEP.INTEGER.11 SUBTYPEP.INTEGER.12 - SUBTYPEP.INTEGER.13 SUBTYPEP.INTEGER.14 SUBTYPEP.INTEGER.15 - SUBTYPEP.INTEGER.16 SUBTYPEP.INTEGER.17 SUBTYPEP.INTEGER.18 - SUBTYPEP.INTEGER.19 SUBTYPEP.INTEGER.20 SUBTYPEP.INTEGER.21 - SUBTYPEP.INTEGER.22 -Test SUBTYPEP.INTEGER.23 failed -Form: (CHECK-EQUIVALENCE '(INTEGER (9)) '(INTEGER 10)) -Expected value: NIL -Actual value: (((SUBTYPEP '(INTEGER (9)) '(INTEGER 10)) ==> NIL T) - ((SUBTYPEP '(NOT (INTEGER 10)) '(NOT (INTEGER (9)))) ==> - NIL T)). -Test SUBTYPEP.INTEGER.24 failed -Form: (CHECK-EQUIVALENCE '(INTEGER * (11)) '(INTEGER * 10)) -Expected value: NIL -Actual value: (((SUBTYPEP '(INTEGER * (11)) '(INTEGER * 10)) ==> NIL T) - ((SUBTYPEP '(NOT (INTEGER * 10)) - '(NOT (INTEGER * (11)))) - ==> NIL T)). - SUBTYPEP.INTEGER.25 SUBTYPEP.INTEGER.26 SUBTYPEP.INTEGER.27 - SUBTYPEP.INTEGER.28 SUBTYPEP.INTEGER.29 SUBTYPEP.INTEGER.30 - SUBTYPEP.INTEGER.REAL.1 SUBTYPEP.INTEGER.REAL.2 - SUBTYPEP.INTEGER.REAL.3 SUBTYPEP.INTEGER.REAL.4 - SUBTYPEP.INTEGER.REAL.5 SUBTYPEP.INTEGER.REAL.6 - SUBTYPEP.INTEGER.REAL.7 SUBTYPEP.INTEGER.REAL.8 - SUBTYPEP.INTEGER.REAL.9 SUBTYPEP.INTEGER.REAL.10 - SUBTYPEP.INTEGER.REAL.11 SUBTYPEP.INTEGER.RATIONAL.1 - SUBTYPEP.INTEGER.RATIONAL.2 SUBTYPEP.INTEGER.RATIONAL.3 - SUBTYPEP.INTEGER.RATIONAL.4 SUBTYPEP.INTEGER.RATIONAL.5 - SUBTYPEP.INTEGER.RATIONAL.6 SUBTYPEP.INTEGER.RATIONAL.7 - SUBTYPEP.INTEGER.RATIONAL.8 SUBTYPEP.INTEGER.RATIONAL.9 - SUBTYPEP.INTEGER.RATIONAL.10 SUBTYPEP.FLOAT.1 SUBTYPEP.FLOAT.2 - SUBTYPEP.FLOAT.3 SUBTYPEP.FLOAT.4 SUBTYPEP.FLOAT.5 SUBTYPEP.FLOAT.6 - SUBTYPEP.FLOAT.7 SUBTYPEP.FLOAT.8 SUBTYPEP.FLOAT.9 SUBTYPEP.FLOAT.10 - SUBTYPEP.FLOAT.11 SUBTYPEP.FLOAT.12 SUBTYPEP.FLOAT.13 - SUBTYPEP.FLOAT.14 SUBTYPEP.FLOAT.15 SUBTYPEP.FLOAT.16 - SUBTYPEP.FLOAT.17 SUBTYPEP.FLOAT.18 SUBTYPEP.FLOAT.19 - SUBTYPEP.FLOAT.20 SUBTYPEP.FLOAT.21 SUBTYPEP.FLOAT.22 - SUBTYPEP.FLOAT.23 SUBTYPEP.FLOAT.24 SUBTYPEP.FLOAT.25 - SUBTYPEP.FLOAT.26 SUBTYPEP.FLOAT.27 SUBTYPEP.RATIONAL.1 - SUBTYPEP.RATIONAL.2 SUBTYPEP.RATIONAL.3 SUBTYPEP.RATIONAL.4 - SUBTYPEP.RATIONAL.5 SUBTYPEP.RATIONAL.6 SUBTYPEP.RATIONAL.7 - SUBTYPEP.RATIONAL.8 SUBTYPEP.RATIONAL.9 SUBTYPEP.RATIONAL.10 - SUBTYPEP.RATIONAL.11 SUBTYPEP.RATIONAL.12 SUBTYPEP.RATIONAL.13 - SUBTYPEP.RATIONAL.14 SUBTYPEP.RATIONAL.15 SUBTYPEP.RATIONAL.16 - SUBTYPEP.RATIONAL.17 SUBTYPEP.RATIONAL.18 SUBTYPEP.REAL.1 - SUBTYPEP.REAL.2 SUBTYPEP.REAL.3 SUBTYPEP.REAL.4 SUBTYPEP.REAL.5 - SUBTYPEP.REAL.6 SUBTYPEP.REAL.7 SUBTYPEP.REAL.8 SUBTYPEP.REAL.9 - SUBTYPEP.REAL.10 SUBTYPEP.REAL.11 SUBTYPEP.REAL.12 SUBTYPEP.REAL.13 - SUBTYPEP.REAL.14 SUBTYPEP.REAL.15 SUBTYPEP.REAL.16 SUBTYPEP.REAL.17 - SUBTYPEP.REAL.18 SUBTYPEP.REAL.19 SUBTYPEP.REAL.20 SUBTYPEP.REAL.21 - SUBTYPEP.REAL.22 SUBTYPEP.REAL.23 SUBTYPEP.REAL.24 SUBTYPEP.CONS.1 -Test SUBTYPEP.CONS.2 failed -Form: (LOOP - FOR - T1 - IN - '((CONS NIL) (CONS NIL *) (CONS NIL T) (CONS * NIL) - (CONS T NIL) (CONS NIL NIL)) - UNLESS - (SUBTYPEP T1 NIL) - COLLECT - T1) -Expected value: NIL -Actual value: ((CONS NIL) (CONS NIL *) (CONS NIL T) (CONS * NIL) - (CONS T NIL) (CONS NIL NIL)). - SUBTYPEP.CONS.3 SUBTYPEP.CONS.4 SUBTYPEP.CONS.5 SUBTYPEP.CONS.6 - SUBTYPEP.CONS.7 SUBTYPEP.CONS.8 SUBTYPEP.CONS.9 SUBTYPEP.CONS.10 - SUBTYPEP.CONS.11 -Test SUBTYPEP.CONS.12 failed -Form: (CHECK-ALL-NOT-SUBTYPEP - '(CONS (OR INTEGER SYMBOL) (OR INTEGER SYMBOL)) - '(OR (CONS INTEGER SYMBOL) (CONS SYMBOL INTEGER))) -Expected value: NIL -Actual value: (((SUBTYPEP - '(CONS (OR INTEGER SYMBOL) (OR INTEGER SYMBOL)) - '(OR (CONS INTEGER SYMBOL) (CONS SYMBOL INTEGER))) - ==> T T) - ((SUBTYPEP - '(NOT (OR (CONS INTEGER SYMBOL) - (CONS SYMBOL INTEGER))) - '(NOT (CONS (OR INTEGER SYMBOL) - (OR INTEGER SYMBOL)))) - ==> T T)). - SUBTYPEP.CONS.13 SUBTYPEP.CONS.14 SUBTYPEP.CONS.15 SUBTYPEP.CONS.16 - SUBTYPEP.CONS.17 SUBTYPEP.CONS.18 SUBTYPEP.CONS.19 SUBTYPEP.CONS.20 - SUBTYPEP.MEMBER.1 SUBTYPEP.MEMBER.2 SUBTYPEP.MEMBER.3 - SUBTYPEP.MEMBER.4 SUBTYPEP.MEMBER.5 SUBTYPEP.MEMBER.6 - SUBTYPEP.MEMBER.7 SUBTYPEP.MEMBER.8 SUBTYPEP.MEMBER.9 - SUBTYPEP.MEMBER.10 SUBTYPEP.MEMBER.11 SUBTYPEP.MEMBER.12 - SUBTYPEP.MEMBER.13 SUBTYPEP.MEMBER.14 SUBTYPEP.MEMBER.15 - SUBTYPEP.MEMBER.16 -Test SUBTYPEP.MEMBER.17 failed -Form: (LET ((S1 (COPY-SEQ "abc")) (S2 (COPY-SEQ "abc"))) - (LET ((T1 (LIST 'MEMBER S1)) (T2 (LIST 'MEMBER S2))) - (COND - ((SUBTYPEP T1 T2) "T1 is subtype of T2") - ((SUBTYPEP T2 T1) "T2 is subtype of T1") - (T (CHECK-DISJOINTNESS T1 T2))))) -Expected value: NIL -Actual value: "T1 is subtype of T2". -Test SUBTYPEP.MEMBER.18 failed -Form: (LET ((S1 (COPY-SEQ '(A B C))) (S2 (COPY-SEQ '(A B C)))) - (LET ((T1 (LIST 'MEMBER S1)) (T2 (LIST 'MEMBER S2))) - (COND - ((SUBTYPEP T1 T2) "T1 is subtype of T2") - ((SUBTYPEP T2 T1) "T2 is subtype of T1") - (T (CHECK-DISJOINTNESS T1 T2))))) -Expected value: NIL -Actual value: "T1 is subtype of T2". - SUBTYPEP.MEMBER.19 SUBTYPEP.MEMBER.20 SUBTYPEP.MEMBER.21 - SUBTYPEP.MEMBER.22 SUBTYPEP.MEMBER.23 SUBTYPEP.MEMBER.24 - SUBTYPEP.MEMBER.25 SUBTYPEP.MEMBER.26 SUBTYPEP.MEMBER.27 - SUBTYPEP.MEMBER.28 SUBTYPEP.MEMBER.29 SUBTYPEP.MEMBER.30 - SUBTYPEP.MEMBER.31 SUBTYPEP.MEMBER.32 SUBTYPEP.MEMBER.33 - SUBTYPEP.MEMBER.34 SUBTYPEP.MEMBER.35 SUBTYPEP.MEMBER.36 - SUBTYPEP.MEMBER.37 SUBTYPEP.MEMBER.38 SUBTYPEP.MEMBER.39 - SUBTYPEP.MEMBER.40 SUBTYPEP.MEMBER.41 SUBTYPEP.MEMBER.42 - SUBTYPEP.MEMBER.43 SUBTYPEP.MEMBER.44 -Test SUBTYPEP.EQL.1 failed -Form: (LET ((S1 (COPY-SEQ "abc")) (S2 (COPY-SEQ "abc"))) - (LET ((T1 (LIST 'EQL S1)) (T2 (LIST 'EQL S2))) - (COND - ((SUBTYPEP T1 T2) "T1 is subtype of T2") - ((SUBTYPEP T2 T1) "T2 is subtype of T1") - (T (CHECK-DISJOINTNESS T1 T2))))) -Expected value: NIL -Actual value: "T1 is subtype of T2". -Test SUBTYPEP.EQL.2 failed -Form: (LET ((S1 (COPY-SEQ '(A B C))) (S2 (COPY-SEQ '(A B C)))) - (LET ((T1 (LIST 'EQL S1)) (T2 (LIST 'EQL S2))) - (COND - ((SUBTYPEP T1 T2) "T1 is subtype of T2") - ((SUBTYPEP T2 T1) "T2 is subtype of T1") - (T (CHECK-DISJOINTNESS T1 T2))))) -Expected value: NIL -Actual value: "T1 is subtype of T2". - SUBTYPEP.EQL.3 SUBTYPEP.EQL.4 SUBTYPEP.EQL.5 SUBTYPEP.EQL.6 - SUBTYPEP.EQL.7 SUBTYPEP.EQL.8 -Test SUBTYPEP.ARRAY.1 failed -Form: (LET ((ARRAY-TYPES - (CONS (FIND-CLASS 'ARRAY) - '(ARRAY (ARRAY) (ARRAY *) (ARRAY * *))))) - (LOOP - FOR - TP1 - IN - ARRAY-TYPES - APPEND - (LOOP - FOR - TP2 - IN - ARRAY-TYPES - UNLESS - (SUBTYPEP TP1 TP2) - COLLECT - (LIST TP1 TP2)))) -Expected value: NIL -Actual value: ((# ARRAY) - (# (ARRAY)) - (# (ARRAY *)) - (# (ARRAY * *)) - (ARRAY #) - ((ARRAY) - #) - ((ARRAY *) - #) - ((ARRAY * *) - #)). - SUBTYPEP.ARRAY.2 -Test SUBTYPEP.ARRAY.3 failed -Form: (LOOP - FOR - I - FROM - 0 - BELOW - (MIN 16 ARRAY-RANK-LIMIT) - FOR - TYPE - = - (LIST 'ARRAY '* I) - FOR - TYPE2 - = - (LIST 'ARRAY '* (MAKE-LIST I :INITIAL-ELEMENT '*)) - UNLESS - (AND (SUBTYPEP TYPE 'ARRAY) (SUBTYPEP TYPE '(ARRAY)) - (SUBTYPEP TYPE '(ARRAY *)) (SUBTYPEP TYPE '(ARRAY * *)) - (SUBTYPEP TYPE TYPE2)) - COLLECT - TYPE) -Expected value: NIL -Actual value: #. -Test SUBTYPEP.ARRAY.4 failed -Form: (LOOP - FOR - I - FROM - 0 - BELOW - (MIN 16 ARRAY-RANK-LIMIT) - FOR - TYPE - = - (LIST 'ARRAY T I) - FOR - TYPE2 - = - (LIST 'ARRAY T (MAKE-LIST I :INITIAL-ELEMENT '*)) - UNLESS - (AND (SUBTYPEP TYPE '(ARRAY T)) (SUBTYPEP TYPE '(ARRAY T *)) - (SUBTYPEP TYPE TYPE2)) - COLLECT - TYPE) -Expected value: NIL -Actual value: #. -Test SUBTYPEP.ARRAY.5 failed -Form: (LOOP - FOR - ELEMENT-TYPE - IN - (CONS '* *ARRAY-ELEMENT-TYPES*) - NCONC - (LOOP - FOR - I - FROM - 0 - BELOW - (MIN 16 ARRAY-RANK-LIMIT) - FOR - TYPE - = - (LIST 'ARRAY ELEMENT-TYPE I) - FOR - TYPE2 - = - (LIST 'ARRAY ELEMENT-TYPE (MAKE-LIST I :INITIAL-ELEMENT '0)) - FOR - TYPE3 - = - (LIST 'ARRAY ELEMENT-TYPE (MAKE-LIST I :INITIAL-ELEMENT '1)) - UNLESS - (AND (SUBTYPEP TYPE2 TYPE) (SUBTYPEP TYPE3 TYPE) - (LOOP - FOR - J - FROM - 0 - TO - I - ALWAYS - (AND (SUBTYPEP - (LIST 'ARRAY ELEMENT-TYPE - (APPEND (MAKE-LIST J :INITIAL-ELEMENT - '*) - (MAKE-LIST (- I J) - :INITIAL-ELEMENT 2))) - TYPE) - (SUBTYPEP - (LIST 'ARRAY ELEMENT-TYPE - (APPEND (MAKE-LIST J :INITIAL-ELEMENT - 2) - (MAKE-LIST (- I J) - :INITIAL-ELEMENT '*))) - TYPE)))) - COLLECT - TYPE)) -Expected value: NIL -Actual value: #. - SUBTYPEP.ARAY.6 SUBTYPEP.ARAY.7 READTABLE-VALID READTABLEP.1 - READ-SYMBOL.1 READ-SYMBOL.2 READ-SYMBOL.3 READ-SYMBOL.4 READ-SYMBOL.5 - READ-SYMBOL.6 READ-SYMBOL.7 READ-SYMBOL.9 READ-SYMBOL.10 CHAR.1 CHAR.2 - CHAR.3 CHAR.4 CHAR.5 CHAR.6 CHAR.7 CHAR.8 CHAR.9 CHAR.10 CHAR.ORDER.1 - CHAR.ORDER.2 SCHAR.1 SCHAR.2 SCHAR.3 SCHAR.4 SCHAR.5 SCHAR.6 SCHAR.7 - SCHAR.ORDER.1 SCHAR.ORDER.2 STRING.1 STRING.2 STRING.3 STRING.4 - STRING.5 STRING.6 STRING.7 BASE-STRING.1 BASE-STRING.2 BASE-STRING.3 - BASE-STRING.4 SIMPLE-STRING.1 SIMPLE-STRING.2 SIMPLE-STRING.3 - SIMPLE-STRING.4 SIMPLE-STRING.5 SIMPLE-BASE-STRING.1 - SIMPLE-BASE-STRING.2 SIMPLE-BASE-STRING.3 SIMPLE-BASE-STRING.4 - SIMPLE-BASE-STRING.5 SIMPLE-BASE-STRING.6 SIMPLE-BASE-STRING.7 - SIMPLE-BASE-STRING.8 SIMPLE-STRING-P.1 SIMPLE-STRING-P.2 - SIMPLE-STRING-P.3 SIMPLE-STRING-P.4 SIMPLE-STRING-P.5 - SIMPLE-STRING-P.6 SIMPLE-STRING-P.7 STRINGP.1 STRINGP.2 STRINGP.3 - STRINGP.4 STRINGP.5 STRINGP.6 STRINGP.7 STRINGP.8 STRING-UPCASE.1 - STRING-UPCASE.2 STRING-UPCASE.3 STRING-UPCASE.4 STRING-UPCASE.5 - STRING-UPCASE.6 STRING-UPCASE.7 STRING-UPCASE.8 STRING-UPCASE.9 - STRING-UPCASE.10 STRING-UPCASE.ORDER.1 STRING-UPCASE.ORDER.2 - STRING-UPCASE.ERROR.1 STRING-UPCASE.ERROR.2 STRING-UPCASE.ERROR.3 - STRING-UPCASE.ERROR.4 STRING-UPCASE.ERROR.5 STRING-UPCASE.ERROR.6 - STRING-DOWNCASE.1 STRING-DOWNCASE.2 STRING-DOWNCASE.3 - STRING-DOWNCASE.4 STRING-DOWNCASE.5 STRING-DOWNCASE.6 - STRING-DOWNCASE.7 STRING-DOWNCASE.8 STRING-DOWNCASE.9 - STRING-DOWNCASE.10 STRING-DOWNCASE.ORDER.1 STRING-DOWNCASE.ORDER.2 - STRING-DOWNCASE.ERROR.1 STRING-DOWNCASE.ERROR.2 - STRING-DOWNCASE.ERROR.3 STRING-DOWNCASE.ERROR.4 - STRING-DOWNCASE.ERROR.5 STRING-DOWNCASE.ERROR.6 STRING-CAPITALIZE.1 - STRING-CAPITALIZE.2 STRING-CAPITALIZE.3 STRING-CAPITALIZE.4 - STRING-CAPITALIZE.5 STRING-CAPITALIZE.6 STRING-CAPITALIZE.7 - STRING-CAPITALIZE.8 STRING-CAPITALIZE.9 STRING-CAPITALIZE.10 - STRING-CAPITALIZE.ORDER.1 STRING-CAPITALIZE.ORDER.2 - STRING-CAPITALIZE.ERROR.1 STRING-CAPITALIZE.ERROR.2 - STRING-CAPITALIZE.ERROR.3 STRING-CAPITALIZE.ERROR.4 - STRING-CAPITALIZE.ERROR.5 STRING-CAPITALIZE.ERROR.6 NSTRING-UPCASE.1 - NSTRING-UPCASE.2 NSTRING-UPCASE.3 NSTRING-UPCASE.6 NSTRING-UPCASE.7 - NSTRING-UPCASE.8 NSTRING-UPCASE.9 NSTRING-UPCASE.10 - NSTRING-UPCASE.ORDER.1 NSTRING-UPCASE.ORDER.2 NSTRING-UPCASE.ERROR.1 - NSTRING-UPCASE.ERROR.2 NSTRING-UPCASE.ERROR.3 NSTRING-UPCASE.ERROR.4 - NSTRING-UPCASE.ERROR.5 NSTRING-UPCASE.ERROR.6 NSTRING-DOWNCASE.1 - NSTRING-DOWNCASE.2 NSTRING-DOWNCASE.3 NSTRING-DOWNCASE.6 - NSTRING-DOWNCASE.7 NSTRING-DOWNCASE.8 NSTRING-DOWNCASE.9 - NSTRING-DOWNCASE.10 NSTRING-DOWNCASE.ORDER.1 NSTRING-DOWNCASE.ORDER.2 - NSTRING-DOWNCASE.ERROR.1 NSTRING-DOWNCASE.ERROR.2 - NSTRING-DOWNCASE.ERROR.3 NSTRING-DOWNCASE.ERROR.4 - NSTRING-DOWNCASE.ERROR.5 NSTRING-DOWNCASE.ERROR.6 NSTRING-CAPITALIZE.1 - NSTRING-CAPITALIZE.2 NSTRING-CAPITALIZE.3 NSTRING-CAPITALIZE.4 - NSTRING-CAPITALIZE.7 NSTRING-CAPITALIZE.8 NSTRING-CAPITALIZE.9 - NSTRING-CAPITALIZE.10 NSTRING-CAPITALIZE.ORDER.1 - NSTRING-CAPITALIZE.ORDER.2 NSTRING-CAPITALIZE.ERROR.1 - NSTRING-CAPITALIZE.ERROR.2 NSTRING-CAPITALIZE.ERROR.3 - NSTRING-CAPITALIZE.ERROR.4 NSTRING-CAPITALIZE.ERROR.5 - NSTRING-CAPITALIZE.ERROR.6 STRING-TRIM.1 STRING-TRIM.2 STRING-TRIM.3 - STRING-TRIM.4 STRING-TRIM.5 STRING-TRIM.6 STRING-TRIM.7 STRING-TRIM.8 - STRING-TRIM.9 STRING-TRIM.10 STRING-TRIM.11 STRING-TRIM.12 - STRING-TRIM.13 STRING-TRIM.14 STRING-TRIM.15 STRING-TRIM.16 - STRING-TRIM.17 STRING-TRIM.18 STRING-TRIM.19 STRING-TRIM.ORDER.1 - STRING-TRIM.ERROR.1 STRING-TRIM.ERROR.2 STRING-TRIM.ERROR.3 - STRING-LEFT-TRIM.1 STRING-LEFT-TRIM.2 STRING-LEFT-TRIM.3 - STRING-LEFT-TRIM.4 STRING-LEFT-TRIM.5 STRING-LEFT-TRIM.6 - STRING-LEFT-TRIM.7 STRING-LEFT-TRIM.8 STRING-LEFT-TRIM.9 - STRING-LEFT-TRIM.10 STRING-LEFT-TRIM.11 STRING-LEFT-TRIM.12 - STRING-LEFT-TRIM.13 STRING-LEFT-TRIM.14 STRING-LEFT-TRIM.15 - STRING-LEFT-TRIM.16 STRING-LEFT-TRIM.17 STRING-LEFT-TRIM.18 - STRING-LEFT-TRIM.19 STRING-LEFT-TRIM.ORDER.1 STRING-LEFT-TRIM.ERROR.1 - STRING-LEFT-TRIM.ERROR.2 STRING-LEFT-TRIM.ERROR.3 STRING-RIGHT-TRIM.1 - STRING-RIGHT-TRIM.2 STRING-RIGHT-TRIM.3 STRING-RIGHT-TRIM.4 - STRING-RIGHT-TRIM.5 STRING-RIGHT-TRIM.6 STRING-RIGHT-TRIM.7 - STRING-RIGHT-TRIM.8 STRING-RIGHT-TRIM.9 STRING-RIGHT-TRIM.10 - STRING-RIGHT-TRIM.11 STRING-RIGHT-TRIM.12 STRING-RIGHT-TRIM.13 - STRING-RIGHT-TRIM.14 STRING-RIGHT-TRIM.15 STRING-RIGHT-TRIM.16 - STRING-RIGHT-TRIM.17 STRING-RIGHT-TRIM.18 STRING-RIGHT-TRIM.19 - STRING-RIGHT-TRIM.ORDER.1 STRING-RIGHT-TRIM.ERROR.1 - STRING-RIGHT-TRIM.ERROR.2 STRING-RIGHT-TRIM.ERROR.3 STRING=.1 - STRING=.2 STRING=.3 STRING=.4 STRING=.5 STRING=.6 STRING=.7 STRING=.8 - STRING=.9 STRING=.10 STRING=.11 STRING=.12 STRING=.13 STRING=.14 - STRING=.ORDER.1 STRING=.ORDER.2 STRING=.ORDER.3 STRING<=.ORDER.1 - STRING<=.ORDER.2 STRING<=.ORDER.3 STRING<.ORDER.1 STRING<.ORDER.2 - STRING<.ORDER.3 STRING/=.ORDER.1 STRING/=.ORDER.2 STRING/=.ORDER.3 - STRING>=.ORDER.1 STRING>=.ORDER.2 STRING>=.ORDER.3 STRING>.ORDER.1 - STRING>.ORDER.2 STRING>.ORDER.3 STRING-EQUAL.ORDER.1 - STRING-EQUAL.ORDER.2 STRING-EQUAL.ORDER.3 STRING-NOT-GREATERP.ORDER.1 - STRING-NOT-GREATERP.ORDER.2 STRING-NOT-GREATERP.ORDER.3 - STRING-LESSP.ORDER.1 STRING-LESSP.ORDER.2 STRING-LESSP.ORDER.3 - STRING-NOT-EQUAL.ORDER.1 STRING-NOT-EQUAL.ORDER.2 - STRING-NOT-EQUAL.ORDER.3 STRING-NOT-LESSP.ORDER.1 - STRING-NOT-LESSP.ORDER.2 STRING-NOT-LESSP.ORDER.3 - STRING-GREATERP.ORDER.1 STRING-GREATERP.ORDER.2 - STRING-GREATERP.ORDER.3 TYPES.7C -Should be atomic, but isn't: CONDITION -Test TYPES.8 failed -Form: (LOOP - FOR - TP - IN - *DISJOINT-TYPES-LIST* - COUNT - (COND - ((AND (NOT (EQT TP 'CONS)) (NOT (SUBTYPEP* TP 'ATOM))) - (FORMAT T "~%Should be atomic, but isn't: ~S" TP) T))) -Expected value: 0 -Actual value: 1. - TYPES.9Found element of FUNCTION not in ATOM: (SYSTEM:LAMBDA-CLOSURE - () () () (X) - X) -Found element of ARRAY not in SIMPLE-ARRAY: #0ANIL -Found element of ARRAY not in SIMPLE-ARRAY: #(NIL NIL) -Found element of ARRAY not in SIMPLE-ARRAY: #2A((NIL NIL) (NIL NIL)) -Found element of ARRAY not in SIMPLE-ARRAY: #3A(((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL))) -Found element of ARRAY not in SIMPLE-ARRAY: #4A((((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL))) - (((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL)))) -Found element of ARRAY not in SIMPLE-ARRAY: #5A(((((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL))) - (((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL)))) - ((((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL))) - (((NIL NIL) (NIL NIL)) - ((NIL NIL) (NIL NIL))))) -Found element of ARRAY not in SIMPLE-ARRAY: #6A((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))))) -Found element of ARRAY not in SIMPLE-ARRAY: #7A(((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))))) - ((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))))) -Found element of ARRAY not in SIMPLE-ARRAY: #8A((((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))))) - ((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))))) - (((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))))) - ((((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))))) - (((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))) - ((((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL))) - (((NIL NIL) - (NIL NIL)) - ((NIL NIL) - (NIL NIL)))))))) -Found element of VECTOR not in SIMPLE-ARRAY: #(NIL NIL) -Test TYPES.9A failed -Form: (TYPES.9A-BODY) -Expected value: 0 -Actual value: 11. -Test ALL-CLASSES-ARE-TYPE-EQUIVALENT-TO-THEIR-NAMES failed -Form: (LOOP - FOR - SYM - BEING - THE - EXTERNAL-SYMBOLS - OF - "COMMON-LISP" - FOR - CLASS - = - (FIND-CLASS SYM NIL) - WHEN - CLASS - APPEND - (CHECK-EQUIVALENCE SYM CLASS)) -Expected value: NIL -Actual value: (((SUBTYPEP 'STRUCTURE-OBJECT - #) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STRUCTURE-OBJECT)) - ==> NIL T) - ((SUBTYPEP 'ARITHMETIC-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'ARITHMETIC-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT ARITHMETIC-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT ARITHMETIC-ERROR)) - ==> NIL T) - ((SUBTYPEP 'SYMBOL - #) - ==> NIL T) - ((SUBTYPEP - # 'SYMBOL) - ==> NIL T) - ((SUBTYPEP '(NOT SYMBOL) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SYMBOL)) - ==> NIL T) - ((SUBTYPEP 'CONTROL-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'CONTROL-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT CONTROL-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT CONTROL-ERROR)) - ==> NIL T) - ((SUBTYPEP 'CLASS - #) - ==> NIL T) - ((SUBTYPEP - # 'CLASS) - ==> NIL T) - ((SUBTYPEP '(NOT CLASS) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT CLASS)) - ==> NIL T) - ((SUBTYPEP 'SIMPLE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'SIMPLE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT SIMPLE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SIMPLE-ERROR)) - ==> NIL T) - ((SUBTYPEP T - #) - ==> NIL T) - ((SUBTYPEP - # T) - ==> NIL T) - ((SUBTYPEP '(NOT T) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) '(NOT T)) - ==> NIL T) - ((SUBTYPEP 'COMPLEX - #) - ==> NIL T) - ((SUBTYPEP - # 'COMPLEX) - ==> NIL T) - ((SUBTYPEP '(NOT COMPLEX) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT COMPLEX)) - ==> NIL T) - ((SUBTYPEP 'ARRAY - #) - ==> NIL T) - ((SUBTYPEP - # 'ARRAY) - ==> NIL T) - ((SUBTYPEP '(NOT ARRAY) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT ARRAY)) - ==> NIL T) - ((SUBTYPEP 'FLOATING-POINT-INEXACT - #) - ==> NIL T) - ((SUBTYPEP - # - 'FLOATING-POINT-INEXACT) - ==> NIL T) - ((SUBTYPEP '(NOT FLOATING-POINT-INEXACT) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FLOATING-POINT-INEXACT)) - ==> NIL T) - ((SUBTYPEP 'NUMBER - #) - ==> NIL T) - ((SUBTYPEP - # 'NUMBER) - ==> NIL T) - ((SUBTYPEP '(NOT NUMBER) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT NUMBER)) - ==> NIL T) - ((SUBTYPEP 'NULL - #) - ==> NIL T) - ((SUBTYPEP - # 'NULL) - ==> NIL T) - ((SUBTYPEP '(NOT NULL) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) '(NOT NULL)) - ==> NIL T) - ((SUBTYPEP 'FLOATING-POINT-UNDERFLOW - #) - ==> NIL T) - ((SUBTYPEP - # - 'FLOATING-POINT-UNDERFLOW) - ==> NIL T) - ((SUBTYPEP '(NOT FLOATING-POINT-UNDERFLOW) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FLOATING-POINT-UNDERFLOW)) - ==> NIL T) - ((SUBTYPEP 'FLOATING-POINT-OVERFLOW - #) - ==> NIL T) - ((SUBTYPEP - # - 'FLOATING-POINT-OVERFLOW) - ==> NIL T) - ((SUBTYPEP '(NOT FLOATING-POINT-OVERFLOW) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FLOATING-POINT-OVERFLOW)) - ==> NIL T) - ((SUBTYPEP 'RATIONAL - #) - ==> NIL T) - ((SUBTYPEP - # 'RATIONAL) - ==> NIL T) - ((SUBTYPEP '(NOT RATIONAL) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT RATIONAL)) - ==> NIL T) - ((SUBTYPEP 'RATIO - #) - ==> NIL T) - ((SUBTYPEP - # 'RATIO) - ==> NIL T) - ((SUBTYPEP '(NOT RATIO) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT RATIO)) - ==> NIL T) - ((SUBTYPEP 'STANDARD-METHOD - #) - ==> NIL T) - ((SUBTYPEP - # - 'STANDARD-METHOD) - ==> NIL T) - ((SUBTYPEP '(NOT STANDARD-METHOD) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STANDARD-METHOD)) - ==> NIL T) - ((SUBTYPEP 'STRUCTURE-CLASS - #) - ==> NIL T) - ((SUBTYPEP - # - 'STRUCTURE-CLASS) - ==> NIL T) - ((SUBTYPEP '(NOT STRUCTURE-CLASS) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STRUCTURE-CLASS)) - ==> NIL T) - ((SUBTYPEP 'BUILT-IN-CLASS - #) - ==> NIL T) - ((SUBTYPEP - # - 'BUILT-IN-CLASS) - ==> NIL T) - ((SUBTYPEP '(NOT BUILT-IN-CLASS) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT BUILT-IN-CLASS)) - ==> NIL T) - ((SUBTYPEP 'UNBOUND-SLOT - #) - ==> NIL T) - ((SUBTYPEP - # - 'UNBOUND-SLOT) - ==> NIL T) - ((SUBTYPEP '(NOT UNBOUND-SLOT) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT UNBOUND-SLOT)) - ==> NIL T) - ((SUBTYPEP 'ERROR - #) - ==> NIL T) - ((SUBTYPEP - # 'ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT ERROR)) - ==> NIL T) - ((SUBTYPEP 'STANDARD-GENERIC-FUNCTION - #) - ==> NIL T) - ((SUBTYPEP - # - 'STANDARD-GENERIC-FUNCTION) - ==> NIL T) - ((SUBTYPEP '(NOT STANDARD-GENERIC-FUNCTION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STANDARD-GENERIC-FUNCTION)) - ==> NIL T) - ((SUBTYPEP 'CHARACTER - #) - ==> NIL T) - ((SUBTYPEP - # 'CHARACTER) - ==> NIL T) - ((SUBTYPEP '(NOT CHARACTER) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT CHARACTER)) - ==> NIL T) - ((SUBTYPEP 'DIVISION-BY-ZERO - #) - ==> NIL T) - ((SUBTYPEP - # - 'DIVISION-BY-ZERO) - ==> NIL T) - ((SUBTYPEP '(NOT DIVISION-BY-ZERO) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT DIVISION-BY-ZERO)) - ==> NIL T) - ((SUBTYPEP 'SEQUENCE - #) - ==> NIL T) - ((SUBTYPEP - # 'SEQUENCE) - ==> NIL T) - ((SUBTYPEP '(NOT SEQUENCE) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SEQUENCE)) - ==> NIL T) - ((SUBTYPEP 'PRINT-NOT-READABLE - #) - ==> NIL T) - ((SUBTYPEP - # - 'PRINT-NOT-READABLE) - ==> NIL T) - ((SUBTYPEP '(NOT PRINT-NOT-READABLE) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT PRINT-NOT-READABLE)) - ==> NIL T) - ((SUBTYPEP 'UNDEFINED-FUNCTION - #) - ==> NIL T) - ((SUBTYPEP - # - 'UNDEFINED-FUNCTION) - ==> NIL T) - ((SUBTYPEP '(NOT UNDEFINED-FUNCTION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT UNDEFINED-FUNCTION)) - ==> NIL T) - ((SUBTYPEP 'END-OF-FILE - #) - ==> NIL T) - ((SUBTYPEP - # - 'END-OF-FILE) - ==> NIL T) - ((SUBTYPEP '(NOT END-OF-FILE) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT END-OF-FILE)) - ==> NIL T) - ((SUBTYPEP 'INTEGER - #) - ==> NIL T) - ((SUBTYPEP - # 'INTEGER) - ==> NIL T) - ((SUBTYPEP '(NOT INTEGER) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT INTEGER)) - ==> NIL T) - ((SUBTYPEP 'FLOAT - #) - ==> NIL T) - ((SUBTYPEP - # 'FLOAT) - ==> NIL T) - ((SUBTYPEP '(NOT FLOAT) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FLOAT)) - ==> NIL T) - ((SUBTYPEP 'BIT-VECTOR - #) - ==> NIL T) - ((SUBTYPEP - # 'BIT-VECTOR) - ==> NIL T) - ((SUBTYPEP '(NOT BIT-VECTOR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT BIT-VECTOR)) - ==> NIL T) - ((SUBTYPEP 'STYLE-WARNING - #) - ==> NIL T) - ((SUBTYPEP - # - 'STYLE-WARNING) - ==> NIL T) - ((SUBTYPEP '(NOT STYLE-WARNING) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STYLE-WARNING)) - ==> NIL T) - ((SUBTYPEP 'SIMPLE-TYPE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'SIMPLE-TYPE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT SIMPLE-TYPE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SIMPLE-TYPE-ERROR)) - ==> NIL T) - ((SUBTYPEP 'CELL-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # 'CELL-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT CELL-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT CELL-ERROR)) - ==> NIL T) - ((SUBTYPEP 'FILE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # 'FILE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT FILE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FILE-ERROR)) - ==> NIL T) - ((SUBTYPEP 'RESTART - #) - ==> NIL T) - ((SUBTYPEP - # 'RESTART) - ==> NIL T) - ((SUBTYPEP '(NOT RESTART) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT RESTART)) - ==> NIL T) - ((SUBTYPEP 'TYPE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # 'TYPE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT TYPE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT TYPE-ERROR)) - ==> NIL T) - ((SUBTYPEP 'LIST - #) - ==> NIL T) - ((SUBTYPEP - # 'LIST) - ==> NIL T) - ((SUBTYPEP '(NOT LIST) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) '(NOT LIST)) - ==> NIL T) - ((SUBTYPEP 'STANDARD-OBJECT - #) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STANDARD-OBJECT)) - ==> NIL T) - ((SUBTYPEP 'STRING - #) - ==> NIL T) - ((SUBTYPEP - # 'STRING) - ==> NIL T) - ((SUBTYPEP '(NOT STRING) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STRING)) - ==> NIL T) - ((SUBTYPEP 'METHOD-COMBINATION - #) - ==> NIL T) - ((SUBTYPEP - # - 'METHOD-COMBINATION) - ==> NIL T) - ((SUBTYPEP '(NOT METHOD-COMBINATION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT METHOD-COMBINATION)) - ==> NIL T) - ((SUBTYPEP 'CONS - #) - ==> NIL T) - ((SUBTYPEP - # 'CONS) - ==> NIL T) - ((SUBTYPEP '(NOT CONS) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) '(NOT CONS)) - ==> NIL T) - ((SUBTYPEP 'SIMPLE-CONDITION - #) - ==> NIL T) - ((SUBTYPEP - # - 'SIMPLE-CONDITION) - ==> NIL T) - ((SUBTYPEP '(NOT SIMPLE-CONDITION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SIMPLE-CONDITION)) - ==> NIL T) - ((SUBTYPEP 'SIMPLE-WARNING - #) - ==> NIL T) - ((SUBTYPEP - # - 'SIMPLE-WARNING) - ==> NIL T) - ((SUBTYPEP '(NOT SIMPLE-WARNING) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SIMPLE-WARNING)) - ==> NIL T) - ((SUBTYPEP 'PACKAGE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'PACKAGE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT PACKAGE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT PACKAGE-ERROR)) - ==> NIL T) - ((SUBTYPEP 'PARSE-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'PARSE-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT PARSE-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT PARSE-ERROR)) - ==> NIL T) - ((SUBTYPEP 'WARNING - #) - ==> NIL T) - ((SUBTYPEP - # 'WARNING) - ==> NIL T) - ((SUBTYPEP '(NOT WARNING) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT WARNING)) - ==> NIL T) - ((SUBTYPEP 'STORAGE-CONDITION - #) - ==> NIL T) - ((SUBTYPEP - # - 'STORAGE-CONDITION) - ==> NIL T) - ((SUBTYPEP '(NOT STORAGE-CONDITION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STORAGE-CONDITION)) - ==> NIL T) - ((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION - #) - ==> NIL T) - ((SUBTYPEP - # - 'FLOATING-POINT-INVALID-OPERATION) - ==> NIL T) - ((SUBTYPEP '(NOT FLOATING-POINT-INVALID-OPERATION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT FLOATING-POINT-INVALID-OPERATION)) - ==> NIL T) - ((SUBTYPEP 'PROGRAM-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'PROGRAM-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT PROGRAM-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT PROGRAM-ERROR)) - ==> NIL T) - ((SUBTYPEP 'METHOD - #) - ==> NIL T) - ((SUBTYPEP - # 'METHOD) - ==> NIL T) - ((SUBTYPEP '(NOT METHOD) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT METHOD)) - ==> NIL T) - ((SUBTYPEP 'STANDARD-CLASS - #) - ==> NIL T) - ((SUBTYPEP - # - 'STANDARD-CLASS) - ==> NIL T) - ((SUBTYPEP '(NOT STANDARD-CLASS) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STANDARD-CLASS)) - ==> NIL T) - ((SUBTYPEP 'GENERIC-FUNCTION - #) - ==> NIL T) - ((SUBTYPEP - # - 'GENERIC-FUNCTION) - ==> NIL T) - ((SUBTYPEP '(NOT GENERIC-FUNCTION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT GENERIC-FUNCTION)) - ==> NIL T) - ((SUBTYPEP 'STREAM-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'STREAM-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT STREAM-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT STREAM-ERROR)) - ==> NIL T) - ((SUBTYPEP 'SERIOUS-CONDITION - #) - ==> NIL T) - ((SUBTYPEP - # - 'SERIOUS-CONDITION) - ==> NIL T) - ((SUBTYPEP '(NOT SERIOUS-CONDITION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT SERIOUS-CONDITION)) - ==> NIL T) - ((SUBTYPEP 'READER-ERROR - #) - ==> NIL T) - ((SUBTYPEP - # - 'READER-ERROR) - ==> NIL T) - ((SUBTYPEP '(NOT READER-ERROR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT READER-ERROR)) - ==> NIL T) - ((SUBTYPEP 'REAL - #) - ==> NIL T) - ((SUBTYPEP - # 'REAL) - ==> NIL T) - ((SUBTYPEP '(NOT REAL) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) '(NOT REAL)) - ==> NIL T) - ((SUBTYPEP 'VECTOR - #) - ==> NIL T) - ((SUBTYPEP - # 'VECTOR) - ==> NIL T) - ((SUBTYPEP '(NOT VECTOR) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT VECTOR)) - ==> NIL T) - ((SUBTYPEP 'CONDITION - #) - ==> NIL T) - ((SUBTYPEP - # 'CONDITION) - ==> NIL T) - ((SUBTYPEP '(NOT CONDITION) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) - '(NOT CONDITION)) - ==> NIL T) - ((SUBTYPEP 'UNBOUND-VARIABLE - #) - ==> NIL T) - ((SUBTYPEP - # - 'UNBOUND-VARIABLE) - ==> NIL T) - ((SUBTYPEP '(NOT UNBOUND-VARIABLE) - '(NOT #)) - ==> NIL T) - ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT UNBOUND-VARIABLE)) ==> NIL T)). Test ALL-STANDARD-CLASSES-ARE-SUBTYPES-OF-STANDARD-OBJECT failed @@ -30257,7 +30212,88 @@ FILE-WRITE-DATE.3 FILE-WRITE-DATE.4 FILE-WRITE-DATE.5 FILE-WRITE-DATE.6 FILE-WRITE-DATE.ERROR.1 FILE-WRITE-DATE.ERROR.2 FILE-WRITE-DATE.ERROR.3 FILE-WRITE-DATE.ERROR.4 RENAME-FILE.1 - RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 RANDOM-STRING-COMPARISON-TESTS MAKE-STRING.1 + RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 STRING.7 BASE-STRING.1 BASE-STRING.2 BASE-STRING.3 + BASE-STRING.4 SIMPLE-STRING.1 SIMPLE-STRING.2 SIMPLE-STRING.3 + SIMPLE-STRING.4 SIMPLE-STRING.5 SIMPLE-BASE-STRING.1 + SIMPLE-BASE-STRING.2 SIMPLE-BASE-STRING.3 SIMPLE-BASE-STRING.4 + SIMPLE-BASE-STRING.5 SIMPLE-BASE-STRING.6 SIMPLE-BASE-STRING.7 + SIMPLE-BASE-STRING.8 SIMPLE-STRING-P.1 SIMPLE-STRING-P.2 + SIMPLE-STRING-P.3 SIMPLE-STRING-P.4 SIMPLE-STRING-P.5 + SIMPLE-STRING-P.6 SIMPLE-STRING-P.7 STRINGP.1 STRINGP.2 STRINGP.3 + STRINGP.4 STRINGP.5 STRINGP.6 STRINGP.7 STRINGP.8 STRING-UPCASE.1 + STRING-UPCASE.2 STRING-UPCASE.3 STRING-UPCASE.4 STRING-UPCASE.5 + STRING-UPCASE.6 STRING-UPCASE.7 STRING-UPCASE.8 STRING-UPCASE.9 + STRING-UPCASE.10 STRING-UPCASE.ORDER.1 STRING-UPCASE.ORDER.2 + STRING-UPCASE.ERROR.1 STRING-UPCASE.ERROR.2 STRING-UPCASE.ERROR.3 + STRING-UPCASE.ERROR.4 STRING-UPCASE.ERROR.5 STRING-UPCASE.ERROR.6 + STRING-DOWNCASE.1 STRING-DOWNCASE.2 STRING-DOWNCASE.3 + STRING-DOWNCASE.4 STRING-DOWNCASE.5 STRING-DOWNCASE.6 + STRING-DOWNCASE.7 STRING-DOWNCASE.8 STRING-DOWNCASE.9 + STRING-DOWNCASE.10 STRING-DOWNCASE.ORDER.1 STRING-DOWNCASE.ORDER.2 + STRING-DOWNCASE.ERROR.1 STRING-DOWNCASE.ERROR.2 + STRING-DOWNCASE.ERROR.3 STRING-DOWNCASE.ERROR.4 + STRING-DOWNCASE.ERROR.5 STRING-DOWNCASE.ERROR.6 STRING-CAPITALIZE.1 + STRING-CAPITALIZE.2 STRING-CAPITALIZE.3 STRING-CAPITALIZE.4 + STRING-CAPITALIZE.5 STRING-CAPITALIZE.6 STRING-CAPITALIZE.7 + STRING-CAPITALIZE.8 STRING-CAPITALIZE.9 STRING-CAPITALIZE.10 + STRING-CAPITALIZE.ORDER.1 STRING-CAPITALIZE.ORDER.2 + STRING-CAPITALIZE.ERROR.1 STRING-CAPITALIZE.ERROR.2 + STRING-CAPITALIZE.ERROR.3 STRING-CAPITALIZE.ERROR.4 + STRING-CAPITALIZE.ERROR.5 STRING-CAPITALIZE.ERROR.6 NSTRING-UPCASE.1 + NSTRING-UPCASE.2 NSTRING-UPCASE.3 NSTRING-UPCASE.6 NSTRING-UPCASE.7 + NSTRING-UPCASE.8 NSTRING-UPCASE.9 NSTRING-UPCASE.10 + NSTRING-UPCASE.ORDER.1 NSTRING-UPCASE.ORDER.2 NSTRING-UPCASE.ERROR.1 + NSTRING-UPCASE.ERROR.2 NSTRING-UPCASE.ERROR.3 NSTRING-UPCASE.ERROR.4 + NSTRING-UPCASE.ERROR.5 NSTRING-UPCASE.ERROR.6 NSTRING-DOWNCASE.1 + NSTRING-DOWNCASE.2 NSTRING-DOWNCASE.3 NSTRING-DOWNCASE.6 + NSTRING-DOWNCASE.7 NSTRING-DOWNCASE.8 NSTRING-DOWNCASE.9 + NSTRING-DOWNCASE.10 NSTRING-DOWNCASE.ORDER.1 NSTRING-DOWNCASE.ORDER.2 + NSTRING-DOWNCASE.ERROR.1 NSTRING-DOWNCASE.ERROR.2 + NSTRING-DOWNCASE.ERROR.3 NSTRING-DOWNCASE.ERROR.4 + NSTRING-DOWNCASE.ERROR.5 NSTRING-DOWNCASE.ERROR.6 NSTRING-CAPITALIZE.1 + NSTRING-CAPITALIZE.2 NSTRING-CAPITALIZE.3 NSTRING-CAPITALIZE.4 + NSTRING-CAPITALIZE.7 NSTRING-CAPITALIZE.8 NSTRING-CAPITALIZE.9 + NSTRING-CAPITALIZE.10 NSTRING-CAPITALIZE.ORDER.1 + NSTRING-CAPITALIZE.ORDER.2 NSTRING-CAPITALIZE.ERROR.1 + NSTRING-CAPITALIZE.ERROR.2 NSTRING-CAPITALIZE.ERROR.3 + NSTRING-CAPITALIZE.ERROR.4 NSTRING-CAPITALIZE.ERROR.5 + NSTRING-CAPITALIZE.ERROR.6 STRING-TRIM.1 STRING-TRIM.2 STRING-TRIM.3 + STRING-TRIM.4 STRING-TRIM.5 STRING-TRIM.6 STRING-TRIM.7 STRING-TRIM.8 + STRING-TRIM.9 STRING-TRIM.10 STRING-TRIM.11 STRING-TRIM.12 + STRING-TRIM.13 STRING-TRIM.14 STRING-TRIM.15 STRING-TRIM.16 + STRING-TRIM.17 STRING-TRIM.18 STRING-TRIM.19 STRING-TRIM.ORDER.1 + STRING-TRIM.ERROR.1 STRING-TRIM.ERROR.2 STRING-TRIM.ERROR.3 + STRING-LEFT-TRIM.1 STRING-LEFT-TRIM.2 STRING-LEFT-TRIM.3 + STRING-LEFT-TRIM.4 STRING-LEFT-TRIM.5 STRING-LEFT-TRIM.6 + STRING-LEFT-TRIM.7 STRING-LEFT-TRIM.8 STRING-LEFT-TRIM.9 + STRING-LEFT-TRIM.10 STRING-LEFT-TRIM.11 STRING-LEFT-TRIM.12 + STRING-LEFT-TRIM.13 STRING-LEFT-TRIM.14 STRING-LEFT-TRIM.15 + STRING-LEFT-TRIM.16 STRING-LEFT-TRIM.17 STRING-LEFT-TRIM.18 + STRING-LEFT-TRIM.19 STRING-LEFT-TRIM.ORDER.1 STRING-LEFT-TRIM.ERROR.1 + STRING-LEFT-TRIM.ERROR.2 STRING-LEFT-TRIM.ERROR.3 STRING-RIGHT-TRIM.1 + STRING-RIGHT-TRIM.2 STRING-RIGHT-TRIM.3 STRING-RIGHT-TRIM.4 + STRING-RIGHT-TRIM.5 STRING-RIGHT-TRIM.6 STRING-RIGHT-TRIM.7 + STRING-RIGHT-TRIM.8 STRING-RIGHT-TRIM.9 STRING-RIGHT-TRIM.10 + STRING-RIGHT-TRIM.11 STRING-RIGHT-TRIM.12 STRING-RIGHT-TRIM.13 + STRING-RIGHT-TRIM.14 STRING-RIGHT-TRIM.15 STRING-RIGHT-TRIM.16 + STRING-RIGHT-TRIM.17 STRING-RIGHT-TRIM.18 STRING-RIGHT-TRIM.19 + STRING-RIGHT-TRIM.ORDER.1 STRING-RIGHT-TRIM.ERROR.1 + STRING-RIGHT-TRIM.ERROR.2 STRING-RIGHT-TRIM.ERROR.3 STRING=.1 + STRING=.2 STRING=.3 STRING=.4 STRING=.5 STRING=.6 STRING=.7 STRING=.8 + STRING=.9 STRING=.10 STRING=.11 STRING=.12 STRING=.13 STRING=.14 + STRING=.ORDER.1 STRING=.ORDER.2 STRING=.ORDER.3 STRING<=.ORDER.1 + STRING<=.ORDER.2 STRING<=.ORDER.3 STRING<.ORDER.1 STRING<.ORDER.2 + STRING<.ORDER.3 STRING/=.ORDER.1 STRING/=.ORDER.2 STRING/=.ORDER.3 + STRING>=.ORDER.1 STRING>=.ORDER.2 STRING>=.ORDER.3 STRING>.ORDER.1 + STRING>.ORDER.2 STRING>.ORDER.3 STRING-EQUAL.ORDER.1 + STRING-EQUAL.ORDER.2 STRING-EQUAL.ORDER.3 STRING-NOT-GREATERP.ORDER.1 + STRING-NOT-GREATERP.ORDER.2 STRING-NOT-GREATERP.ORDER.3 + STRING-LESSP.ORDER.1 STRING-LESSP.ORDER.2 STRING-LESSP.ORDER.3 + STRING-NOT-EQUAL.ORDER.1 STRING-NOT-EQUAL.ORDER.2 + STRING-NOT-EQUAL.ORDER.3 STRING-NOT-LESSP.ORDER.1 + STRING-NOT-LESSP.ORDER.2 STRING-NOT-LESSP.ORDER.3 + STRING-GREATERP.ORDER.1 STRING-GREATERP.ORDER.2 + STRING-GREATERP.ORDER.3 RANDOM-STRING-COMPARISON-TESTS MAKE-STRING.1 MAKE-STRING.2 MAKE-STRING.3 MAKE-STRING.4 MAKE-STRING.5 MAKE-STRING.6 MAKE-STRING.7 MAKE-STRING.8 MAKE-STRING.9 MAKE-STRING.ALLOW-OTHER-KEYS.1 MAKE-STRING.ALLOW-OTHER-KEYS.2 @@ -30380,7 +30416,22 @@ FILE-WRITE-DATE.3 FILE-WRITE-DATE.4 FILE-WRITE-DATE.5 FILE-WRITE-DATE.6 FILE-WRITE-DATE.ERROR.1 FILE-WRITE-DATE.ERROR.2 FILE-WRITE-DATE.ERROR.3 FILE-WRITE-DATE.ERROR.4 RENAME-FILE.1 - RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 RENAME-FILE.5 RENAME-FILE.5 RENAME-FILE.6 + RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 RENAME-FILE.5 RENAME-FILE.6 + RENAME-FILE.7 RENAME-FILE.ERROR.1 DELETE-FILE.1 DELETE-FILE.2 + DELETE-FILE.3 DELETE-FILE.4 DELETE-FILE.5 DELETE-FILE.ERROR.1 + DELETE-FILE.ERROR.2 FILE-ERROR.1 FILE-ERROR-PATHNAME.1 + FILE-ERROR-PATHNAME.2 FILE-ERROR-PATHNAME.3 FILE-ERROR-PATHNAME.4 + FILE-ERROR-PATHNAME.5 FILE-ERROR-PATHNAME.6 + FILE-ERROR-PATHNAME.ERROR.1 FILE-ERROR-PATHNAME.ERROR.2 + INPUT-STREAM-P.1 INPUT-STREAM-P.2 INPUT-STREAM-P.3 INPUT-STREAM-P.4 + INPUT-STREAM-P.ERROR.1 INPUT-STREAM-P.ERROR.2 INPUT-STREAM-P.ERROR.3 + OUTPUT-STREAM-P.1 OUTPUT-STREAM-P.2 OUTPUT-STREAM-P.3 + OUTPUT-STREAM-P.4 OUTPUT-STREAM-P.ERROR.1 OUTPUT-STREAM-P.ERROR.2 + OUTPUT-STREAM-P.ERROR.3 INTERACTIVE-STREAM-P.1 + INTERACTIVE-STREAM-P.ERROR.1 INTERACTIVE-STREAM-P.ERROR.2 + INTERACTIVE-STREAM-P.ERROR.3 OPEN-STREAM-P.1 OPEN-STREAM-P.2 + OPEN-STREAM-P.3 OPEN-STREAM-P.4 OPEN-STREAM-P.5 OPEN-STREAM-P.ERROR.1 + OPEN-STREAM-P.ERROR.2 OPEN-STREAM-P.ERROR.3 STREAM-ELEMENT-TYPE.1 RENAME-FILE.5 RENAME-FILE.6 RENAME-FILE.7 RENAME-FILE.ERROR.1 DELETE-FILE.1 DELETE-FILE.2 DELETE-FILE.3 DELETE-FILE.4 DELETE-FILE.5 DELETE-FILE.ERROR.1 DELETE-FILE.ERROR.2 FILE-ERROR.1 FILE-ERROR-PATHNAME.1 @@ -30510,22 +30561,120 @@ READ-SEQUENCE.BV.6 READ-SEQUENCE.BV.7 READ-SEQUENCE.ERROR.1 READ-SEQUENCE.ERROR.2 READ-SEQUENCE.ERROR.3 READ-SEQUENCE.ERROR.4 READ-SEQUENCE.ERROR.5 READ-SEQUENCE.ERROR.6 READ-SEQUENCE.ERROR.7 - READ-SEQUENCE.ERROR.8 READ-SEQUENCE.ERROR.9 READ-SEQUENCE.ERROR.10 RENAME-FILE.6 - RENAME-FILE.7 RENAME-FILE.ERROR.1 DELETE-FILE.1 DELETE-FILE.2 - DELETE-FILE.3 DELETE-FILE.4 DELETE-FILE.5 DELETE-FILE.ERROR.1 - DELETE-FILE.ERROR.2 FILE-ERROR.1 FILE-ERROR-PATHNAME.1 - FILE-ERROR-PATHNAME.2 FILE-ERROR-PATHNAME.3 FILE-ERROR-PATHNAME.4 - FILE-ERROR-PATHNAME.5 FILE-ERROR-PATHNAME.6 - FILE-ERROR-PATHNAME.ERROR.1 FILE-ERROR-PATHNAME.ERROR.2 - INPUT-STREAM-P.1 INPUT-STREAM-P.2 INPUT-STREAM-P.3 INPUT-STREAM-P.4 - INPUT-STREAM-P.ERROR.1 INPUT-STREAM-P.ERROR.2 INPUT-STREAM-P.ERROR.3 - OUTPUT-STREAM-P.1 OUTPUT-STREAM-P.2 OUTPUT-STREAM-P.3 - OUTPUT-STREAM-P.4 OUTPUT-STREAM-P.ERROR.1 OUTPUT-STREAM-P.ERROR.2 - OUTPUT-STREAM-P.ERROR.3 INTERACTIVE-STREAM-P.1 - INTERACTIVE-STREAM-P.ERROR.1 INTERACTIVE-STREAM-P.ERROR.2 - INTERACTIVE-STREAM-P.ERROR.3 OPEN-STREAM-P.1 OPEN-STREAM-P.2 - OPEN-STREAM-P.3 OPEN-STREAM-P.4 OPEN-STREAM-P.5 OPEN-STREAM-P.ERROR.1 - OPEN-STREAM-P.ERROR.2 OPEN-STREAM-P.ERROR.3 STREAM-ELEMENT-TYPE.1 + READ-SEQUENCE.ERROR.8 READ-SEQUENCE.ERROR.9 READ-SEQUENCE.ERROR.10 + READ-SEQUENCE.ERROR.11 WRITE-SEQUENCE.STRING.1 WRITE-SEQUENCE.STRING.2 + WRITE-SEQUENCE.STRING.3 WRITE-SEQUENCE.STRING.4 + WRITE-SEQUENCE.STRING.5 WRITE-SEQUENCE.STRING.6 + WRITE-SEQUENCE.STRING.7 WRITE-SEQUENCE.STRING.8 + WRITE-SEQUENCE.STRING.9 WRITE-SEQUENCE.STRING.10 + WRITE-SEQUENCE.STRING.11 WRITE-SEQUENCE.STRING.12 + WRITE-SEQUENCE.STRING.13 WRITE-SEQUENCE.STRING.14 + WRITE-SEQUENCE.STRING.15 WRITE-SEQUENCE.LIST.1 WRITE-SEQUENCE.LIST.2 + WRITE-SEQUENCE.LIST.3 WRITE-SEQUENCE.LIST.4 WRITE-SEQUENCE.LIST.5 + WRITE-SEQUENCE.LIST.6 WRITE-SEQUENCE.LIST.7 WRITE-SEQUENCE.LIST.8 + WRITE-SEQUENCE.SIMPLE-VECTOR.1 WRITE-SEQUENCE.SIMPLE-VECTOR.2 + WRITE-SEQUENCE.SIMPLE-VECTOR.3 WRITE-SEQUENCE.SIMPLE-VECTOR.4 + WRITE-SEQUENCE.SIMPLE-VECTOR.5 WRITE-SEQUENCE.SIMPLE-VECTOR.6 + WRITE-SEQUENCE.SIMPLE-VECTOR.7 WRITE-SEQUENCE.SIMPLE-VECTOR.8 + WRITE-SEQUENCE.FILL-VECTOR.1 WRITE-SEQUENCE.FILL-VECTOR.2 + WRITE-SEQUENCE.FILL-VECTOR.3 WRITE-SEQUENCE.FILL-VECTOR.4 + WRITE-SEQUENCE.FILL-VECTOR.5 WRITE-SEQUENCE.FILL-VECTOR.6 + WRITE-SEQUENCE.FILL-VECTOR.7 WRITE-SEQUENCE.BV.1 WRITE-SEQUENCE.BV.2 + WRITE-SEQUENCE.BV.3 WRITE-SEQUENCE.BV.4 WRITE-SEQUENCE.BV.5 + WRITE-SEQUENCE.BV.6 WRITE-SEQUENCE.ERROR.1 WRITE-SEQUENCE.ERROR.2 + WRITE-SEQUENCE.ERROR.3 WRITE-SEQUENCE.ERROR.4 WRITE-SEQUENCE.ERROR.5 + WRITE-SEQUENCE.ERROR.6 WRITE-SEQUENCE.ERROR.7 WRITE-SEQUENCE.ERROR.8 + WRITE-SEQUENCE.ERROR.9 WRITE-SEQUENCE.ERROR.10 WRITE-SEQUENCE.ERROR.11 + WRITE-SEQUENCE.ERROR.12 WRITE-SEQUENCE.ERROR.13 + WRITE-SEQUENCE.ERROR.14 WRITE-SEQUENCE.ERROR.15 + WRITE-SEQUENCE.ERROR.16 FILE-LENGTH.ERROR.1 FILE-LENGTH.ERROR.2 + FILE-LENGTH.ERROR.3 FILE-LENGTH.ERROR.4 FILE-LENGTH.ERROR.5 + FILE-LENGTH.ERROR.6 FILE-LENGTH.ERROR.8 FILE-LENGTH.ERROR.9 + FILE-LENGTH.ERROR.10 FILE-LENGTH.ERROR.11 FILE-LENGTH.ERROR.12 + FILE-LENGTH.1 FILE-LENGTH.2 FILE-LENGTH.3 FILE-LENGTH.4 FILE-LENGTH.5 + FILE-LENGTH.6 FILE-POSITION.1 FILE-POSITION.2 FILE-POSITION.3 + FILE-POSITION.4 FILE-POSITION.5 FILE-POSITION.6 FILE-POSITION.7 + FILE-POSITION.8 FILE-POSITION.9 FILE-POSITION.10 FILE-POSITION.ERROR.1 + FILE-POSITION.ERROR.2 FILE-STRING-LENGTH.1 FILE-STRING-LENGTH.2 + FILE-STRING-LENGTH.3 FILE-STRING-LENGTH.ERROR.1 + FILE-STRING-LENGTH.ERROR.2 FILE-STRING-LENGTH.ERROR.3 OPEN.1 OPEN.2 + OPEN.3 OPEN.4 OPEN.5 OPEN.6 OPEN.7 OPEN.8 OPEN.9 OPEN.10 OPEN.11 + OPEN.12 OPEN.13 OPEN.14 OPEN.15 OPEN.16 OPEN.17 OPEN.18 OPEN.19 + OPEN.20 OPEN.21 OPEN.22 OPEN.23 OPEN.24 OPEN.25 OPEN.26 OPEN.27 + OPEN.28 OPEN.29 OPEN.30 OPEN.31 OPEN.32 OPEN.33 OPEN.34 OPEN.35 + OPEN.36 OPEN.37 OPEN.38 OPEN.39 OPEN.40 OPEN.41 OPEN.42 OPEN.43 + OPEN.44 OPEN.45 OPEN.46 OPEN.47 OPEN.48 OPEN.49 OPEN.50 OPEN.51 + OPEN.52 OPEN.53 OPEN.54 OPEN.55 OPEN.56 OPEN.57 OPEN.58 OPEN.59 + OPEN.60 OPEN.61 OPEN.62 OPEN.63 OPEN.64 OPEN.65 OPEN.66 OPEN.67 + OPEN.OUTPUT.1 OPEN.OUTPUT.2 OPEN.OUTPUT.3 OPEN.OUTPUT.4 OPEN.OUTPUT.5 + OPEN.OUTPUT.6 OPEN.OUTPUT.7 OPEN.OUTPUT.8 OPEN.OUTPUT.9 OPEN.OUTPUT.10 + OPEN.OUTPUT.11 OPEN.OUTPUT.12 OPEN.OUTPUT.13 OPEN.OUTPUT.14 + OPEN.OUTPUT.15 OPEN.OUTPUT.16 OPEN.OUTPUT.17 OPEN.OUTPUT.18 + OPEN.OUTPUT.19 OPEN.OUTPUT.20 OPEN.OUTPUT.21 +Test OPEN.OUTPUT.22 failed +Form: (LET ((PN #p"tmp.dat")) + (DELETE-ALL-VERSIONS PN) + (WITH-OPEN-FILE + (OS PN :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) + (ASSERT (OPEN-STREAM-P OS)) + (DOTIMES (I 10) + (WRITE-CHAR + (FUNCALL (THE FUNCTION + (GENERATOR-FOR-ELEMENT-TYPE 'CHARACTER)) + I) + OS)) + (FINISH-OUTPUT OS)) + (LET ((S (OPEN PN :IF-EXISTS :RENAME :DIRECTION :OUTPUT))) + (UNWIND-PROTECT + (PROGN + (ASSERT (OPEN-STREAM-P S)) + (ASSERT (TYPEP S 'FILE-STREAM)) + (ASSERT (SUBTYPEP 'CHARACTER (STREAM-ELEMENT-TYPE S))) + (PROGN + (WRITE-SEQUENCE "wxyz" S) + (CLOSE S) + (WITH-OPEN-FILE (S PN :DIRECTION :INPUT) + (VALUES (READ-LINE S NIL))))) + (CLOSE S)))) +Expected value: "wxyz" +Actual value: #. + OPEN.OUTPUT.23 OPEN.OUTPUT.24 OPEN.OUTPUT.25 OPEN.OUTPUT.26 + OPEN.OUTPUT.27 OPEN.OUTPUT.28 OPEN.OUTPUT.28A OPEN.OUTPUT.29 + OPEN.OUTPUT.30 OPEN.OUTPUT.31 OPEN.OUTPUT.32 OPEN.OUTPUT.33 + OPEN.OUTPUT.34 OPEN.OUTPUT.35 OPEN.IO.1 OPEN.IO.2 OPEN.IO.3 OPEN.IO.4 + OPEN.IO.5 OPEN.IO.6 OPEN.IO.7 OPEN.IO.8 OPEN.IO.9 OPEN.IO.10 + OPEN.IO.11 OPEN.IO.12 OPEN.IO.13 OPEN.IO.14 OPEN.IO.15 OPEN.IO.16 + OPEN.IO.17 OPEN.IO.18 OPEN.IO.19 OPEN.IO.20 OPEN.IO.21 +Test OPEN.IO.22 failed +Form: (LET ((PN #p"tmp.dat")) + (DELETE-ALL-VERSIONS PN) + (WITH-OPEN-FILE + (OS PN :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) + (ASSERT (OPEN-STREAM-P OS)) + (DOTIMES (I 10) + (WRITE-CHAR + (FUNCALL (THE FUNCTION + (GENERATOR-FOR-ELEMENT-TYPE 'CHARACTER)) + I) + OS)) + (FINISH-OUTPUT OS)) + (LET ((S (OPEN PN :IF-EXISTS :RENAME :DIRECTION :IO))) + (UNWIND-PROTECT + (PROGN + (ASSERT (OPEN-STREAM-P S)) + (ASSERT (TYPEP S 'FILE-STREAM)) + (ASSERT (SUBTYPEP 'CHARACTER (STREAM-ELEMENT-TYPE S))) + (PROGN + (WRITE-SEQUENCE "wxyz" S) + (FILE-POSITION S :START) + (VALUES (READ-LINE S NIL)))) + (CLOSE S)))) +Expected value: "wxyz" +Actual value: #. + OPEN.IO.23 OPEN.IO.24 OPEN.IO.25 OPEN.IO.26 OPEN.IO.27 OPEN.IO.28 + OPEN.IO.28A OPEN.IO.29 OPEN.IO.30 OPEN.IO.31 OPEN.IO.32 OPEN.IO.33 + OPEN.IO.34 OPEN.IO.35 OPEN.PROBE.1 OPEN.PROBE.2 OPEN.PROBE.3 + OPEN.PROBE.4 OPEN.PROBE.5 STREAM-ELEMENT-TYPE.2 STREAM-ELEMENT-TYPE.3 STREAM-ELEMENT-TYPE.4 STREAM-ELEMENT-TYPE.5 STREAM-ELEMENT-TYPE.6 STREAM-ELEMENT-TYPE.ERROR.1 STREAM-ELEMENT-TYPE.ERROR.2 @@ -31027,120 +31176,19 @@ CHAR>=.5 CHAR>=.6 CHAR>=.7 CHAR>=.8 CHAR>=.ORDER.1 CHAR>=.ORDER.2 CHAR>=.ORDER.3 CHAR>=.ORDER.4 CHAR>.1 CHAR>.2 CHAR>.3 CHAR>.4 CHAR>.5 CHAR>.6 CHAR>.7 CHAR>.8 CHAR>.ORDER.1 CHAR>.ORDER.2 CHAR>.ORDER.3 - CHAR>.ORDER.4 - READ-SEQUENCE.ERROR.11 WRITE-SEQUENCE.STRING.1 WRITE-SEQUENCE.STRING.2 - WRITE-SEQUENCE.STRING.3 WRITE-SEQUENCE.STRING.4 - WRITE-SEQUENCE.STRING.5 WRITE-SEQUENCE.STRING.6 - WRITE-SEQUENCE.STRING.7 WRITE-SEQUENCE.STRING.8 - WRITE-SEQUENCE.STRING.9 WRITE-SEQUENCE.STRING.10 - WRITE-SEQUENCE.STRING.11 WRITE-SEQUENCE.STRING.12 - WRITE-SEQUENCE.STRING.13 WRITE-SEQUENCE.STRING.14 - WRITE-SEQUENCE.STRING.15 WRITE-SEQUENCE.LIST.1 WRITE-SEQUENCE.LIST.2 - WRITE-SEQUENCE.LIST.3 WRITE-SEQUENCE.LIST.4 WRITE-SEQUENCE.LIST.5 - WRITE-SEQUENCE.LIST.6 WRITE-SEQUENCE.LIST.7 WRITE-SEQUENCE.LIST.8 - WRITE-SEQUENCE.SIMPLE-VECTOR.1 WRITE-SEQUENCE.SIMPLE-VECTOR.2 - WRITE-SEQUENCE.SIMPLE-VECTOR.3 WRITE-SEQUENCE.SIMPLE-VECTOR.4 - WRITE-SEQUENCE.SIMPLE-VECTOR.5 WRITE-SEQUENCE.SIMPLE-VECTOR.6 - WRITE-SEQUENCE.SIMPLE-VECTOR.7 WRITE-SEQUENCE.SIMPLE-VECTOR.8 - WRITE-SEQUENCE.FILL-VECTOR.1 WRITE-SEQUENCE.FILL-VECTOR.2 - WRITE-SEQUENCE.FILL-VECTOR.3 WRITE-SEQUENCE.FILL-VECTOR.4 - WRITE-SEQUENCE.FILL-VECTOR.5 WRITE-SEQUENCE.FILL-VECTOR.6 - WRITE-SEQUENCE.FILL-VECTOR.7 WRITE-SEQUENCE.BV.1 WRITE-SEQUENCE.BV.2 - WRITE-SEQUENCE.BV.3 WRITE-SEQUENCE.BV.4 WRITE-SEQUENCE.BV.5 - WRITE-SEQUENCE.BV.6 WRITE-SEQUENCE.ERROR.1 WRITE-SEQUENCE.ERROR.2 - WRITE-SEQUENCE.ERROR.3 WRITE-SEQUENCE.ERROR.4 WRITE-SEQUENCE.ERROR.5 - WRITE-SEQUENCE.ERROR.6 WRITE-SEQUENCE.ERROR.7 WRITE-SEQUENCE.ERROR.8 - WRITE-SEQUENCE.ERROR.9 WRITE-SEQUENCE.ERROR.10 WRITE-SEQUENCE.ERROR.11 - WRITE-SEQUENCE.ERROR.12 WRITE-SEQUENCE.ERROR.13 - WRITE-SEQUENCE.ERROR.14 WRITE-SEQUENCE.ERROR.15 - WRITE-SEQUENCE.ERROR.16 FILE-LENGTH.ERROR.1 FILE-LENGTH.ERROR.2 - FILE-LENGTH.ERROR.3 FILE-LENGTH.ERROR.4 FILE-LENGTH.ERROR.5 - FILE-LENGTH.ERROR.6 FILE-LENGTH.ERROR.8 FILE-LENGTH.ERROR.9 - FILE-LENGTH.ERROR.10 FILE-LENGTH.ERROR.11 FILE-LENGTH.ERROR.12 - FILE-LENGTH.1 FILE-LENGTH.2 FILE-LENGTH.3 FILE-LENGTH.4 FILE-LENGTH.5 - FILE-LENGTH.6 FILE-POSITION.1 FILE-POSITION.2 FILE-POSITION.3 - FILE-POSITION.4 FILE-POSITION.5 FILE-POSITION.6 FILE-POSITION.7 - FILE-POSITION.8 FILE-POSITION.9 FILE-POSITION.10 FILE-POSITION.ERROR.1 - FILE-POSITION.ERROR.2 FILE-STRING-LENGTH.1 FILE-STRING-LENGTH.2 - FILE-STRING-LENGTH.3 FILE-STRING-LENGTH.ERROR.1 - FILE-STRING-LENGTH.ERROR.2 FILE-STRING-LENGTH.ERROR.3 OPEN.1 OPEN.2 - OPEN.3 OPEN.4 OPEN.5 OPEN.6 OPEN.7 OPEN.8 OPEN.9 OPEN.10 OPEN.11 - OPEN.12 OPEN.13 OPEN.14 OPEN.15 OPEN.16 OPEN.17 OPEN.18 OPEN.19 - OPEN.20 OPEN.21 OPEN.22 OPEN.23 OPEN.24 OPEN.25 OPEN.26 OPEN.27 - OPEN.28 OPEN.29 OPEN.30 OPEN.31 OPEN.32 OPEN.33 OPEN.34 OPEN.35 - OPEN.36 OPEN.37 OPEN.38 OPEN.39 OPEN.40 OPEN.41 OPEN.42 OPEN.43 - OPEN.44 OPEN.45 OPEN.46 OPEN.47 OPEN.48 OPEN.49 OPEN.50 OPEN.51 - OPEN.52 OPEN.53 OPEN.54 OPEN.55 OPEN.56 OPEN.57 OPEN.58 OPEN.59 - OPEN.60 OPEN.61 OPEN.62 OPEN.63 OPEN.64 OPEN.65 OPEN.66 OPEN.67 - OPEN.OUTPUT.1 OPEN.OUTPUT.2 OPEN.OUTPUT.3 OPEN.OUTPUT.4 OPEN.OUTPUT.5 - OPEN.OUTPUT.6 OPEN.OUTPUT.7 OPEN.OUTPUT.8 OPEN.OUTPUT.9 OPEN.OUTPUT.10 - OPEN.OUTPUT.11 OPEN.OUTPUT.12 OPEN.OUTPUT.13 OPEN.OUTPUT.14 - OPEN.OUTPUT.15 OPEN.OUTPUT.16 OPEN.OUTPUT.17 OPEN.OUTPUT.18 - OPEN.OUTPUT.19 OPEN.OUTPUT.20 OPEN.OUTPUT.21 -Test OPEN.OUTPUT.22 failed -Form: (LET ((PN #p"tmp.dat")) - (DELETE-ALL-VERSIONS PN) - (WITH-OPEN-FILE - (OS PN :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) - (ASSERT (OPEN-STREAM-P OS)) - (DOTIMES (I 10) - (WRITE-CHAR - (FUNCALL (THE FUNCTION - (GENERATOR-FOR-ELEMENT-TYPE 'CHARACTER)) - I) - OS)) - (FINISH-OUTPUT OS)) - (LET ((S (OPEN PN :IF-EXISTS :RENAME :DIRECTION :OUTPUT))) - (UNWIND-PROTECT - (PROGN - (ASSERT (OPEN-STREAM-P S)) - (ASSERT (TYPEP S 'FILE-STREAM)) - (ASSERT (SUBTYPEP 'CHARACTER (STREAM-ELEMENT-TYPE S))) - (PROGN - (WRITE-SEQUENCE "wxyz" S) - (CLOSE S) - (WITH-OPEN-FILE (S PN :DIRECTION :INPUT) - (VALUES (READ-LINE S NIL))))) - (CLOSE S)))) -Expected value: "wxyz" -Actual value: #. - OPEN.OUTPUT.23 OPEN.OUTPUT.24 OPEN.OUTPUT.25 OPEN.OUTPUT.26 - OPEN.OUTPUT.27 OPEN.OUTPUT.28 OPEN.OUTPUT.28A OPEN.OUTPUT.29 - OPEN.OUTPUT.30 OPEN.OUTPUT.31 OPEN.OUTPUT.32 OPEN.OUTPUT.33 - OPEN.OUTPUT.34 OPEN.OUTPUT.35 OPEN.IO.1 OPEN.IO.2 OPEN.IO.3 OPEN.IO.4 - OPEN.IO.5 OPEN.IO.6 OPEN.IO.7 OPEN.IO.8 OPEN.IO.9 OPEN.IO.10 - OPEN.IO.11 OPEN.IO.12 OPEN.IO.13 OPEN.IO.14 OPEN.IO.15 OPEN.IO.16 - OPEN.IO.17 OPEN.IO.18 OPEN.IO.19 OPEN.IO.20 OPEN.IO.21 -Test OPEN.IO.22 failed -Form: (LET ((PN #p"tmp.dat")) - (DELETE-ALL-VERSIONS PN) - (WITH-OPEN-FILE - (OS PN :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) - (ASSERT (OPEN-STREAM-P OS)) - (DOTIMES (I 10) - (WRITE-CHAR - (FUNCALL (THE FUNCTION - (GENERATOR-FOR-ELEMENT-TYPE 'CHARACTER)) - I) - OS)) - (FINISH-OUTPUT OS)) - (LET ((S (OPEN PN :IF-EXISTS :RENAME :DIRECTION :IO))) - (UNWIND-PROTECT - (PROGN - (ASSERT (OPEN-STREAM-P S)) - (ASSERT (TYPEP S 'FILE-STREAM)) - (ASSERT (SUBTYPEP 'CHARACTER (STREAM-ELEMENT-TYPE S))) - (PROGN - (WRITE-SEQUENCE "wxyz" S) - (FILE-POSITION S :START) - (VALUES (READ-LINE S NIL)))) - (CLOSE S)))) -Expected value: "wxyz" -Actual value: #. - OPEN.IO.23 OPEN.IO.24 OPEN.IO.25 OPEN.IO.26 OPEN.IO.27 OPEN.IO.28 - OPEN.IO.28A OPEN.IO.29 OPEN.IO.30 OPEN.IO.31 OPEN.IO.32 OPEN.IO.33 - OPEN.IO.34 OPEN.IO.35 OPEN.PROBE.1 OPEN.PROBE.2 OPEN.PROBE.3 - OPEN.PROBE.4 OPEN.PROBE.5 OPEN.PROBE.6 OPEN.PROBE.7 OPEN.PROBE.8 + CHAR>.ORDER.4 CHAR-EQUAL.1 CHAR-EQUAL.2 CHAR-EQUAL.3 CHAR-EQUAL.4 + CHAR-EQUAL.ORDER.1 CHAR-EQUAL.ORDER.2 CHAR-EQUAL.ORDER.3 + CHAR-EQUAL.ORDER.4 CHAR-NOT-EQUAL.1 CHAR-NOT-EQUAL.2 CHAR-NOT-EQUAL.3 + CHAR-NOT-EQUAL.4 CHAR-NOT-EQUAL.ORDER.1 CHAR-NOT-EQUAL.ORDER.2 + CHAR-NOT-EQUAL.ORDER.3 CHAR-NOT-EQUAL.ORDER.4 CHAR-NOT-GREATERP.1 + CHAR-NOT-GREATERP.2 CHAR-NOT-GREATERP.3 CHAR-NOT-GREATERP.4 + CHAR-NOT-GREATERP.5 CHAR-NOT-GREATERP.6 CHAR-NOT-GREATERP.7 + CHAR-NOT-GREATERP.8 CHAR-NOT-GREATERP.ORDER.1 + CHAR-NOT-GREATERP.ORDER.2 CHAR-NOT-GREATERP.ORDER.3 + CHAR-NOT-GREATERP.ORDER.4 CHAR-LESSP.1 CHAR-LESSP.2 CHAR-LESSP.3 + CHAR-LESSP.4 CHAR-LESSP.5 CHAR-LESSP.6 CHAR-LESSP.7 CHAR-LESSP.8 + CHAR-LESSP.ORDER.1 CHAR-LESSP.ORDER.2 CHAR-LESSP.ORDER.3 + CHAR-LESSP.ORDER.4 CHAR-NOT-LESSP.1 CHAR-NOT-LESSP.2 OPEN.PROBE.6 OPEN.PROBE.7 OPEN.PROBE.8 OPEN.PROBE.9 OPEN.PROBE.10 OPEN.PROBE.11 OPEN.PROBE.12 OPEN.PROBE.13 OPEN.PROBE.14 OPEN.PROBE.15 OPEN.PROBE.16 OPEN.PROBE.17 OPEN.PROBE.18 OPEN.PROBE.19 OPEN.PROBE.20 OPEN.PROBE.21 OPEN.PROBE.22 OPEN.PROBE.23 @@ -31553,19 +31601,11 @@ cat debian/in.gcl.postrm | sed 's,@EXT@,,g' >debian/gcl.postrm dh_testdir dh_testroot - CHAR-EQUAL.1 CHAR-EQUAL.2 CHAR-EQUAL.3 CHAR-EQUAL.4 - CHAR-EQUAL.ORDER.1 CHAR-EQUAL.ORDER.2 CHAR-EQUAL.ORDER.3 - CHAR-EQUAL.ORDER.4 CHAR-NOT-EQUAL.1 CHAR-NOT-EQUAL.2 CHAR-NOT-EQUAL.3 - CHAR-NOT-EQUAL.4 CHAR-NOT-EQUAL.ORDER.1 CHAR-NOT-EQUAL.ORDER.2 - CHAR-NOT-EQUAL.ORDER.3 CHAR-NOT-EQUAL.ORDER.4 CHAR-NOT-GREATERP.1 - CHAR-NOT-GREATERP.2 CHAR-NOT-GREATERP.3 CHAR-NOT-GREATERP.4 - CHAR-NOT-GREATERP.5 CHAR-NOT-GREATERP.6 CHAR-NOT-GREATERP.7 - CHAR-NOT-GREATERP.8 CHAR-NOT-GREATERP.ORDER.1 - CHAR-NOT-GREATERP.ORDER.2 CHAR-NOT-GREATERP.ORDER.3 - CHAR-NOT-GREATERP.ORDER.4 CHAR-LESSP.1 CHAR-LESSP.2 CHAR-LESSP.3 - CHAR-LESSP.4 CHAR-LESSP.5 CHAR-LESSP.6 CHAR-LESSP.7 CHAR-LESSP.8 - CHAR-LESSP.ORDER.1 CHAR-LESSP.ORDER.2 CHAR-LESSP.ORDER.3 - CHAR-LESSP.ORDER.4 CHAR-NOT-LESSP.1 CHAR-NOT-LESSP.2 CHAR-NOT-LESSP.3 +dh_prep +dh_installdirs +mkdir -p debian/tmp +cp -a debian/ansi/* debian/tmp/ + CHAR-NOT-LESSP.3 CHAR-NOT-LESSP.4 CHAR-NOT-LESSP.5 CHAR-NOT-LESSP.6 CHAR-NOT-LESSP.7 CHAR-NOT-LESSP.8 CHAR-NOT-LESSP.ORDER.1 CHAR-NOT-LESSP.ORDER.2 CHAR-NOT-LESSP.ORDER.3 CHAR-NOT-LESSP.ORDER.4 CHAR-GREATERP.1 @@ -31667,11 +31707,7 @@ WITH-OUTPUT-TO-STRING.16, DIGIT-CHAR.ERROR.2, CODE-CHAR.ERROR.2.;; Finished loading "gclload.lsp" T ->dh_prep -dh_installdirs -mkdir -p debian/tmp -cp -a debian/ansi/* debian/tmp/ -cp -a debian/trad/* debian/tmp/ +>cp -a debian/trad/* debian/tmp/ cp -a debian/gprof/* debian/tmp/ cp -a debian/ansi-gprof/* debian/tmp/ mv debian/tmp/usr/share/emacs/site-lisp debian/tmp/usr/share/emacs/foo @@ -31754,12 +31790,14 @@ dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/1484197/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/1604522 and its subdirectories -I: Current time: Wed Feb 12 09:07:11 -12 2025 -I: pbuilder-time-stamp: 1739394431 +I: removing directory /srv/workspace/pbuilder/1484197 and its subdirectories +I: Current time: Fri Jan 12 05:23:32 +14 2024 +I: pbuilder-time-stamp: 1704986612