Diff of the two buildlogs: -- --- b1/build.log 2025-03-26 07:38:37.818707959 +0000 +++ b2/build.log 2025-03-26 08:05:58.821088688 +0000 @@ -1,7 +1,6 @@ -W: cgroups are not available on the host, not using them. I: pbuilder: network access will be disabled during build -I: Current time: Tue Apr 28 01:45:23 -12 2026 -I: pbuilder-time-stamp: 1777383923 +I: Current time: Wed Mar 26 21:38:42 +14 2025 +I: pbuilder-time-stamp: 1742974722 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -40,51 +39,84 @@ dpkg-source: info: applying Version_2_6_15pre18 I: using fakeroot in build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/849285/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/505186/tmp/hooks/D01_modify_environment starting +debug: Running on codethink04-arm64. +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 Mar 26 07:38 /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/505186/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/505186/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='arm64' - DEBIAN_FRONTEND='noninteractive' + 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]="37" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") + BASH_VERSION='5.2.37(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=arm64 + DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' - DISTRIBUTION='unstable' - HOME='/root' - HOST_ARCH='arm64' + DIRSTACK=() + DISTRIBUTION=unstable + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=aarch64 + HOST_ARCH=arm64 IFS=' ' - 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='849285' - PS1='# ' - PS2='> ' + INVOCATION_ID=5927b760384244f5b457d2e48758d035 + LANG=C + LANGUAGE=nl_BE:nl + LC_ALL=C + MACHTYPE=aarch64-unknown-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=505186 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.LIL9T9eD/pbuilderrc_Z7ds --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.LIL9T9eD/b1 --logfile b1/build.log gcl_2.6.14-19.dsc' - SUDO_GID='109' - SUDO_UID='104' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/sbin/chroot' - http_proxy='http://192.168.101.4: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.LIL9T9eD/pbuilderrc_MYAE --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.LIL9T9eD/b2 --logfile b2/build.log gcl_2.6.14-19.dsc' + SUDO_GID=109 + SUDO_UID=104 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://192.168.101.4:3128 I: uname -a - Linux codethink03-arm64 6.1.0-32-cloud-arm64 #1 SMP Debian 6.1.129-1 (2025-03-06) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-32-cloud-arm64 #1 SMP Debian 6.1.129-1 (2025-03-06) aarch64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Mar 4 2025 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/849285/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Mar 4 11:20 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/505186/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -254,7 +286,7 @@ Get: 110 http://deb.debian.org/debian unstable/main arm64 tk8.6 arm64 8.6.16-1 [69.7 kB] Get: 111 http://deb.debian.org/debian unstable/main arm64 x11proto-core-dev all 2024.1-1 [3312 B] Get: 112 http://deb.debian.org/debian unstable/main arm64 tk8.6-dev arm64 8.6.16-1 [763 kB] -Fetched 50.8 MB in 0s (172 MB/s) +Fetched 50.8 MB in 1s (81.7 MB/s) Preconfiguring packages ... 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 ... 19919 files and directories currently installed.) @@ -622,8 +654,8 @@ Setting up tzdata (2025b-1) ... Current default time zone: 'Etc/UTC' -Local time is now: Tue Apr 28 13:45:52 UTC 2026. -Universal Time is now: Tue Apr 28 13:45:52 UTC 2026. +Local time is now: Wed Mar 26 07:39:42 UTC 2025. +Universal Time is now: Wed Mar 26 07:39:42 UTC 2025. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up xtrans-dev (1.4.0-1) ... @@ -732,7 +764,11 @@ fakeroot is already the newest version (1.37.1.1-1). 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-19_source.changes +I: user script /srv/workspace/pbuilder/505186/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/505186/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-19_source.changes dpkg-buildpackage: info: source package gcl dpkg-buildpackage: info: source version 2.6.14-19 dpkg-buildpackage: info: source distribution unstable @@ -3214,13 +3250,13 @@ cd info && /usr/bin/make make[2]: Entering directory '/build/reproducible-path/gcl-2.6.14/info' TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl-si.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl-si.dvi make[2]: dvipdfm: No such file or directory make[2]: [makefile:36: gcl-si.pdf] Error 127 (ignored) TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl.dvi make[2]: dvipdfm: No such file or directory @@ -6100,20 +6136,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_1134864_0.lsp. +Compiling gazonk_1581220_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_1134864_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_0.o" -start address -T 0xef9b70 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_0.o" -Compiling gazonk_1134864_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_0.o" +start address -T 0xef9b70 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_0.o" +Compiling gazonk_1581220_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_1134864_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_1.o" -start address -T 0xefa180 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_1.o" +start address -T 0xefa180 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_1.o" start address -T 0xef99b0 ;; 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. @@ -6123,34 +6159,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_1134864_2.lsp. +Compiling gazonk_1581220_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_1134864_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_2.o" -start address -T 0xefe7a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_2.o" -Compiling gazonk_1134864_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_2.o" +start address -T 0xefe7a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_2.o" +Compiling gazonk_1581220_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_1134864_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_3.o" -start address -T 0xeff8d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_3.o" -Compiling gazonk_1134864_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_3.o" +start address -T 0xeff8d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_3.o" +Compiling gazonk_1581220_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_1134864_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_4.o" -start address -T 0xf00650 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_4.o" -Compiling gazonk_1134864_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_4.o" +start address -T 0xf00650 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_4.o" +Compiling gazonk_1581220_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_1134864_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_5.o" -start address -T 0xf00ef0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_5.o" +start address -T 0xf00ef0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_5.o" start address -T 0xefa790 ;; 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. @@ -6160,13 +6196,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_1134864_6.lsp. +Compiling gazonk_1581220_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_1134864_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_6.o" -start address -T 0xf020e0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_6.o" +start address -T 0xf020e0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_6.o" start address -T 0xf01930 ;; 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. @@ -6179,13 +6215,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_1134864_7.lsp. +Compiling gazonk_1581220_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_1134864_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_7.o" -start address -T 0xf08a10 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1134864_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_7.o" +start address -T 0xf08a10 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1581220_7.o" Warning: DESCRIBE is being redefined. start address -T 0xf02980 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -7058,7 +7094,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0x109ead0 ;; Finished loading "../tkl.o" +start address -T 0x1097e50 ;; Finished loading "../tkl.o" 82958 > @@ -7068,13 +7104,13 @@ cd info && /usr/bin/make make[2]: Entering directory '/build/reproducible-path/gcl-2.6.14/info' TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl-si.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl-si.dvi make[2]: dvipdfm: No such file or directory make[2]: [makefile:36: gcl-si.pdf] Error 127 (ignored) TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl.dvi make[2]: dvipdfm: No such file or directory @@ -9670,13 +9706,13 @@ cd info && /usr/bin/make make[2]: Entering directory '/build/reproducible-path/gcl-2.6.14/info' TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl-si.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl-si.dvi make[2]: dvipdfm: No such file or directory make[2]: [makefile:36: gcl-si.pdf] Error 127 (ignored) TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl.dvi make[2]: dvipdfm: No such file or directory @@ -12542,20 +12578,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_1209105_0.lsp. +Compiling gazonk_2347394_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_1209105_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_0.o" -start address -T 0xef9b70 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_0.o" -Compiling gazonk_1209105_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_0.o" +start address -T 0xef9b70 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_0.o" +Compiling gazonk_2347394_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_1209105_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_1.o" -start address -T 0xefa180 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_1.o" +start address -T 0xefa180 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_1.o" start address -T 0xef99b0 ;; 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. @@ -12565,34 +12601,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_1209105_2.lsp. +Compiling gazonk_2347394_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_1209105_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_2.o" -start address -T 0xefe7a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_2.o" -Compiling gazonk_1209105_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_2.o" +start address -T 0xefe7a0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_2.o" +Compiling gazonk_2347394_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_1209105_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_3.o" -start address -T 0xeff8d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_3.o" -Compiling gazonk_1209105_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_3.o" +start address -T 0xeff8d0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_3.o" +Compiling gazonk_2347394_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_1209105_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_4.o" -start address -T 0xf00650 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_4.o" -Compiling gazonk_1209105_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_4.o" +start address -T 0xf00650 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_4.o" +Compiling gazonk_2347394_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_1209105_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_5.o" -start address -T 0xf00ef0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_5.o" +start address -T 0xf00ef0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_5.o" start address -T 0xefa790 ;; 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. @@ -12602,13 +12638,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_1209105_6.lsp. +Compiling gazonk_2347394_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_1209105_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_6.o" -start address -T 0xf020e0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_6.o" +start address -T 0xf020e0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_6.o" start address -T 0xf01930 ;; 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. @@ -12621,13 +12657,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_1209105_7.lsp. +Compiling gazonk_2347394_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_1209105_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_7.o" -start address -T 0xf08a10 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_1209105_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_7.o" +start address -T 0xf08a10 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2347394_7.o" Warning: DESCRIBE is being redefined. start address -T 0xf02980 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -13500,7 +13536,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0x109e490 ;; Finished loading "../tkl.o" +start address -T 0x109a9b0 ;; Finished loading "../tkl.o" 82958 > @@ -13510,13 +13546,13 @@ cd info && /usr/bin/make make[2]: Entering directory '/build/reproducible-path/gcl-2.6.14/info' TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl-si.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl-si.dvi make[2]: dvipdfm: No such file or directory make[2]: [makefile:36: gcl-si.pdf] Error 127 (ignored) TEXINPUTS=.:$TEXINPUTS tex --interaction nonstopmode gcl.texi || true -/bin/sh: 1: tex: not found +/bin/sh: line 1: tex: command not found rm -f *.cp *.ky *.vr *.tp *.pg *.toc *.aux *.log *.fn dvipdfm gcl.dvi make[2]: dvipdfm: No such file or directory @@ -13675,7 +13711,7 @@ OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/rt.o. ;; Loading #p"rt.o" -start address -T 0x1065960 ;; Finished loading #p"rt.o" +start address -T 0xffea70 ;; Finished loading #p"rt.o" ;; Loading "cl-test-package.lsp" ;; Finished loading "cl-test-package.lsp" ;; Loading "universe.lsp" @@ -13720,7 +13756,7 @@ OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/rt.o. ;; Loading #p"rt.o" -start address -T 0x1065960 ;; Finished loading #p"rt.o" +start address -T 0xffea70 ;; Finished loading #p"rt.o" ;; Loading "cl-test-package.lsp" ;; Finished loading "cl-test-package.lsp" ;; Loading "universe.lsp" @@ -14243,7 +14279,389 @@ Form: (REMOVE-IF #'MACRO-FUNCTION *EVAL-AND-COMPILE-MACROS*) Expected value: NIL Actual value: (DEFINE-SYMBOL-MACRO). - COMPILE.1 COMPILE.2Doing 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.8Doing 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* @@ -16422,389 +16840,52 @@ 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 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 + 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 FUNCTION.9 Test FUNCTION.10 failed Form: (LOOP FOR @@ -19498,10 +19579,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"" # @@ -19509,7 +19590,7 @@ # # # - # + # #S(FOO-STRUCTURE X 1 Y A Z NIL) #S(FOO-STRUCTURE X 1 Y A Z NIL) #S(BAR-STRUCTURE X 1 Y A Z NIL) @@ -19518,7 +19599,7 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$21432891753082646881269794685792758234607977137639794957838607139053456445848542225236681936231009445579102442341416191871574923375771809105883457023146897560895425492376581137476018984586073581150643423014521782269767674283333812257437709532612120114955072254152339629213627393309728803692381836042072769643442103436969503002000606321244542421912352891502146076647037033843724302004696243337565883844275784482711196159046401618145600858090138106077514856728922198531079757407156401187616511102809175454094397312760492908386922187651555348712378185165882141202018015241057968064523441439612287290108997538988258407451174479142461424601424952125260670185935931040604983167172707513309617700439938284879546909496027293390803550843863089759650654615763701325236107347603003282786613341991501364303234520155199412781316281907451365859513550124238980404110064409017544138180800378881578740083615428663315967694998545886780654832648487553643731677945029975040399138099608225885633404405319746497578024159752331863619054290113628798576311980716969952005297360995387950369486298319470894513339803252984849282568745711497902417852352753508305301345696457350190648994149479818849847715014745630137713824012498753975118216663879611207534311675029120447708039119559180175665914073691139228522604743743413342205053589418619541092167924132247295970968661352281493254331506739522115842784789963719425603419291704168170998942842524943129842709393604030587002215596675891259750059629771203419404835240440176743311970649998906682359297617744099606833535281783678482117455941422580128838069042601149377861539651476568089737868355603642638854314330308094356254827741663444204068360750499479440509953646718285783780924983181564436743167643659332168294658052538910658176437005074603604526884643181367507910419721483607952053784627094976314149490259795016510175664643812356626977691772146829238901104779573318796902826548892595693780591327357251451011933262325714034311896463869251500484231228649762974594731809663166894483859306033390197258023026694654789051755821030013545919195414195406191877604542312218607458499735789668752486091875054993272005002093530742399835619687055547895198792314408245467164042424212205573441625888530505430114530567790334780636677873229865196348786219719785667420167345595518199823298147442399686061856981492857168159487047313973007233602321742587969859756755664733321702807501657327815714594389279106286101785708148469125649400422755684577370004004503094728057975436742527093949269461224700164981934041285532690986121657815522378344207505364792622243538153727192242210741891944515960091205891128329880731166732647538780200861324166969010461739392293241512547086821866686665186663076004320259423017193305800415370356761914302126142495779078897687687659691283636575977933693830203013596165111566512188178918485697003795968036713003248225234201666406983169673511223919949272421066580290689612282766590384388411970324430162365290246989590395373305911406976537178686446176289733242325564108520615612988514464003112377847027953118628530806910359009010184145519593965740477691551499340432872720426853237846763372737069899202705323139029679429780667230904605420919950579344575990018816530271543977993663478400361108291122828811036259198189744731691544141104583189338628169328601454398219523173965116795233518116390273856319255284273518181682909853527545397097325945734291026704506577195210273915773112779186947598032906447741128746016814819384094504014813034880461458344872571032867682202227887321062632306875394454200371812621911728172885815054403798788149406631929508843313723668007935561984747933801504338014082923661798968356078563456337963629382041050416042731876242714681224415001491184868118446849270778135791386770242007110314853996007538092836891535505701835968050476521625356759787459143717392744683907946214178358374326402680812119807622830978783613226133669539198011528700877057987939038719264655867945757559135707168394386950370382946584666048326180050260989425862346206430017282561065938698413420388257293856176682501481324832725371232739281370914838600520621042509831118562109548834986936869119466680768087974116748507612017473799310828507393124048639480488271805504249751220809618729863665872221170616640133272520015830766602543896055816983628283145561857013829738136858171847174580942921621395450714449254938909130590691060549992714716960695775063514068902316857047639549180513809359362286314842369268892693307484822492977847792670081470052751437614566679945934706746582172407820516835451358968840290119583849343707177305367297615874351943456001891240969095845741551227680636128022942575329498285811652926494777866175340520543327274684466449313742447492509766253943748884836925550778501094176028304748568034040314137964596920878793492807353107582771904239330604696169825722328800367795452256816808155904930344561354682173090165316128402558732733606425061503952847892460039214133573199704022731991809939746319046576030824078474185008700736578473552727532468098780745494046635978509861219860369147702644223481991988345879455752794846547201748344546631645907331463512742320357223873087909416935193825010060469737369737860023219022751575747861965945967517496984781951885987357684662957778995976589979190410442716485596006153922066387543372651919519500216687479152635191956730857095415494016992884803605552820058283630558381899827025752158743955232908351292944806968455094075184493908861408061362255116179967337861791008740569741045508168788794822989707210899863159023165861319531454409432139891038378457413993282870766645696541241143229513986992163996040260207600936263297261795649962362225426146791513714358980718875575034477551118347629162067058556445677656972469073805360132483099916156950149115623860930303961972025117111336534116703669150321081327844642385792317128272274388668353986858522889842062475566128736485917534512249367794261731141426861363175424015789905286833493321930107573360785559274343652715628091859365162915902841556431016124110572887686959520977200136245203377518900824689761951). + #$7568644328816382367545516621473196068917869934487165997962491976492729258522022612794703883689405243884056344172284410502322183644997815631713611613501531545550273726130689245043900108284058623382629359798023722596347736523149564365655844348050948894209000128850882376175006077677566955053067034345924221304968916230624415887419315887871805420614142361708444441635301755026177668020362953843124070970261347892427670116349754334080492137609799513509430333550909698372439460052129398480928967306876363732227473758951529517449769943486417620337471372878977201688769968537940810101028455425260705139942716480344699698879195386315864557051484872859985877597313409011931777126805514805230490444302058237235305398253435254560101288949701556728146999472800814697491371048766337153404779401649101772414403048981280555352826907861714255876804072289626903399157152293615989616283264725786724242393258793036236911044050473624453562825004717112421075486215875746074127209919309138278240403103508211570856290966912564691929508430017874072481786829292820315701231167428696051944638806479668464229031212733858804364006152804729962752293714099738991999322343597758807881143019970899718205144442646353273267139602920889659286835286820070400244997506363338860929273266580542981476418928863500088366725475420250927279220657047615363307752671431272069787062735630910959647949832497564390847014770871887832199646476113577133572399654694413855914560055541693436448104318896402552308480654713493763860762971454164229465616770457166182803620505474741854739573880450851327588172786190482286014530329622756683741568788073000824222800795002937672786823709764342290447651618083286293945069756367487519040618260370876733522109501137515549335618943266328167871947339017871434220805232438119867419737860781761404035819075997587980568098045273204823159113778393383458980758573254305847038602861535996849043604014672214330916123240594150976317776365408603362284812485126256184182309159173193022406509606992145980374805004378767936387362672385385676955479246557055958494841390024389622730645414042033887778291300653663587021937374744134245607367394952715011050469172654995531067124313517172891098255379703501831581151807694860505412421676188980355551571653263549485670757312174956910673657717400320820353784344192791318109856021757822706483437755365168599753313394046789707582461174383777483464204755926891392156357100028439821957734793796126322243523348573753561445761352538534871875244439620894953977610602792709954304002223428916940633746786780615739983265929247520636883612582962734200241147953462221706773401041782987227096840631299460075710132501986542925409676549340562453691650862776817110935781195139320966328624945268904690631562986318740429419108605210869358548067637789605010298002751414515239892476156521230916680686253423576803905154607074856891517004490348397179047462360838130735951894293860685554632750713704457680572229103893478661897499925422050736796655862881467521347863382477299439060473295800304899595550928837037125953981131461923735777297941924172502577554151957804987509241952954882321367471653305726556502087419289550310467492296328927695469150663522241058041474116357719654654757575125241159156975067869831714676530448921115156151558068782964322836367131345438603954109448039925788713671576155916666648599495842833102486711033478150167327749912860062912059531507447461783443054890870797638122252525565606512997366310418701933518442574730159715042410232393217677103891757306825180341953059031505745488368412931787905580855968597871929062797215146383451747047272140265690574634295881340422118680127433352050613679138641317098180524901849994813964073353870568541770037623759107825233103797271464709919775991424845973826270186695309484807174871966165817519343812756032218787140984815937109913360638810442679964686538328681378844084817051176702930482373767698478772300293068891751612855048277865204160165718224314728517749766651420196879457818489852798554391355225658972758134664535322029380847823530693654693478888530744451875786584228302955278643406792826033008937608456337280614514741623539094351403703895200185604627564600199750761255010086989920184586777120852588692557774796907121863466507725046096895482822815825504218564357583346112745040911276358890688445798858752571252445172204570456613507176750816229116204308425206285077524384858296781484190000293076954858459153782118054206368734265868756714670840767986868866269001977450516189315314777111129773929572067037082683455215695495562586544241400970536099506107961872523434740519362091919080820502662767469163823086082938934746556806723680694520719809426856293503206344969735045000693483936028338635044251973413090125251858590539466799693177278567693452475521679427121166632692276933552284237782590685683867189784059137517958297763790374412208718911942374137962058714466349590115581149781404486090904773544481225956743966039944466105586006408797317401851200920052065206053016104917984541826836910020565314422950872268112470703413904338957092119949233105340358497422302677733148324752736194039969626759453919199236383376892396315949679863171554128445510095200707138531458818866573503638653192352846756257323768748029852195853773851291362127568958900497968450710475962102557122153045790969241993453126959571092221830539501610515734274682898068864727605215102113609920317062137733816550489631742340881640313111155150596935812244015346629643140039931058220419659110048504334001862192132167692107349720502515168089358641847081835310635301759461664180735371960645918561737826145941947430779732207614984385958223489054293621484859530444455479295932344404845235258267107507275714694511745602567500983290979819869002381023734576643122296231112701772973685321795771365551094024626266418307741173063607236144667718097764799025448714040150036779749171405197276196188409768565738186060055171211995101646554261418384599543842732247925069442903165676205886706794912784348582391046253835446780610959359318450069192013850809796094762961354317822593200839202186084733668536676955917260). 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 @@ -19814,52 +19895,133 @@ Package #<"LOOP.CL-TEST.2" package> Package #<"LOOP.CL-TEST.1" package> Package #<"CL-TEST" package> - - 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 +Package #<"REGRESSION-TEST" package> +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.12Package #<"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> +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> +Package #<"REGRESSION-TEST" package> +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.14 UNEXPORT.1 UNEXPORT.2 UNEXPORT.3 UNEXPORT.4 + UNEXPORT.5 UNEXPORT.6 UNEXPORT.ERROR.1 UNEXPORT.ERROR.2 UNINTERN.1 + UNINTERN.2 UNINTERN.3 UNINTERN.4 UNINTERN.5 UNINTERN.6 UNINTERN.7Properly threw an error: # + UNINTERN.8 UNINTERN.9 UNINTERN.ERROR.1 UNINTERN.ERROR.2 IN-PACKAGE.1 + IN-PACKAGE.2 IN-PACKAGE.3 IN-PACKAGE.4 IN-PACKAGE.5 UNUSE-PACKAGE.1 + UNUSE-PACKAGE.2 UNUSE-PACKAGE.3 UNUSE-PACKAGE.4 UNUSE-PACKAGE.5 + UNUSE-PACKAGE.6 UNUSE-PACKAGE.7 UNUSE-PACKAGE.8 UNUSE-PACKAGE.9 + UNUSE-PACKAGE.ERROR.1 UNUSE-PACKAGE.ERROR.2 USE-PACKAGE.1 + USE-PACKAGE.2 USE-PACKAGE.3 USE-PACKAGE.4 USE-PACKAGE.5 USE-PACKAGE.6 + USE-PACKAGE.ERROR.1 USE-PACKAGE.ERROR.2 DEFPACKAGE.1 DEFPACKAGE.2 + DEFPACKAGE.3 DEFPACKAGE.4 DEFPACKAGE.5 DEFPACKAGE.6 DEFPACKAGE.7 + DEFPACKAGE.8 DEFPACKAGE.9 DEFPACKAGE.10 DEFPACKAGE.11 DEFPACKAGE.12 + DEFPACKAGE.13 DEFPACKAGE.14 DEFPACKAGE.15 DEFPACKAGE.16 DEFPACKAGE.17 + DEFPACKAGE.18 DEFPACKAGE.19 DEFPACKAGE.20 DEFPACKAGE.21 DEFPACKAGE.22 + DEFPACKAGE.23 DEFPACKAGE.24 DEFPACKAGE.25Making G1... +Making G2... +Making G3... +Making G1... +Making G2... +Making G3... + DEFPACKAGE.26 DO-SYMBOLS.1 DO-SYMBOLS.2 DO-SYMBOLS.3 DO-SYMBOLS.4 + DO-SYMBOLS.5 DO-EXTERNAL-SYMBOLS.1 DO-EXTERNAL-SYMBOLS.2 + DO-EXTERNAL-SYMBOLS.3 DO-EXTERNAL-SYMBOLS.4 DO-EXTERNAL-SYMBOLS.5 + DO-SYMBOLS.6 DO-EXTERNAL-SYMBOLS.6 DO-SYMBOLS.7 DO-EXTERNAL-SYMBOLS.7 + DO-SYMBOLS.8 DO-EXTERNAL-SYMBOLS.8 PACKAGEP.1 PACKAGEP.2 + PACKAGEP.ERROR.1 PACKAGEP.ERROR.2 PACKAGE-ERROR.1 PACKAGE-ERROR.2 +Test PACKAGE-ERROR.3 failed +Form: (SUBTYPEP* 'PACKAGE-ERROR 'ERROR) +Expected values: T + T +Actual values: NIL + NIL. + PACKAGE-ERROR.4 PACKAGE-ERROR-PACKAGE.1 PACKAGE-ERROR-PACKAGE.2 + PACKAGE-ERROR-PACKAGE.3 PACKAGE-ERROR-PACKAGE.4 + PACKAGE-ERROR-PACKAGE.ERROR.1 PACKAGE-ERROR-PACKAGE.ERROR.2 KEYWORD.1 + KEYWORD.2 KEYWORD.3 PACKAGE-SHADOWING-SYMBOLS.ERROR.1 + PACKAGE-SHADOWING-SYMBOLS.ERROR.2 PACKAGE-USE-LIST.ERROR.1 + PACKAGE-USE-LIST.ERROR.2 PACKAGE-USED-BY-LIST.ERROR.1 + PACKAGE-USED-BY-LIST.ERROR.2 COPY-SEQ.1 COPY-SEQ.2 COPY-SEQ.3 + COPY-SEQ.4 COPY-SEQ.5 COPY-SEQ.6 COPY-SEQ.7 COPY-SEQ.8 COPY-SEQ.9 + COPY-SEQ.10 COPY-SEQ.11 COPY-SEQ.12 COPY-SEQ.13 COPY-SEQ.14 + COPY-SEQ.15 COPY-SEQ.16 COPY-SEQ.17 COPY-SEQ.18 COPY-SEQ.ORDER.1 + COPY-SEQ.ERROR.1 COPY-SEQ.ERROR.2 COPY-SEQ.ERROR.3 COPY-SEQ.ERROR.4 + COPY-SEQ.ERROR.5 COPY-SEQ.ERROR.6 ELT.1 ELT.1A ELT.1B ELT.2 ELT.3 + ELT.4 ELT.5 ELT.5A ELT.6 ELT.7 ELT.8 ELT.9 ELT.10 ELT.11 ELT.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 SET-EXCLUSIVE-OR.18-A SET-EXCLUSIVE-OR.ORDER.1 @@ -21201,10 +21363,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"" # @@ -21212,7 +21374,7 @@ # # # - # + # #S(FOO-STRUCTURE X 1 Y A Z NIL) #S(FOO-STRUCTURE X 1 Y A Z NIL) #S(BAR-STRUCTURE X 1 Y A Z NIL) @@ -21221,7 +21383,7 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$21432891753082646881269794685792758234607977137639794957838607139053456445848542225236681936231009445579102442341416191871574923375771809105883457023146897560895425492376581137476018984586073581150643423014521782269767674283333812257437709532612120114955072254152339629213627393309728803692381836042072769643442103436969503002000606321244542421912352891502146076647037033843724302004696243337565883844275784482711196159046401618145600858090138106077514856728922198531079757407156401187616511102809175454094397312760492908386922187651555348712378185165882141202018015241057968064523441439612287290108997538988258407451174479142461424601424952125260670185935931040604983167172707513309617700439938284879546909496027293390803550843863089759650654615763701325236107347603003282786613341991501364303234520155199412781316281907451365859513550124238980404110064409017544138180800378881578740083615428663315967694998545886780654832648487553643731677945029975040399138099608225885633404405319746497578024159752331863619054290113628798576311980716969952005297360995387950369486298319470894513339803252984849282568745711497902417852352753508305301345696457350190648994149479818849847715014745630137713824012498753975118216663879611207534311675029120447708039119559180175665914073691139228522604743743413342205053589418619541092167924132247295970968661352281493254331506739522115842784789963719425603419291704168170998942842524943129842709393604030587002215596675891259750059629771203419404835240440176743311970649998906682359297617744099606833535281783678482117455941422580128838069042601149377861539651476568089737868355603642638854314330308094356254827741663444204068360750499479440509953646718285783780924983181564436743167643659332168294658052538910658176437005074603604526884643181367507910419721483607952053784627094976314149490259795016510175664643812356626977691772146829238901104779573318796902826548892595693780591327357251451011933262325714034311896463869251500484231228649762974594731809663166894483859306033390197258023026694654789051755821030013545919195414195406191877604542312218607458499735789668752486091875054993272005002093530742399835619687055547895198792314408245467164042424212205573441625888530505430114530567790334780636677873229865196348786219719785667420167345595518199823298147442399686061856981492857168159487047313973007233602321742587969859756755664733321702807501657327815714594389279106286101785708148469125649400422755684577370004004503094728057975436742527093949269461224700164981934041285532690986121657815522378344207505364792622243538153727192242210741891944515960091205891128329880731166732647538780200861324166969010461739392293241512547086821866686665186663076004320259423017193305800415370356761914302126142495779078897687687659691283636575977933693830203013596165111566512188178918485697003795968036713003248225234201666406983169673511223919949272421066580290689612282766590384388411970324430162365290246989590395373305911406976537178686446176289733242325564108520615612988514464003112377847027953118628530806910359009010184145519593965740477691551499340432872720426853237846763372737069899202705323139029679429780667230904605420919950579344575990018816530271543977993663478400361108291122828811036259198189744731691544141104583189338628169328601454398219523173965116795233518116390273856319255284273518181682909853527545397097325945734291026704506577195210273915773112779186947598032906447741128746016814819384094504014813034880461458344872571032867682202227887321062632306875394454200371812621911728172885815054403798788149406631929508843313723668007935561984747933801504338014082923661798968356078563456337963629382041050416042731876242714681224415001491184868118446849270778135791386770242007110314853996007538092836891535505701835968050476521625356759787459143717392744683907946214178358374326402680812119807622830978783613226133669539198011528700877057987939038719264655867945757559135707168394386950370382946584666048326180050260989425862346206430017282561065938698413420388257293856176682501481324832725371232739281370914838600520621042509831118562109548834986936869119466680768087974116748507612017473799310828507393124048639480488271805504249751220809618729863665872221170616640133272520015830766602543896055816983628283145561857013829738136858171847174580942921621395450714449254938909130590691060549992714716960695775063514068902316857047639549180513809359362286314842369268892693307484822492977847792670081470052751437614566679945934706746582172407820516835451358968840290119583849343707177305367297615874351943456001891240969095845741551227680636128022942575329498285811652926494777866175340520543327274684466449313742447492509766253943748884836925550778501094176028304748568034040314137964596920878793492807353107582771904239330604696169825722328800367795452256816808155904930344561354682173090165316128402558732733606425061503952847892460039214133573199704022731991809939746319046576030824078474185008700736578473552727532468098780745494046635978509861219860369147702644223481991988345879455752794846547201748344546631645907331463512742320357223873087909416935193825010060469737369737860023219022751575747861965945967517496984781951885987357684662957778995976589979190410442716485596006153922066387543372651919519500216687479152635191956730857095415494016992884803605552820058283630558381899827025752158743955232908351292944806968455094075184493908861408061362255116179967337861791008740569741045508168788794822989707210899863159023165861319531454409432139891038378457413993282870766645696541241143229513986992163996040260207600936263297261795649962362225426146791513714358980718875575034477551118347629162067058556445677656972469073805360132483099916156950149115623860930303961972025117111336534116703669150321081327844642385792317128272274388668353986858522889842062475566128736485917534512249367794261731141426861363175424015789905286833493321930107573360785559274343652715628091859365162915902841556431016124110572887686959520977200136245203377518900824689761951). + #$7568644328816382367545516621473196068917869934487165997962491976492729258522022612794703883689405243884056344172284410502322183644997815631713611613501531545550273726130689245043900108284058623382629359798023722596347736523149564365655844348050948894209000128850882376175006077677566955053067034345924221304968916230624415887419315887871805420614142361708444441635301755026177668020362953843124070970261347892427670116349754334080492137609799513509430333550909698372439460052129398480928967306876363732227473758951529517449769943486417620337471372878977201688769968537940810101028455425260705139942716480344699698879195386315864557051484872859985877597313409011931777126805514805230490444302058237235305398253435254560101288949701556728146999472800814697491371048766337153404779401649101772414403048981280555352826907861714255876804072289626903399157152293615989616283264725786724242393258793036236911044050473624453562825004717112421075486215875746074127209919309138278240403103508211570856290966912564691929508430017874072481786829292820315701231167428696051944638806479668464229031212733858804364006152804729962752293714099738991999322343597758807881143019970899718205144442646353273267139602920889659286835286820070400244997506363338860929273266580542981476418928863500088366725475420250927279220657047615363307752671431272069787062735630910959647949832497564390847014770871887832199646476113577133572399654694413855914560055541693436448104318896402552308480654713493763860762971454164229465616770457166182803620505474741854739573880450851327588172786190482286014530329622756683741568788073000824222800795002937672786823709764342290447651618083286293945069756367487519040618260370876733522109501137515549335618943266328167871947339017871434220805232438119867419737860781761404035819075997587980568098045273204823159113778393383458980758573254305847038602861535996849043604014672214330916123240594150976317776365408603362284812485126256184182309159173193022406509606992145980374805004378767936387362672385385676955479246557055958494841390024389622730645414042033887778291300653663587021937374744134245607367394952715011050469172654995531067124313517172891098255379703501831581151807694860505412421676188980355551571653263549485670757312174956910673657717400320820353784344192791318109856021757822706483437755365168599753313394046789707582461174383777483464204755926891392156357100028439821957734793796126322243523348573753561445761352538534871875244439620894953977610602792709954304002223428916940633746786780615739983265929247520636883612582962734200241147953462221706773401041782987227096840631299460075710132501986542925409676549340562453691650862776817110935781195139320966328624945268904690631562986318740429419108605210869358548067637789605010298002751414515239892476156521230916680686253423576803905154607074856891517004490348397179047462360838130735951894293860685554632750713704457680572229103893478661897499925422050736796655862881467521347863382477299439060473295800304899595550928837037125953981131461923735777297941924172502577554151957804987509241952954882321367471653305726556502087419289550310467492296328927695469150663522241058041474116357719654654757575125241159156975067869831714676530448921115156151558068782964322836367131345438603954109448039925788713671576155916666648599495842833102486711033478150167327749912860062912059531507447461783443054890870797638122252525565606512997366310418701933518442574730159715042410232393217677103891757306825180341953059031505745488368412931787905580855968597871929062797215146383451747047272140265690574634295881340422118680127433352050613679138641317098180524901849994813964073353870568541770037623759107825233103797271464709919775991424845973826270186695309484807174871966165817519343812756032218787140984815937109913360638810442679964686538328681378844084817051176702930482373767698478772300293068891751612855048277865204160165718224314728517749766651420196879457818489852798554391355225658972758134664535322029380847823530693654693478888530744451875786584228302955278643406792826033008937608456337280614514741623539094351403703895200185604627564600199750761255010086989920184586777120852588692557774796907121863466507725046096895482822815825504218564357583346112745040911276358890688445798858752571252445172204570456613507176750816229116204308425206285077524384858296781484190000293076954858459153782118054206368734265868756714670840767986868866269001977450516189315314777111129773929572067037082683455215695495562586544241400970536099506107961872523434740519362091919080820502662767469163823086082938934746556806723680694520719809426856293503206344969735045000693483936028338635044251973413090125251858590539466799693177278567693452475521679427121166632692276933552284237782590685683867189784059137517958297763790374412208718911942374137962058714466349590115581149781404486090904773544481225956743966039944466105586006408797317401851200920052065206053016104917984541826836910020565314422950872268112470703413904338957092119949233105340358497422302677733148324752736194039969626759453919199236383376892396315949679863171554128445510095200707138531458818866573503638653192352846756257323768748029852195853773851291362127568958900497968450710475962102557122153045790969241993453126959571092221830539501610515734274682898068864727605215102113609920317062137733816550489631742340881640313111155150596935812244015346629643140039931058220419659110048504334001862192132167692107349720502515168089358641847081835310635301759461664180735371960645918561737826145941947430779732207614984385958223489054293621484859530444455479295932344404845235258267107507275714694511745602567500983290979819869002381023734576643122296231112701772973685321795771365551094024626266418307741173063607236144667718097764799025448714040150036779749171405197276196188409768565738186060055171211995101646554261418384599543842732247925069442903165676205886706794912784348582391046253835446780610959359318450069192013850809796094762961354317822593200839202186084733668536676955917260). 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 @@ -22048,133 +22210,14 @@ 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.10Package #<"REGRESSION-TEST" package> -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.12Package #<"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> -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> -Package #<"REGRESSION-TEST" package> -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.14 UNEXPORT.1 UNEXPORT.2 UNEXPORT.3 UNEXPORT.4 - UNEXPORT.5 UNEXPORT.6 UNEXPORT.ERROR.1 UNEXPORT.ERROR.2 UNINTERN.1 - UNINTERN.2 UNINTERN.3 UNINTERN.4 UNINTERN.5 UNINTERN.6 UNINTERN.7Properly threw an error: # - UNINTERN.8 UNINTERN.9 UNINTERN.ERROR.1 UNINTERN.ERROR.2 IN-PACKAGE.1 - IN-PACKAGE.2 IN-PACKAGE.3 IN-PACKAGE.4 IN-PACKAGE.5 UNUSE-PACKAGE.1 - UNUSE-PACKAGE.2 UNUSE-PACKAGE.3 UNUSE-PACKAGE.4 UNUSE-PACKAGE.5 - UNUSE-PACKAGE.6 UNUSE-PACKAGE.7 UNUSE-PACKAGE.8 UNUSE-PACKAGE.9 - UNUSE-PACKAGE.ERROR.1 UNUSE-PACKAGE.ERROR.2 USE-PACKAGE.1 - USE-PACKAGE.2 USE-PACKAGE.3 USE-PACKAGE.4 USE-PACKAGE.5 USE-PACKAGE.6 - USE-PACKAGE.ERROR.1 USE-PACKAGE.ERROR.2 DEFPACKAGE.1 DEFPACKAGE.2 - DEFPACKAGE.3 DEFPACKAGE.4 DEFPACKAGE.5 DEFPACKAGE.6 DEFPACKAGE.7 - DEFPACKAGE.8 DEFPACKAGE.9 DEFPACKAGE.10 DEFPACKAGE.11 DEFPACKAGE.12 - DEFPACKAGE.13 DEFPACKAGE.14 DEFPACKAGE.15 DEFPACKAGE.16 DEFPACKAGE.17 - DEFPACKAGE.18 DEFPACKAGE.19 DEFPACKAGE.20 DEFPACKAGE.21 DEFPACKAGE.22 - DEFPACKAGE.23 DEFPACKAGE.24 DEFPACKAGE.25Making G1... -Making G2... -Making G3... -Making G1... -Making G2... -Making G3... - DEFPACKAGE.26 DO-SYMBOLS.1 DO-SYMBOLS.2 DO-SYMBOLS.3 DO-SYMBOLS.4 - DO-SYMBOLS.5 DO-EXTERNAL-SYMBOLS.1 DO-EXTERNAL-SYMBOLS.2 - DO-EXTERNAL-SYMBOLS.3 DO-EXTERNAL-SYMBOLS.4 DO-EXTERNAL-SYMBOLS.5 - DO-SYMBOLS.6 DO-EXTERNAL-SYMBOLS.6 DO-SYMBOLS.7 DO-EXTERNAL-SYMBOLS.7 - DO-SYMBOLS.8 DO-EXTERNAL-SYMBOLS.8 PACKAGEP.1 PACKAGEP.2 - PACKAGEP.ERROR.1 PACKAGEP.ERROR.2 PACKAGE-ERROR.1 PACKAGE-ERROR.2 -Test PACKAGE-ERROR.3 failed -Form: (SUBTYPEP* 'PACKAGE-ERROR 'ERROR) -Expected values: T - T -Actual values: NIL - NIL. - PACKAGE-ERROR.4 PACKAGE-ERROR-PACKAGE.1 PACKAGE-ERROR-PACKAGE.2 - PACKAGE-ERROR-PACKAGE.3 PACKAGE-ERROR-PACKAGE.4 - PACKAGE-ERROR-PACKAGE.ERROR.1 PACKAGE-ERROR-PACKAGE.ERROR.2 KEYWORD.1 - KEYWORD.2 KEYWORD.3 PACKAGE-SHADOWING-SYMBOLS.ERROR.1 - PACKAGE-SHADOWING-SYMBOLS.ERROR.2 PACKAGE-USE-LIST.ERROR.1 - PACKAGE-USE-LIST.ERROR.2 PACKAGE-USED-BY-LIST.ERROR.1 - PACKAGE-USED-BY-LIST.ERROR.2 COPY-SEQ.1 COPY-SEQ.2 COPY-SEQ.3 - COPY-SEQ.4 COPY-SEQ.5 COPY-SEQ.6 COPY-SEQ.7 COPY-SEQ.8 COPY-SEQ.9 - COPY-SEQ.10 COPY-SEQ.11 COPY-SEQ.12 COPY-SEQ.13 COPY-SEQ.14 - COPY-SEQ.15 COPY-SEQ.16 COPY-SEQ.17 COPY-SEQ.18 COPY-SEQ.ORDER.1 - COPY-SEQ.ERROR.1 COPY-SEQ.ERROR.2 COPY-SEQ.ERROR.3 COPY-SEQ.ERROR.4 - COPY-SEQ.ERROR.5 COPY-SEQ.ERROR.6 ELT.1 ELT.1A ELT.1B ELT.2 ELT.3 - ELT.4 ELT.5 ELT.5A ELT.6 ELT.7 ELT.8 ELT.9 ELT.10 ELT.11 ELT.12 ELT.13 + SEARCH-VECTOR.10 SEARCH-VECTOR.11 SEARCH-VECTOR.12 SEARCH-VECTOR.13 + 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 + SEARCH-BITVECTOR.8 SEARCH-BITVECTOR.9 SEARCH-BITVECTOR.10 + SEARCH-BITVECTOR.11 SEARCH-BITVECTOR.12 SEARCH-BITVECTOR.13 + SEARCH-BITVECTOR.14 SEARCH-BITVECTOR.15 SEARCH-BITVECTOR.16 + SEARCH-STRING.2 SEARCH-STRING.3 ELT.13 ELT.14 ELT.15 ELT.16 ELT.17 ELT.18 ELT.19 ELT.ORDER.1 ELT.ORDER.2 ELT-V.1 ELT-V.3 ELT-V.4 ELT-V.5 ELT-V.6 ELT-V.7 ELT-V.8 ELT-V.9 ELT-V.10 ELT-V.11 ELT-V.12 ELT-V.13 ELT-ADJ-ARRAY.1 ELT-ADJ-ARRAY.3 @@ -23109,15 +23152,7 @@ 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 - REMOVE-RANDOM SEARCH-VECTOR.11 SEARCH-VECTOR.12 SEARCH-VECTOR.13 - 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 - SEARCH-BITVECTOR.8 SEARCH-BITVECTOR.9 SEARCH-BITVECTOR.10 - SEARCH-BITVECTOR.11 SEARCH-BITVECTOR.12 SEARCH-BITVECTOR.13 - SEARCH-BITVECTOR.14 SEARCH-BITVECTOR.15 SEARCH-BITVECTOR.16 - SEARCH-STRING.2 SEARCH-STRING.3 SEARCH-STRING.4 SEARCH-STRING.5 + REMOVE-IF-NOT.ORDER.2 DELETE-IF-NOT.ORDER.1 DELETE-IF-NOT.ORDER.2 SEARCH-STRING.4 SEARCH-STRING.5 SEARCH-STRING.6 SEARCH-STRING.7 SEARCH-STRING.8 SEARCH-STRING.9 SEARCH-STRING.10 SEARCH-STRING.11 SEARCH-STRING.13 SEARCH-STRING.14 SEARCH-STRING.15 SEARCH-STRING.16 MISMATCH-LIST.1 MISMATCH-LIST.2 @@ -23641,6 +23676,7 @@ 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 DELETE-IF-NOT-RANDOM REMOVE-IF-LIST.1 REMOVE-IF-LIST.2 REMOVE-IF-NOT-LIST.1 REMOVE-IF-NOT-LIST.2 @@ -23656,7 +23692,7 @@ 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 REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM DELETE-RANDOM + 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 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 @@ -23672,6 +23708,7 @@ 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 + RANDOM-REMOVE-DUPLICATES RANDOM-REMOVE-DUPLICATES RANDOM-DELETE-DUPLICATES REMOVE-DUPLICATES.1 DELETE-DUPLICATES.1 REMOVE-DUPLICATES.ORDER.1 REMOVE-DUPLICATES.ORDER.2 REMOVE-DUPLICATES.ALLOW-OTHER-KEYS.1 @@ -25294,1579 +25331,7 @@ (((SUBTYPEP 'PRINT-NOT-READABLE 'ATOM) ==> NIL NIL)) (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL)) (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL))). - 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 - RANDOM-REMOVE-DUPLICATES RANDOM-DELETE-DUPLICATES REMOVE-DUPLICATES.1 + TYPES.7B 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 @@ -28777,17 +27242,1673 @@ '(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 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 #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT ARITHMETIC-ERROR)) ==> NIL T) ((SUBTYPEP 'SYMBOL @@ -28804,17 +28925,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 @@ -28831,17 +28952,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 @@ -28883,17 +29004,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 @@ -28922,31 +29043,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 @@ -29032,16 +29153,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 @@ -29072,17 +29193,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 @@ -29099,31 +29220,31 @@ '(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 - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'UNDEFINED-FUNCTION) ==> NIL T) ((SUBTYPEP '(NOT UNDEFINED-FUNCTION) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT UNDEFINED-FUNCTION)) ==> NIL T) ((SUBTYPEP 'END-OF-FILE @@ -29180,31 +29301,31 @@ '(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 @@ -29221,42 +29342,42 @@ '(NOT CELL-ERROR)) ==> NIL T) ((SUBTYPEP 'FILE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'FILE-ERROR) + # 'FILE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT FILE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(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 @@ -29318,31 +29439,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 @@ -29360,72 +29481,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 @@ -29470,31 +29591,31 @@ '(NOT GENERIC-FUNCTION)) ==> NIL T) ((SUBTYPEP 'STREAM-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'STREAM-ERROR) ==> NIL T) ((SUBTYPEP '(NOT STREAM-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(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 @@ -29537,30 +29658,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 #) '(NOT UNBOUND-VARIABLE)) ==> NIL T)). Test ALL-STANDARD-CLASSES-ARE-SUBTYPES-OF-STANDARD-OBJECT failed @@ -30267,92 +30388,7 @@ 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 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 RANDOM-STRING-COMPARISON-TESTS MAKE-STRING.1 + RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 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 @@ -30719,7 +30755,11 @@ 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 - OPEN.PROBE.9 OPEN.PROBE.10 OPEN.PROBE.11 RENAME-FILE.5 RENAME-FILE.6 + 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 + OPEN.PROBE.24 OPEN.PROBE.25 OPEN.PROBE.26 OPEN.PROBE.27 OPEN.PROBE.28 + OPEN.PROBE.29 OPEN.PROBE.30 OPEN.PROBE.31 OPEN.PROBE.32 OPEN.PROBE.33 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 @@ -30967,7 +31007,7 @@ 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 OPEN.PROBE.24 OPEN.PROBE.25 OPEN.PROBE.26 OPEN.PROBE.27 OPEN.PROBE.28 - OPEN.PROBE.29 OPEN.PROBE.30 OPEN.PROBE.31 OPEN.PROBE.32 OPEN.PROBE.33 + OPEN.PROBE.29 OPEN.PROBE.30 OPEN.PROBE.34 OPEN.PROBE.35 OPEN.PROBE.36 OPEN.ERROR.1 OPEN.ERROR.2 OPEN.ERROR.3 OPEN.ERROR.4 OPEN.ERROR.5 OPEN.ERROR.6 OPEN.ERROR.7 OPEN.ERROR.8 OPEN.ERROR.9 OPEN.ERROR.10 OPEN.ERROR.11 OPEN.ERROR.12 @@ -31367,14 +31407,7 @@ cat debian/in.gcl.emacsen-compat | sed 's,@EXT@,,g' >debian/gcl.emacsen-compat cat debian/in.gcl.emacsen-install | sed 's,@EXT@,,g' >debian/gcl.emacsen-install cat debian/in.gcl.emacsen-remove | sed 's,@EXT@,,g' >debian/gcl.emacsen-remove -cat debian/in.gcl.emacsen-startup | sed 's,@EXT@,,g' >debian/gcl.emacsen-startup -cat debian/in.gcl.install | sed 's,@EXT@,,g' >debian/gcl.install -cat debian/in.gcl.manpages | sed 's,@EXT@,,g' >debian/gcl.manpages - 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 - OPEN.PROBE.24 OPEN.PROBE.25 OPEN.PROBE.26 OPEN.PROBE.27 OPEN.PROBE.28 - OPEN.PROBE.29 OPEN.PROBE.30 OPEN.PROBE.31 OPEN.PROBE.32 OPEN.PROBE.33 + OPEN.PROBE.31 OPEN.PROBE.32 OPEN.PROBE.33 OPEN.PROBE.34 OPEN.PROBE.35 OPEN.PROBE.36 OPEN.ERROR.1 OPEN.ERROR.2 OPEN.ERROR.3 OPEN.ERROR.4 OPEN.ERROR.5 OPEN.ERROR.6 OPEN.ERROR.7 OPEN.ERROR.8 OPEN.ERROR.9 OPEN.ERROR.10 OPEN.ERROR.11 OPEN.ERROR.12 @@ -31757,7 +31790,10 @@ WITH-OUTPUT-TO-STRING.16, DIGIT-CHAR.ERROR.2, CODE-CHAR.ERROR.2.;; Finished loading "gclload.lsp" T ->cat debian/in.gcl.postinst | sed 's,@EXT@,,g' >debian/gcl.postinst +>cat debian/in.gcl.emacsen-startup | sed 's,@EXT@,,g' >debian/gcl.emacsen-startup +cat debian/in.gcl.install | sed 's,@EXT@,,g' >debian/gcl.install +cat debian/in.gcl.manpages | sed 's,@EXT@,,g' >debian/gcl.manpages +cat debian/in.gcl.postinst | sed 's,@EXT@,,g' >debian/gcl.postinst cat debian/in.gcl.postrm | sed 's,@EXT@,,g' >debian/gcl.postrm dh_testdir dh_testroot @@ -31856,12 +31892,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/505186/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/505186/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/849285 and its subdirectories -I: Current time: Tue Apr 28 02:01:36 -12 2026 -I: pbuilder-time-stamp: 1777384896 +I: removing directory /srv/workspace/pbuilder/505186 and its subdirectories +I: Current time: Wed Mar 26 22:05:57 +14 2025 +I: pbuilder-time-stamp: 1742976357