Diff of the two buildlogs: -- --- b1/build.log 2024-08-20 04:33:00.229549533 +0000 +++ b2/build.log 2024-08-20 04:51:12.395118680 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Mon Aug 19 16:13:56 -12 2024 -I: pbuilder-time-stamp: 1724127236 +I: Current time: Tue Sep 23 00:56:03 +14 2025 +I: pbuilder-time-stamp: 1758538563 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -36,52 +36,84 @@ dpkg-source: info: applying Version_2_6_15pre10 I: using fakeroot in build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/3902051/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/1973054/tmp/hooks/D01_modify_environment starting +debug: Running on codethink03-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 Sep 22 10:56 /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/1973054/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/1973054/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]="21" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") + BASH_VERSION='5.2.21(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=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=' ' - INVOCATION_ID='1581ef39f42c40928ace168fdfd8ea35' - 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='3902051' - PS1='# ' - PS2='> ' + INVOCATION_ID=7b40b2cbb99f495998f1c6355943d514 + 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=1973054 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.3aTv3mjJ/pbuilderrc_ZYE8 --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.3aTv3mjJ/b1 --logfile b1/build.log gcl_2.6.14-11.dsc' - SUDO_GID='109' - SUDO_UID='104' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://192.168.101.4:3128' + 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.3aTv3mjJ/pbuilderrc_GwfF --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.3aTv3mjJ/b2 --logfile b2/build.log gcl_2.6.14-11.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 codethink04-arm64 6.1.0-23-cloud-arm64 #1 SMP Debian 6.1.99-1 (2024-07-15) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-23-cloud-arm64 #1 SMP Debian 6.1.99-1 (2024-07-15) aarch64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Aug 4 21:30 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/3902051/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Aug 4 2024 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/1973054/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -250,7 +282,7 @@ Get: 109 http://deb.debian.org/debian unstable/main arm64 tcl8.6-dev arm64 8.6.14+dfsg-1 [1001 kB] Get: 110 http://deb.debian.org/debian unstable/main arm64 tk8.6 arm64 8.6.14-1 [69.7 kB] Get: 111 http://deb.debian.org/debian unstable/main arm64 tk8.6-dev arm64 8.6.14-1 [755 kB] -Fetched 49.3 MB in 0s (166 MB/s) +Fetched 49.3 MB in 0s (191 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package tzdata. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19841 files and directories currently installed.) @@ -616,8 +648,8 @@ Setting up tzdata (2024a-4) ... Current default time zone: 'Etc/UTC' -Local time is now: Tue Aug 20 04:14:29 UTC 2024. -Universal Time is now: Tue Aug 20 04:14:29 UTC 2024. +Local time is now: Mon Sep 22 10:56:29 UTC 2025. +Universal Time is now: Mon Sep 22 10:56:29 UTC 2025. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up xtrans-dev (1.4.0-1) ... @@ -724,7 +756,11 @@ fakeroot is already the newest version (1.36-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-11_source.changes +I: user script /srv/workspace/pbuilder/1973054/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/1973054/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-11_source.changes dpkg-buildpackage: info: source package gcl dpkg-buildpackage: info: source version 2.6.14-11 dpkg-buildpackage: info: source distribution unstable @@ -3199,13 +3235,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 @@ -6073,20 +6109,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_81405_0.lsp. +Compiling gazonk_2053187_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_81405_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_0.o" -start address -T 0xee9b50 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_0.o" -Compiling gazonk_81405_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_0.o" +start address -T 0xee9b50 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_0.o" +Compiling gazonk_2053187_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_81405_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_1.o" -start address -T 0xeea160 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_1.o" +start address -T 0xeea160 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_1.o" start address -T 0xee9990 ;; 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. @@ -6096,34 +6132,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_81405_2.lsp. +Compiling gazonk_2053187_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_81405_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_2.o" -start address -T 0xeee780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_2.o" -Compiling gazonk_81405_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_2.o" +start address -T 0xeee780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_2.o" +Compiling gazonk_2053187_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_81405_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_3.o" -start address -T 0xeef8b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_3.o" -Compiling gazonk_81405_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_3.o" +start address -T 0xeef8b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_3.o" +Compiling gazonk_2053187_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_81405_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_4.o" -start address -T 0xef0630 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_4.o" -Compiling gazonk_81405_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_4.o" +start address -T 0xef0630 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_4.o" +Compiling gazonk_2053187_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_81405_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_5.o" -start address -T 0xef0ed0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_5.o" +start address -T 0xef0ed0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_5.o" start address -T 0xeea770 ;; 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. @@ -6133,13 +6169,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_81405_6.lsp. +Compiling gazonk_2053187_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_81405_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_6.o" -start address -T 0xef20c0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_6.o" +start address -T 0xef20c0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_6.o" start address -T 0xef1910 ;; 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. @@ -6152,13 +6188,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_81405_7.lsp. +Compiling gazonk_2053187_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_81405_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_7.o" -start address -T 0xef89f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_81405_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_7.o" +start address -T 0xef89f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2053187_7.o" Warning: DESCRIBE is being redefined. start address -T 0xef2960 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -7034,7 +7070,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0x1099ef0 ;; Finished loading "../tkl.o" +start address -T 0x109a350 ;; Finished loading "../tkl.o" 82990 > @@ -7044,13 +7080,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 @@ -9638,13 +9674,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 @@ -12498,20 +12534,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_540367_0.lsp. +Compiling gazonk_2150160_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_540367_0.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_0.o" -start address -T 0xee9b50 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_0.o" -Compiling gazonk_540367_1.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_0.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_0.o" +start address -T 0xee9b50 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_0.o" +Compiling gazonk_2150160_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_540367_1.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_1.o" -start address -T 0xeea160 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_1.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_1.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_1.o" +start address -T 0xeea160 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_1.o" start address -T 0xee9990 ;; 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. @@ -12521,34 +12557,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_540367_2.lsp. +Compiling gazonk_2150160_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_540367_2.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_2.o" -start address -T 0xeee780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_2.o" -Compiling gazonk_540367_3.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_2.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_2.o" +start address -T 0xeee780 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_2.o" +Compiling gazonk_2150160_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_540367_3.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_3.o" -start address -T 0xeef8b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_3.o" -Compiling gazonk_540367_4.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_3.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_3.o" +start address -T 0xeef8b0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_3.o" +Compiling gazonk_2150160_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_540367_4.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_4.o" -start address -T 0xef0630 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_4.o" -Compiling gazonk_540367_5.lsp. +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_4.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_4.o" +start address -T 0xef0630 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_4.o" +Compiling gazonk_2150160_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_540367_5.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_5.o" -start address -T 0xef0ed0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_5.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_5.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_5.o" +start address -T 0xef0ed0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_5.o" start address -T 0xeea770 ;; 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. @@ -12558,13 +12594,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_540367_6.lsp. +Compiling gazonk_2150160_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_540367_6.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_6.o" -start address -T 0xef20c0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_6.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_6.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_6.o" +start address -T 0xef20c0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_6.o" start address -T 0xef1910 ;; 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. @@ -12577,13 +12613,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_540367_7.lsp. +Compiling gazonk_2150160_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_540367_7.o. -;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_7.o" -start address -T 0xef89f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_540367_7.o" +Finished compiling /build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_7.o. +;; Loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_7.o" +start address -T 0xef89f0 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/pcl/gazonk_2150160_7.o" Warning: DESCRIBE is being redefined. start address -T 0xef2960 ;; Finished loading #p"/build/reproducible-path/gcl-2.6.14/unixport/../pcl/gcl_pcl_env.o" Compiling GCL_PCL_COMPAT... @@ -13459,7 +13495,7 @@ /tmp/ >;; Loading "../tkl.o" -start address -T 0x109dbb0 ;; Finished loading "../tkl.o" +start address -T 0x109a300 ;; Finished loading "../tkl.o" 82990 > @@ -13469,13 +13505,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 @@ -13635,7 +13671,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 0x1018690 ;; Finished loading #p"rt.o" +start address -T 0xffe470 ;; Finished loading #p"rt.o" ;; Loading "cl-test-package.lsp" ;; Finished loading "cl-test-package.lsp" ;; Loading "universe.lsp" @@ -13646,7 +13682,7 @@ OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/random-aux.o. ;; Loading #p"random-aux.o" -start address -T 0xc12330 ;; Finished loading #p"random-aux.o" +start address -T 0x105c760 ;; Finished loading #p"random-aux.o" Compiling ansi-aux.lsp. ; (DEFUN CHECK-VALUES-LENGTH ...) is being compiled. ;; Warning: The ignored variable E is used. @@ -13679,7 +13715,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 0x1018690 ;; Finished loading #p"rt.o" +start address -T 0xffe470 ;; Finished loading #p"rt.o" ;; Loading "cl-test-package.lsp" ;; Finished loading "cl-test-package.lsp" ;; Loading "universe.lsp" @@ -13690,7 +13726,7 @@ OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/random-aux.o. ;; Loading #p"random-aux.o" -start address -T 0xc12330 ;; Finished loading #p"random-aux.o" +start address -T 0x105c760 ;; Finished loading #p"random-aux.o" Compiling ansi-aux.lsp. ; (DEFUN CHECK-VALUES-LENGTH ...) is being compiled. ;; Warning: The ignored variable E is used. @@ -13701,14 +13737,14 @@ OPTIMIZE levels: Safety=3, Space=0, Speed=3 Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/ansi-aux.o. ;; Loading #p"ansi-aux.o" -OPTIMIZE levels: Safety=3, Space=0, Speed=3 -Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/ansi-aux.o. -;; Loading #p"ansi-aux.o" -start address -T 0x18fe010 ;; Finished loading #p"ansi-aux.o" +start address -T 0x18fd010 ;; Finished loading #p"ansi-aux.o" ;; Loading "cl-symbol-names.lsp" ;; Finished loading "cl-symbol-names.lsp" ;; Finished loading "gclload1.lsp" -start address -T 0x18fe010 ;; Finished loading #p"ansi-aux.o" +OPTIMIZE levels: Safety=3, Space=0, Speed=3 +Finished compiling /build/reproducible-path/gcl-2.6.14/ansi-tests/ansi-aux.o. +;; Loading #p"ansi-aux.o" +start address -T 0x18fd010 ;; Finished loading #p"ansi-aux.o" ;; Loading "cl-symbol-names.lsp" ;; Finished loading "cl-symbol-names.lsp" ;; Finished loading "gclload1.lsp" @@ -14202,7 +14238,7 @@ Form: (REMOVE-IF #'MACRO-FUNCTION *EVAL-AND-COMPILE-MACROS*) Expected value: NIL Actual value: (DEFINE-SYMBOL-MACRO). - COMPILE.1 COMPILE.2 COMPILE.3 COMPILE.4 COMPILE.5Doing 11799 pending tests of 11799 tests total. + COMPILE.1 COMPILE.2Doing 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* @@ -15262,7 +15298,577 @@ (FOO A))) Expected value: 2 Actual value: 1. - MACROLET.15 MACROLET.16 SYMBOL-MACROLET.1 MULTIPLE-VALUE-BIND.1 + MACROLET.15 MACROLET.16 COMPILE.3 COMPILE.4 COMPILE.5 COMPILE.6 COMPILE.7 + COMPILE.8 COMPILE.9 +Test COMPILE.ERROR.1 failed +Form: (CLASSIFY-ERROR (COMPILE)) +Expected value: PROGRAM-ERROR +Actual value: ERROR. +Test COMPILE.ERROR.2 failed +Form: (CLASSIFY-ERROR (COMPILE NIL '(LAMBDA () NIL) 'GARBAGE)) +Expected value: PROGRAM-ERROR +Actual values: # + NIL + NIL. + CONSTANTP.ERROR.1 CONSTANTP.ERROR.2 CONSTANTP.1 CONSTANTP.2 + CONSTANTP.3 CONSTANTP.4 CONSTANTP.5 +Test CONSTANTP.6 failed +Form: (CONSTANTP-MACRO CONSTANTP-TEST-SYMBOL) +Expected value: T +Actual value: #. + CONSTANTP.7 +Test CONSTANTP.8 failed +Form: (NOTNOT-MV (CONSTANTP 1 NIL)) +Expected value: T +Actual value: #. + CONSTANTP.9 CONSTANTP.10 CONSTANTP.ORDER.1 +Test CONSTANTP.ORDER.2 failed +Form: (LET ((I 0) X Y) + (VALUES (NOTNOT (CONSTANTP (PROGN (SETF X (INCF I)) 1) + (PROGN (SETF Y (INCF I)) NIL))) + I X Y)) +Expected values: T + 2 + 1 + 2 +Actual value: #. + LAMBDA.1 LAMBDA.2 LAMBDA.3 LAMBDA.4 LAMBDA.5 LAMBDA.6 LAMBDA.7 + LAMBDA.8 LAMBDA.9 LAMBDA.10 LAMBDA.MACRO.1 LAMBDA.MACRO.2 +Test DCF-FUNS failed +Form: (REMOVE-IF #'FBOUNDP *DCF-FNS*) +Expected value: NIL +Actual value: (FUNCTION-LAMBDA-EXPRESSION). +Test DCF-MACROS failed +Form: (REMOVE-IF #'MACRO-FUNCTION *DCF-MACROS*) +Expected value: NIL +Actual value: (DEFINE-SETF-EXPANDER). + SETF-ORDER SETF-ORDER.2 PUSH-ORDER PUSHNEW-ORDER PUSHNEW-ORDER.2 + REMF-ORDER INCF-ORDER DECF-ORDER SHIFTF-ORDER.1 SHIFTF-ORDER.2 + ROTATEF-ORDER.1 ROTATEF-ORDER.2 PSETF-ORDER PSETF-ORDER.2 POP-ORDER + SETF-VAR SETF-VALUES.1 SETF-VALUES.2 SETF-VALUES.3 SETF-VALUES.4 +Test SETF-VALUES.5 failed +Form: (LET ((A (VECTOR NIL NIL)) (I 0) X Y Z) + (SETF (VALUES (AREF A (PROGN (SETF X (INCF I)) 0)) + (AREF A (PROGN (SETF Y (INCF I)) 1))) + (PROGN (SETF Z (INCF I)) (VALUES 'FOO 'BAR))) + (VALUES A I X Y Z)) +Expected values: #(FOO BAR) + 3 + 1 + 2 + 3 +Actual values: #(FOO BAR) + 3 + 2 + 3 + 1. + SETF-VALUES.6 SETF-THE.1 SETF-THE.2 SETF-APPLY.1 SETF-APPLY.2 + SETF-APPLY.3 SETF-APPLY.4 SETF-EXPANDER.1 SETF-MACRO.1 SETF-MACRO.2 + SETF-MACRO.3 SETF-MACRO.4 SETF-SYMBOL-MACRO.1 SETF-SYMBOL-MACRO.2 + SETF-SYMBOL-MACRO.3 SETQ.1 SETQ.2 SETQ.3 SETQ.4 SETF.1 SETF.2 SETF.3 + SETF.4 PSETQ.1 PSETQ.2 PSETQ.3 PSETQ.4 PSETQ.5 PSETQ.6 +Test PSETQ.7 failed +Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) + (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) + (PSETQ X (AREF A (INCF I)) Y (AREF A (INCF I))) + (VALUES A I))) +Expected values: #(0 2 2 4 4 5 6 7 8 9) + 4 +Actual values: #(0 1 2 1 2 5 6 7 8 9) + 4. + PSETF.1 PSETF.2 PSETF.3 PSETF.4 PSETF.5 PSETF.6 +Test PSETF.7 failed +Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) + (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) + (PSETF X (AREF A (INCF I)) Y (AREF A (INCF I))) + (VALUES A I))) +Expected values: #(0 2 2 4 4 5 6 7 8 9) + 4 +Actual values: #(0 1 2 1 2 5 6 7 8 9) + 4. + PSETF.8 PSETF.9 AND.1 AND.2 AND.3 AND.4 AND.5 AND.6 AND.7 AND.8 AND.9 + AND.ORDER.1 AND.ORDER.2 APPLY.ERROR.1 APPLY.ERROR.2 APPLY.ERROR.3 + APPLY.ERROR.4 APPLY.1 APPLY.2 APPLY.3 APPLY.4 APPLY.5 APPLY.ORDER.1 + BLOCK.1 BLOCK.2 BLOCK.3 BLOCK.4 BLOCK.5 BLOCK.6 BLOCK.7 BLOCK.8 + BLOCK.9 BLOCK.10 CALL-ARGUMENTS-LIMIT.1 CALL-ARGUMENTS-LIMIT.2 + CALL-ARGUMENTS-LIMIT.3 CALL-ARGUMENTS-LIMIT.4 CALL-ARGUMENTS-LIMIT.5 + CASE.1 CASE.2 CASE.3 CASE.4 CASE.5 CASE.6 CASE.7 CASE.8 CASE.9 CASE.10 + CASE.11 CASE.12 CASE.13 CASE.14 CASE.15 CASE.16 CASE.17 CASE.18 + CASE.19 CASE.20 CASE.21 CASE.22 CASE.23 CASE.24 CASE.25 CASE.26 + CASE.27 CASE.28 CASE.29 CASE.30 CASE.31 CASE.32 CASE.33 CASE.34 + CATCH.1 CATCH.2 CATCH.3 CATCH.4 CATCH.5 CATCH.6 CATCH.7 CATCH.8 + CATCH.9 CATCH.10 CATCH.11 CATCH.12 +Test THROW-ERROR failed +Form: (CLASSIFY-ERROR (THROW (GENSYM) NIL)) +Expected value: CONTROL-ERROR +Actual value: ERROR. + CCASE.1 CCASE.2 CCASE.3 CCASE.4 CCASE.5 CCASE.6 CCASE.7 CCASE.8 + CCASE.9 CCASE.10 CCASE.11 CCASE.12 CCASE.13 CCASE.14 CCASE.15 CCASE.16 + CCASE.17 CCASE.19 CCASE.20 CCASE.21 CCASE.23 CCASE.25 CCASE.26 + CCASE.27 CCASE.28 CCASE.29 CCASE.30 CCASE.31 COMPILED-FUNCTION-P.1 + COMPILED-FUNCTION-P.2 COMPILED-FUNCTION-P.3 + COMPILED-FUNCTION-P.ORDER.1 COMPILED-FUNCTION-P.ERROR.1 + COMPILED-FUNCTION-P.ERROR.2 COMPLEMENT.1 COMPLEMENT.2 COMPLEMENT.3 + COMPLEMENT.4 COMPLEMENT.5 COMPLEMENT.ORDER.1 COMPLEMENT.ERROR.1 + COMPLEMENT.ERROR.2 COMPLEMENT.ERROR.3 COMPLEMENT.ERROR.4 COND.1 COND.2 + COND.3 COND.4 COND.5 COND.6 COND.7 COND.8 COND.9 COND.10 COND.11 + COND.12 COND.13 COND.14 CONSTANTLY.1 CONSTANTLY.2 CONSTANTLY.3 + CONSTANTLY.ERROR.1 CONSTANTLY.ERROR.2 CTYPECASE.1 CTYPECASE.2 + CTYPECASE.3 CTYPECASE.4 CTYPECASE.5 CTYPECASE.6 CTYPECASE.7 + CTYPECASE.8 CTYPECASE.9 CTYPECASE.10 CTYPECASE.11 CTYPECASE.12 + CTYPECASE.13 DEFCONSTANT.1 DEFCONSTANT.2 DEFCONSTANT.3 DEFCONSTANT.4 + DEFCONSTANT.5 DEFINE-MODIFY-MACRO.1 DEFINE-MODIFY-MACRO.2 + DEFINE-MODIFY-MACRO.3 DEFINE-MODIFY-MACRO.4 DEFPARAMETER.1 + DEFPARAMETER.2 DEFPARAMETER.3 DEFPARAMETER.4 DEFPARAMETER.5 DEFVAR.1 + DEFVAR.2 DEFVAR.3 DEFVAR.4 DEFVAR.5 DESTRUCTURING-BIND.1 + DESTRUCTURING-BIND.2 DESTRUCTURING-BIND.3 DESTRUCTURING-BIND.4 + DESTRUCTURING-BIND.5 DESTRUCTURING-BIND.6 DESTRUCTURING-BIND.7 + DESTRUCTURING-BIND.8 DESTRUCTURING-BIND.9 DESTRUCTURING-BIND.10 + DESTRUCTURING-BIND.11 DESTRUCTURING-BIND.12 DESTRUCTURING-BIND.13 + DESTRUCTURING-BIND.14 DESTRUCTURING-BIND.15 DESTRUCTURING-BIND.16 + DESTRUCTURING-BIND.17 DESTRUCTURING-BIND.18 ECASE.1 ECASE.2 ECASE.3 + ECASE.4 ECASE.5 ECASE.6 ECASE.7 ECASE.8 ECASE.9 ECASE.10 ECASE.11 + ECASE.12 ECASE.13 ECASE.14 ECASE.15 ECASE.16 ECASE.17 ECASE.18 + ECASE.19 ECASE.20 ECASE.21 ECASE.23 ECASE.25 ECASE.26 ECASE.27 + ECASE.28 ECASE.29 ECASE.31 ECASE.32 EQL.1 EQL.2 EQL.3 EQL.4 EQL.5 + EQL.7 EQL.8 EQL.9 EQL.10 EQL.11 EQL.ORDER.1 EQL.ERROR.1 EQL.ERROR.2 + EQL.ERROR.3 EQ.ERROR.1 EQ.ERROR.2 EQ.ERROR.3 EQUAL.1 EQUAL.2 EQUAL.3 + EQUAL.4 EQUAL.5 EQUAL.6 EQUAL.7 EQUAL.8 EQUAL.9 EQUAL.10 EQUAL.11 + EQUAL.12 EQUAL.ORDER.1 EQUAL.ERROR.1 EQUAL.ERROR.2 EQUAL.ERROR.3 + EQUALP.1 EQUALP.2 EQUALP.3 EQUALP.4 EQUALP.ORDER.1 EQUALP.ERROR.1 + EQUALP.ERROR.2 EQUALP.ERROR.3 ETYPECASE.1 ETYPECASE.2 ETYPECASE.3 + ETYPECASE.4 ETYPECASE.5 ETYPECASE.6 ETYPECASE.7 ETYPECASE.8 + ETYPECASE.9 ETYPECASE.10 ETYPECASE.11 ETYPECASE.12 EVERY.1 EVERY.2 + EVERY.3 EVERY.4 EVERY.5 EVERY.6 EVERY.7 EVERY.8 EVERY.9 EVERY.10 + EVERY.11 EVERY.12 EVERY.13 EVERY.14 EVERY.15 EVERY.16 EVERY.ORDER.1 + EVERY.ORDER.2 EVERY.ERROR.1 EVERY.ERROR.2 EVERY.ERROR.3 EVERY.ERROR.4 + EVERY.ERROR.5 EVERY.ERROR.6 EVERY.ERROR.7 EVERY.ERROR.9 EVERY.ERROR.10 + EVERY.ERROR.11 EVERY.ERROR.12 EVERY.ERROR.13 FBOUNDP.1 FBOUNDP.2 + FBOUNDP.3 FBOUNDP.4 FBOUNDP.5 +Test FBOUNDP.6 failed +Form: (NOT-MV (FBOUNDP '(SETF FBOUNDP-6-ACCESSOR))) +Expected value: NIL +Actual value: #. +Test FBOUNDP.7 failed +Form: (LET ((G (GENSYM))) (FBOUNDP (LIST 'SETF G))) +Expected value: NIL +Actual value: #. + FBOUNDP.ORDER.1 FBOUNDP.ERROR.1 FBOUNDP.ERROR.2 FBOUNDP.ERROR.3 + FBOUNDP.ERROR.4 FBOUNDP.ERROR.5 FBOUNDP.ERROR.6 +Test FDEFINITION.ERROR.1 failed +Form: (CLASSIFY-ERROR (FDEFINITION)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FDEFINITION.ERROR.2 failed +Form: (CLASSIFY-ERROR (FDEFINITION 'CONS NIL)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. + FDEFINITION.ERROR.3 +Test FDEFINITION.ERROR.4 failed +Form: (CLASSIFY-ERROR (FDEFINITION 10)) +Expected value: TYPE-ERROR +Actual value: UNDEFINED-FUNCTION. + FDEFINITION.ERROR.5 +Test FDEFINITION.ERROR.6 failed +Form: (CLASSIFY-ERROR (LOCALLY (FDEFINITION 10) T)) +Expected value: TYPE-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FDEFINITION.1 failed +Form: (LET ((FUN (FDEFINITION 'CONS))) (FUNCALL FUN 'A 'B)) +Expected value: (A . B) +Actual value: #. +Test FDEFINITION.2 failed +Form: (PROGN (FDEFINITION 'COND) :GOOD) +Expected value: :GOOD +Actual value: #. +Test FDEFINITION.3 failed +Form: (PROGN (FDEFINITION 'SETQ) :GOOD) +Expected value: :GOOD +Actual value: #. +Test FDEFINITION.4 failed +Form: (LET ((SYM (GENSYM))) + (VALUES (FBOUNDP SYM) + (PROGN + (SETF (FDEFINITION SYM) (FDEFINITION 'CONS)) + (FUNCALL (SYMBOL-FUNCTION SYM) 'A 'B)) + (NOTNOT (FBOUNDP SYM)))) +Expected values: NIL + (A . B) + T +Actual value: #. +Test FDEFINITION.5 failed +Form: (LET* ((SYM (GENSYM)) (FNAME (LIST 'SETF SYM))) + (VALUES (FBOUNDP FNAME) + (PROGN + (SETF (FDEFINITION FNAME) (FDEFINITION 'CONS)) + (EVAL (LIST 'SETF (LIST SYM ''A) ''B))) + (NOTNOT (FBOUNDP FNAME)))) +Expected values: NIL + (B . A) + T +Actual value: #. +Test FDEFINITION.ORDER.1 failed +Form: (LET ((I 0)) (FDEFINITION (PROGN (INCF I) 'SETQ)) I) +Expected value: 1 +Actual value: #. + FLET.1 FLET.2 FLET.3 FLET.4 FLET.5 FLET.6 FLET.7 FLET.8 FLET.9 FLET.10 + FLET.11 FLET.12 FLET.13 FLET.14 FLET.15 FLET.16 +Test FLET.17 failed +Form: (FLET (((SETF %F) (X Y) (SETF (CAR Y) X))) + (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) +Expected value: (A 2) +Actual value: #. + FLET.18 FLET.19 FLET.20 FLET.21 FLET.22 FLET.23 FLET.24 FLET.25 + FLET.26 FLET.27 FLET.28 FLET.29 FLET.30 FLET.31 FLET.32 FLET.33 + FLET.34 FLET.35 FLET.36 FLET.37 FLET.38 FLET.39 FLET.40 FLET.45 + FLET.46 FLET.47 FLET.48 FLET.49 FLET.50 +Test FLET.51 failed +Form: (LOOP + FOR + S + IN + *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* + FOR + FORM + = + (LIST 'CLASSIFY-ERROR + (LIST 'FLET + (LIST (LIST* (LIST 'SETF S) + '((&REST ARGS) (DECLARE (IGNORE ARGS)) + 'A))) + (LIST 'SETF (LIST S) 10))) + UNLESS + (EQ (EVAL FORM) 'A) + COLLECT + S) +Expected value: NIL +Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL + &REST &WHOLE ** *** *BREAK-ON-SIGNALS* + *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* + *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* + *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* + *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* + *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* + *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* + *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* + *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* + *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* + *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* + *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* + *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* + *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* + *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* + *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ + // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT + ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR + BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 + BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 + BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR + BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN + BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT + CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED + COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM + CONDITION CONTROL-ERROR DEBUG DECLARATION + DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON + DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT + ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR + FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM + FLOATING-POINT-INEXACT + FLOATING-POINT-INVALID-OPERATION + FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW + FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE + INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD + LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT + LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT + LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT + LEAST-NEGATIVE-SHORT-FLOAT + LEAST-NEGATIVE-SINGLE-FLOAT + LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-POSITIVE-NORMALIZED-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT + LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT + LEAST-POSITIVE-SHORT-FLOAT + LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT + LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD + METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT + MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT + MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT + MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM + MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT + MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL + NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE + PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE + PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR + READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE + SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON + SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY + SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION + SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR + SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT + SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON + SPACE SPECIAL SPEED STANDARD STANDARD-CHAR + STANDARD-CLASS STANDARD-GENERIC-FUNCTION + STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION + STREAM STREAM-ERROR STRING-STREAM STRUCTURE + STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL + SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR + UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION + UNSIGNED-BYTE VARIABLE WARNING). + FMAKUNBOUND.1 FMAKUNBOUND.2 FMAKUNBOUND.3 +Test FMAKUNBOUND.4 failed +Form: (LET* ((G (GENSYM)) (N (LIST 'SETF G))) + (AND (NOT (FBOUNDP N)) (EVAL (LIST* 'DEFUN N '(NIL NIL))) + (FBOUNDP N) + (VALUES (EQUAL (CHECK-VALUES (FMAKUNBOUND N)) N) + (FBOUNDP N)))) +Expected values: T + NIL +Actual value: #. + FMAKUNBOUND.ERROR.1 FMAKUNBOUND.ERROR.2 FMAKUNBOUND.ERROR.3 + FMAKUNBOUND.ERROR.4 FMAKUNBOUND.ERROR.5 FMAKUNBOUND.ERROR.6 FUNCALL.1 + FUNCALL.2 FUNCALL.3 FUNCALL.4 FUNCALL.5 FUNCALL.6 FUNCALL.7 FUNCALL.8 + FUNCALL.9 FUNCALL.ORDER.1 FUNCALL.ORDER.2 FUNCALL.ERROR.1 + FUNCALL.ERROR.2 +Test FUNCALL.ERROR.3 failed +Form: (CLASSIFY-ERROR (FUNCALL 'DEFCONSTANT '(DEFCONSTANT X 10))) +Expected value: UNDEFINED-FUNCTION +Actual value: PROGRAM-ERROR. + FUNCALL.ERROR.4 FUNCALL.ERROR.5 FUNCALL.ERROR.6 FUNCALL.ERROR.7 +Test FUNCTION-LAMBDA-EXPRESSION.1 failed +Form: (LENGTH (MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'CONS))) +Expected value: 3 +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.2 failed +Form: (LET ((X NIL)) + (FLET ((%F NIL X)) + (LET ((RET-VALS + (MULTIPLE-VALUE-LIST + (FUNCTION-LAMBDA-EXPRESSION #'%F)))) + (VALUES (LENGTH RET-VALS) (NOTNOT (SECOND RET-VALS)))))) +Expected values: 3 + T +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.ORDER.1 failed +Form: (LET ((I 0)) + (FUNCTION-LAMBDA-EXPRESSION (PROGN (INCF I) #'CONS)) + I) +Expected value: 1 +Actual value: #. +Test FUNCTION-LAMBDA-EXPRESSION.ERROR.1 failed +Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test FUNCTION-LAMBDA-EXPRESSION.ERROR.2 failed +Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION #'CONS NIL)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. + FUNCTION.1 +Test FUNCTION.2 failed +Form: (TYPEP 'IDENTITY 'FUNCTION) +Expected value: NIL +Actual value: T. + FUNCTION.3 FUNCTION.4 FUNCTION.5 +Test FUNCTION.6 failed +Form: (TYPEP '(LAMBDA (X) X) 'FUNCTION) +Expected value: NIL +Actual value: T. +Test FUNCTION.7 failed +Form: (NOT-MV (TYPEP #'(SETF FUNCTION-7-ACCESSOR) 'FUNCTION)) +Expected value: NIL +Actual value: #. + FUNCTION.8 FUNCTION.9 +Test FUNCTION.10 failed +Form: (LOOP + FOR + X + IN + *UNIVERSE* + WHEN + (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) + (TYPEP X 'ARRAY)) + (TYPEP X 'FUNCTION)) + COLLECT + X) +Expected value: NIL +Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). + FUNCTION.11 FUNCTION.12 FUNCTION.13 FUNCTIONP.1 +Test FUNCTIONP.2 failed +Form: (FUNCTIONP 'IDENTITY) +Expected value: NIL +Actual value: T. + FUNCTIONP.3 FUNCTIONP.4 FUNCTIONP.5 +Test FUNCTIONP.6 failed +Form: (FUNCTIONP '(LAMBDA (X) X)) +Expected value: NIL +Actual value: T. +Test FUNCTIONP.7 failed +Form: (NOT-MV (FUNCTIONP #'(SETF FUNCTIONP-7-ACCESSOR))) +Expected value: NIL +Actual value: #. + FUNCTIONP.8 FUNCTIONP.9 +Test FUNCTIONP.10 failed +Form: (LOOP + FOR + X + IN + *UNIVERSE* + WHEN + (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) + (TYPEP X 'ARRAY)) + (FUNCTIONP X)) + COLLECT + X) +Expected value: NIL +Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). + FUNCTIONP.11 FUNCTIONP.12 FUNCTIONP.ORDER.1 FUNCTIONP.ERROR.1 + FUNCTIONP.ERROR.2 GET-SETF-EXPANSION.ERROR.1 + GET-SETF-EXPANSION.ERROR.2 IDENTITY.1 IDENTITY.2 IDENTITY.3 + IDENTITY.ORDER.1 IDENTITY.ERROR.1 IDENTITY.ERROR.2 IF.1 IF.2 IF.3 IF.4 + IF.5 IF.6 IF.7 IF.ORDER.1 LABELS.1 LABELS.2 LABELS.3 LABELS.4 LABELS.5 + LABELS.6 LABELS.7 LABELS.8 LABELS.9 LABELS.10 LABELS.11 LABELS.12 + LABELS.13 LABELS.14 LABELS.15 LABELS.16 +Test LABELS.17 failed +Form: (LABELS (((SETF %F) (X Y) (SETF (CAR Y) X))) + (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) +Expected value: (A 2) +Actual value: #. + LABELS.7B LABELS.18 LABELS.19 LABELS.20 LABELS.21 LABELS.22 LABELS.23 + LABELS.24 LABELS.25 +Test LABELS.26 failed +Form: (LOOP + FOR + S + IN + *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* + FOR + FORM + = + (LIST 'CLASSIFY-ERROR + (LIST 'LABELS + (LIST (LIST* (LIST 'SETF S) + '((&REST ARGS) (DECLARE (IGNORE ARGS)) + 'A))) + (LIST 'SETF (LIST S) 10))) + UNLESS + (EQ (EVAL FORM) 'A) + COLLECT + S) +Expected value: NIL +Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL + &REST &WHOLE ** *** *BREAK-ON-SIGNALS* + *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* + *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* + *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* + *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* + *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* + *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* + *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* + *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* + *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* + *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* + *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* + *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* + *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* + *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* + *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ + // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT + ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR + BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 + BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 + BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR + BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN + BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT + CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED + COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM + CONDITION CONTROL-ERROR DEBUG DECLARATION + DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON + DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT + ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR + FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM + FLOATING-POINT-INEXACT + FLOATING-POINT-INVALID-OPERATION + FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW + FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE + INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD + LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT + LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT + LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT + LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT + LEAST-NEGATIVE-SHORT-FLOAT + LEAST-NEGATIVE-SINGLE-FLOAT + LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT + LEAST-POSITIVE-NORMALIZED-LONG-FLOAT + LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT + LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT + LEAST-POSITIVE-SHORT-FLOAT + LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT + LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD + METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT + MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT + MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT + MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM + MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT + MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL + NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE + PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE + PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR + READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE + SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON + SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY + SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION + SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR + SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT + SYMBOL-MACROLET.1 SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON + SPACE SPECIAL SPEED STANDARD STANDARD-CHAR + STANDARD-CLASS STANDARD-GENERIC-FUNCTION + STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION + STREAM STREAM-ERROR STRING-STREAM STRUCTURE + STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL + SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR + UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION + UNSIGNED-BYTE VARIABLE WARNING). + LAMBDA-LIST-KEYWORDS.1 LAMBDA-LIST-KEYWORDS.2 LAMBDA-LIST-KEYWORDS.3 + LAMBDA-LIST-KEYWORDS.4 LAMBDA-LIST-KEYWORDS.5 + LAMBDA-PARAMETERS-LIMIT.1 LAMBDA-PARAMETERS-LIMIT.2 LET.1 LET.2 LET.3 + LET.4 LET.5 LET.6 LET.7 LET.9 LET.11 LET.14 LET.15 LET*.1 LET*.2 + LET*.3 LET*.4 LET*.5 LET*.6 LET*.7 LET*.8 LET*.9 LET*.10 LET*.11 + LET*.12 LET*.14 LET*.15 MACROLET.1 MACROLET.2 MACROLET.3 MACROLET.4 +Test MACROLET.5 failed +Form: (LET ((X NIL)) + (MACROLET + ((%M ((&WHOLE W ARG)) + (LIST 'PROGN (LIST 'SETQ 'X (LIST 'QUOTE W)) ARG))) + (VALUES (%M (1)) X))) +Expected values: 1 + (1) +Actual value: #. + MACROLET.6 MACROLET.7 MACROLET.8 MACROLET.9 MACROLET.10 MACROLET.11 + MACROLET.12 +Test MACROLET.13 failed +Form: (SYMBOL-MACROLET ((A B)) + (MACROLET + ((FOO (X &ENVIRONMENT ENV) + (LET ((Y (MACROEXPAND X ENV))) (IF (EQ Y 'A) 1 2)))) + (FOO A))) +Expected value: 2 +Actual value: 1. +Test MACROLET.14 failed +Form: (SYMBOL-MACROLET ((A B)) + (MACROLET + ((FOO (X &ENVIRONMENT ENV) + (LET ((Y (MACROEXPAND-1 X ENV))) + (IF (EQ Y 'A) 1 2)))) + (FOO A))) +Expected value: 2 +Actual value: 1. + MACROLET.15 MACROLET.16 MULTIPLE-VALUE-BIND.1 MULTIPLE-VALUE-BIND.2 MULTIPLE-VALUE-BIND.3 MULTIPLE-VALUE-BIND.4 MULTIPLE-VALUE-BIND.5 MULTIPLE-VALUE-BIND.6 MULTIPLE-VALUE-BIND.7 MULTIPLE-VALUE-CALL.1 MULTIPLE-VALUE-CALL.2 MULTIPLE-VALUE-CALL.3 @@ -16356,577 +16962,77 @@ INTERSECTION.ERROR.10 NINTERSECTION.1 NINTERSECTION.2 NINTERSECTION.3 NINTERSECTION.4 NINTERSECTION.5 NINTERSECTION.6 NINTERSECTION.7 NINTERSECTION.8 NINTERSECTION.9 NINTERSECTION.9-A NINTERSECTION.9-B - NINTERSECTION.10 NINTERSECTION.11 COMPILE.6 COMPILE.7 - COMPILE.8 COMPILE.9 -Test COMPILE.ERROR.1 failed -Form: (CLASSIFY-ERROR (COMPILE)) -Expected value: PROGRAM-ERROR -Actual value: ERROR. -Test COMPILE.ERROR.2 failed -Form: (CLASSIFY-ERROR (COMPILE NIL '(LAMBDA () NIL) 'GARBAGE)) -Expected value: PROGRAM-ERROR -Actual values: # - NIL - NIL. - CONSTANTP.ERROR.1 CONSTANTP.ERROR.2 CONSTANTP.1 CONSTANTP.2 - CONSTANTP.3 CONSTANTP.4 CONSTANTP.5 -Test CONSTANTP.6 failed -Form: (CONSTANTP-MACRO CONSTANTP-TEST-SYMBOL) -Expected value: T -Actual value: #. - CONSTANTP.7 -Test CONSTANTP.8 failed -Form: (NOTNOT-MV (CONSTANTP 1 NIL)) -Expected value: T -Actual value: #. - CONSTANTP.9 CONSTANTP.10 CONSTANTP.ORDER.1 -Test CONSTANTP.ORDER.2 failed -Form: (LET ((I 0) X Y) - (VALUES (NOTNOT (CONSTANTP (PROGN (SETF X (INCF I)) 1) - (PROGN (SETF Y (INCF I)) NIL))) - I X Y)) -Expected values: T - 2 - 1 - 2 -Actual value: #. - LAMBDA.1 LAMBDA.2 LAMBDA.3 LAMBDA.4 LAMBDA.5 LAMBDA.6 LAMBDA.7 - LAMBDA.8 LAMBDA.9 LAMBDA.10 LAMBDA.MACRO.1 LAMBDA.MACRO.2 -Test DCF-FUNS failed -Form: (REMOVE-IF #'FBOUNDP *DCF-FNS*) -Expected value: NIL -Actual value: (FUNCTION-LAMBDA-EXPRESSION). -Test DCF-MACROS failed -Form: (REMOVE-IF #'MACRO-FUNCTION *DCF-MACROS*) -Expected value: NIL -Actual value: (DEFINE-SETF-EXPANDER). - SETF-ORDER SETF-ORDER.2 PUSH-ORDER PUSHNEW-ORDER PUSHNEW-ORDER.2 - REMF-ORDER INCF-ORDER DECF-ORDER SHIFTF-ORDER.1 SHIFTF-ORDER.2 - ROTATEF-ORDER.1 ROTATEF-ORDER.2 PSETF-ORDER PSETF-ORDER.2 POP-ORDER - SETF-VAR SETF-VALUES.1 SETF-VALUES.2 SETF-VALUES.3 SETF-VALUES.4 -Test SETF-VALUES.5 failed -Form: (LET ((A (VECTOR NIL NIL)) (I 0) X Y Z) - (SETF (VALUES (AREF A (PROGN (SETF X (INCF I)) 0)) - (AREF A (PROGN (SETF Y (INCF I)) 1))) - (PROGN (SETF Z (INCF I)) (VALUES 'FOO 'BAR))) - (VALUES A I X Y Z)) -Expected values: #(FOO BAR) - 3 - 1 - 2 - 3 -Actual values: #(FOO BAR) - 3 - 2 - 3 - 1. - SETF-VALUES.6 SETF-THE.1 SETF-THE.2 SETF-APPLY.1 SETF-APPLY.2 - SETF-APPLY.3 SETF-APPLY.4 SETF-EXPANDER.1 SETF-MACRO.1 SETF-MACRO.2 - SETF-MACRO.3 SETF-MACRO.4 SETF-SYMBOL-MACRO.1 SETF-SYMBOL-MACRO.2 - SETF-SYMBOL-MACRO.3 SETQ.1 SETQ.2 SETQ.3 SETQ.4 SETF.1 SETF.2 SETF.3 - SETF.4 PSETQ.1 PSETQ.2 PSETQ.3 PSETQ.4 PSETQ.5 PSETQ.6 -Test PSETQ.7 failed -Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) - (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) - (PSETQ X (AREF A (INCF I)) Y (AREF A (INCF I))) - (VALUES A I))) -Expected values: #(0 2 2 4 4 5 6 7 8 9) - 4 -Actual values: #(0 1 2 1 2 5 6 7 8 9) - 4. - PSETF.1 PSETF.2 PSETF.3 PSETF.4 PSETF.5 PSETF.6 -Test PSETF.7 failed -Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) - (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) - (PSETF X (AREF A (INCF I)) Y (AREF A (INCF I))) - (VALUES A I))) -Expected values: #(0 2 2 4 4 5 6 7 8 9) - 4 -Actual values: #(0 1 2 1 2 5 6 7 8 9) - 4. - PSETF.8 PSETF.9 AND.1 AND.2 AND.3 AND.4 AND.5 AND.6 AND.7 AND.8 AND.9 - AND.ORDER.1 AND.ORDER.2 APPLY.ERROR.1 APPLY.ERROR.2 APPLY.ERROR.3 - APPLY.ERROR.4 APPLY.1 APPLY.2 APPLY.3 APPLY.4 APPLY.5 APPLY.ORDER.1 - BLOCK.1 BLOCK.2 BLOCK.3 BLOCK.4 BLOCK.5 BLOCK.6 BLOCK.7 BLOCK.8 - BLOCK.9 BLOCK.10 CALL-ARGUMENTS-LIMIT.1 CALL-ARGUMENTS-LIMIT.2 - CALL-ARGUMENTS-LIMIT.3 CALL-ARGUMENTS-LIMIT.4 CALL-ARGUMENTS-LIMIT.5 - CASE.1 CASE.2 CASE.3 CASE.4 CASE.5 CASE.6 CASE.7 CASE.8 CASE.9 CASE.10 - CASE.11 CASE.12 CASE.13 CASE.14 CASE.15 CASE.16 CASE.17 CASE.18 - CASE.19 CASE.20 CASE.21 CASE.22 CASE.23 CASE.24 CASE.25 CASE.26 - CASE.27 CASE.28 CASE.29 CASE.30 CASE.31 CASE.32 CASE.33 CASE.34 - CATCH.1 CATCH.2 CATCH.3 CATCH.4 CATCH.5 CATCH.6 CATCH.7 CATCH.8 - CATCH.9 CATCH.10 CATCH.11 CATCH.12 -Test THROW-ERROR failed -Form: (CLASSIFY-ERROR (THROW (GENSYM) NIL)) -Expected value: CONTROL-ERROR -Actual value: ERROR. - CCASE.1 CCASE.2 CCASE.3 CCASE.4 CCASE.5 CCASE.6 CCASE.7 CCASE.8 - CCASE.9 CCASE.10 CCASE.11 CCASE.12 CCASE.13 CCASE.14 CCASE.15 CCASE.16 - CCASE.17 CCASE.19 CCASE.20 CCASE.21 CCASE.23 CCASE.25 CCASE.26 - CCASE.27 CCASE.28 CCASE.29 CCASE.30 CCASE.31 COMPILED-FUNCTION-P.1 - COMPILED-FUNCTION-P.2 COMPILED-FUNCTION-P.3 - COMPILED-FUNCTION-P.ORDER.1 COMPILED-FUNCTION-P.ERROR.1 - COMPILED-FUNCTION-P.ERROR.2 COMPLEMENT.1 COMPLEMENT.2 COMPLEMENT.3 - COMPLEMENT.4 COMPLEMENT.5 COMPLEMENT.ORDER.1 COMPLEMENT.ERROR.1 - COMPLEMENT.ERROR.2 COMPLEMENT.ERROR.3 COMPLEMENT.ERROR.4 COND.1 COND.2 - COND.3 COND.4 COND.5 COND.6 COND.7 COND.8 COND.9 COND.10 COND.11 - COND.12 COND.13 COND.14 CONSTANTLY.1 CONSTANTLY.2 CONSTANTLY.3 - CONSTANTLY.ERROR.1 CONSTANTLY.ERROR.2 CTYPECASE.1 CTYPECASE.2 - CTYPECASE.3 CTYPECASE.4 CTYPECASE.5 CTYPECASE.6 CTYPECASE.7 - CTYPECASE.8 CTYPECASE.9 CTYPECASE.10 CTYPECASE.11 CTYPECASE.12 - CTYPECASE.13 DEFCONSTANT.1 DEFCONSTANT.2 DEFCONSTANT.3 DEFCONSTANT.4 - DEFCONSTANT.5 DEFINE-MODIFY-MACRO.1 DEFINE-MODIFY-MACRO.2 - DEFINE-MODIFY-MACRO.3 DEFINE-MODIFY-MACRO.4 DEFPARAMETER.1 - DEFPARAMETER.2 DEFPARAMETER.3 DEFPARAMETER.4 DEFPARAMETER.5 DEFVAR.1 - DEFVAR.2 DEFVAR.3 DEFVAR.4 DEFVAR.5 DESTRUCTURING-BIND.1 - DESTRUCTURING-BIND.2 DESTRUCTURING-BIND.3 DESTRUCTURING-BIND.4 - DESTRUCTURING-BIND.5 DESTRUCTURING-BIND.6 DESTRUCTURING-BIND.7 - DESTRUCTURING-BIND.8 DESTRUCTURING-BIND.9 DESTRUCTURING-BIND.10 - DESTRUCTURING-BIND.11 DESTRUCTURING-BIND.12 DESTRUCTURING-BIND.13 - DESTRUCTURING-BIND.14 DESTRUCTURING-BIND.15 DESTRUCTURING-BIND.16 - DESTRUCTURING-BIND.17 DESTRUCTURING-BIND.18 ECASE.1 ECASE.2 ECASE.3 - ECASE.4 ECASE.5 ECASE.6 ECASE.7 ECASE.8 ECASE.9 ECASE.10 ECASE.11 - ECASE.12 ECASE.13 ECASE.14 ECASE.15 ECASE.16 ECASE.17 ECASE.18 - ECASE.19 ECASE.20 ECASE.21 ECASE.23 ECASE.25 ECASE.26 ECASE.27 - ECASE.28 ECASE.29 ECASE.31 ECASE.32 EQL.1 EQL.2 EQL.3 EQL.4 EQL.5 - EQL.7 EQL.8 EQL.9 EQL.10 EQL.11 EQL.ORDER.1 EQL.ERROR.1 EQL.ERROR.2 - EQL.ERROR.3 EQ.ERROR.1 EQ.ERROR.2 EQ.ERROR.3 EQUAL.1 EQUAL.2 EQUAL.3 - EQUAL.4 EQUAL.5 EQUAL.6 EQUAL.7 EQUAL.8 EQUAL.9 EQUAL.10 EQUAL.11 - EQUAL.12 EQUAL.ORDER.1 EQUAL.ERROR.1 EQUAL.ERROR.2 EQUAL.ERROR.3 - EQUALP.1 EQUALP.2 EQUALP.3 EQUALP.4 EQUALP.ORDER.1 EQUALP.ERROR.1 - EQUALP.ERROR.2 EQUALP.ERROR.3 ETYPECASE.1 ETYPECASE.2 ETYPECASE.3 - ETYPECASE.4 ETYPECASE.5 ETYPECASE.6 ETYPECASE.7 ETYPECASE.8 - ETYPECASE.9 ETYPECASE.10 ETYPECASE.11 ETYPECASE.12 EVERY.1 EVERY.2 - EVERY.3 EVERY.4 EVERY.5 EVERY.6 EVERY.7 EVERY.8 EVERY.9 EVERY.10 - EVERY.11 EVERY.12 EVERY.13 EVERY.14 EVERY.15 EVERY.16 EVERY.ORDER.1 - EVERY.ORDER.2 EVERY.ERROR.1 EVERY.ERROR.2 EVERY.ERROR.3 EVERY.ERROR.4 - EVERY.ERROR.5 EVERY.ERROR.6 EVERY.ERROR.7 EVERY.ERROR.9 EVERY.ERROR.10 - EVERY.ERROR.11 EVERY.ERROR.12 EVERY.ERROR.13 FBOUNDP.1 FBOUNDP.2 - FBOUNDP.3 FBOUNDP.4 FBOUNDP.5 -Test FBOUNDP.6 failed -Form: (NOT-MV (FBOUNDP '(SETF FBOUNDP-6-ACCESSOR))) -Expected value: NIL -Actual value: #. -Test FBOUNDP.7 failed -Form: (LET ((G (GENSYM))) (FBOUNDP (LIST 'SETF G))) -Expected value: NIL -Actual value: #. - FBOUNDP.ORDER.1 FBOUNDP.ERROR.1 FBOUNDP.ERROR.2 FBOUNDP.ERROR.3 - FBOUNDP.ERROR.4 FBOUNDP.ERROR.5 FBOUNDP.ERROR.6 -Test FDEFINITION.ERROR.1 failed -Form: (CLASSIFY-ERROR (FDEFINITION)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FDEFINITION.ERROR.2 failed -Form: (CLASSIFY-ERROR (FDEFINITION 'CONS NIL)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. - FDEFINITION.ERROR.3 -Test FDEFINITION.ERROR.4 failed -Form: (CLASSIFY-ERROR (FDEFINITION 10)) -Expected value: TYPE-ERROR -Actual value: UNDEFINED-FUNCTION. - FDEFINITION.ERROR.5 -Test FDEFINITION.ERROR.6 failed -Form: (CLASSIFY-ERROR (LOCALLY (FDEFINITION 10) T)) -Expected value: TYPE-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FDEFINITION.1 failed -Form: (LET ((FUN (FDEFINITION 'CONS))) (FUNCALL FUN 'A 'B)) -Expected value: (A . B) -Actual value: #. -Test FDEFINITION.2 failed -Form: (PROGN (FDEFINITION 'COND) :GOOD) -Expected value: :GOOD -Actual value: #. -Test FDEFINITION.3 failed -Form: (PROGN (FDEFINITION 'SETQ) :GOOD) -Expected value: :GOOD -Actual value: #. -Test FDEFINITION.4 failed -Form: (LET ((SYM (GENSYM))) - (VALUES (FBOUNDP SYM) - (PROGN - (SETF (FDEFINITION SYM) (FDEFINITION 'CONS)) - (FUNCALL (SYMBOL-FUNCTION SYM) 'A 'B)) - (NOTNOT (FBOUNDP SYM)))) -Expected values: NIL - (A . B) - T -Actual value: #. -Test FDEFINITION.5 failed -Form: (LET* ((SYM (GENSYM)) (FNAME (LIST 'SETF SYM))) - (VALUES (FBOUNDP FNAME) - (PROGN - (SETF (FDEFINITION FNAME) (FDEFINITION 'CONS)) - (EVAL (LIST 'SETF (LIST SYM ''A) ''B))) - (NOTNOT (FBOUNDP FNAME)))) -Expected values: NIL - (B . A) - T -Actual value: #. -Test FDEFINITION.ORDER.1 failed -Form: (LET ((I 0)) (FDEFINITION (PROGN (INCF I) 'SETQ)) I) -Expected value: 1 -Actual value: #. - FLET.1 FLET.2 FLET.3 FLET.4 FLET.5 FLET.6 FLET.7 FLET.8 FLET.9 FLET.10 - FLET.11 FLET.12 FLET.13 FLET.14 FLET.15 FLET.16 -Test FLET.17 failed -Form: (FLET (((SETF %F) (X Y) (SETF (CAR Y) X))) - (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) -Expected value: (A 2) -Actual value: #. - FLET.18 FLET.19 FLET.20 FLET.21 FLET.22 FLET.23 FLET.24 FLET.25 - FLET.26 FLET.27 FLET.28 FLET.29 FLET.30 FLET.31 FLET.32 FLET.33 - FLET.34 FLET.35 FLET.36 FLET.37 FLET.38 FLET.39 FLET.40 FLET.45 - FLET.46 FLET.47 FLET.48 FLET.49 FLET.50 -Test FLET.51 failed -Form: (LOOP - FOR - S - IN - *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* - FOR - FORM - = - (LIST 'CLASSIFY-ERROR - (LIST 'FLET - (LIST (LIST* (LIST 'SETF S) - '((&REST ARGS) (DECLARE (IGNORE ARGS)) - 'A))) - (LIST 'SETF (LIST S) 10))) - UNLESS - (EQ (EVAL FORM) 'A) - COLLECT - S) -Expected value: NIL -Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL - &REST &WHOLE ** *** *BREAK-ON-SIGNALS* - *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* - *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* - *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* - *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* - *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* - *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* - *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* - *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* - *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* - *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* - *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* - *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* - *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* - *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* - *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ - // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT - ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR - BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 - BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 - BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR - BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN - BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT - CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED - COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM - CONDITION CONTROL-ERROR DEBUG DECLARATION - DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON - DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT - ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR - FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM - FLOATING-POINT-INEXACT - FLOATING-POINT-INVALID-OPERATION - FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW - FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE - INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD - LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT - LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT - LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT - LEAST-NEGATIVE-SHORT-FLOAT - LEAST-NEGATIVE-SINGLE-FLOAT - LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-POSITIVE-NORMALIZED-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT - LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT - LEAST-POSITIVE-SHORT-FLOAT - LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT - LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD - METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT - MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT - MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT - MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM - MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT - MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL - NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE - PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE - PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR - READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE - SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON - SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY - SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION - SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR - SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT - SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON - SPACE SPECIAL SPEED STANDARD STANDARD-CHAR - STANDARD-CLASS STANDARD-GENERIC-FUNCTION - STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION - STREAM STREAM-ERROR STRING-STREAM STRUCTURE - STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL - SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR - UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION - UNSIGNED-BYTE VARIABLE WARNING). - FMAKUNBOUND.1 FMAKUNBOUND.2 FMAKUNBOUND.3 -Test FMAKUNBOUND.4 failed -Form: (LET* ((G (GENSYM)) (N (LIST 'SETF G))) - (AND (NOT (FBOUNDP N)) (EVAL (LIST* 'DEFUN N '(NIL NIL))) - (FBOUNDP N) - (VALUES (EQUAL (CHECK-VALUES (FMAKUNBOUND N)) N) - (FBOUNDP N)))) -Expected values: T - NIL -Actual value: #. - FMAKUNBOUND.ERROR.1 FMAKUNBOUND.ERROR.2 FMAKUNBOUND.ERROR.3 - FMAKUNBOUND.ERROR.4 FMAKUNBOUND.ERROR.5 FMAKUNBOUND.ERROR.6 FUNCALL.1 - FUNCALL.2 FUNCALL.3 FUNCALL.4 FUNCALL.5 FUNCALL.6 FUNCALL.7 FUNCALL.8 - FUNCALL.9 FUNCALL.ORDER.1 FUNCALL.ORDER.2 FUNCALL.ERROR.1 - FUNCALL.ERROR.2 -Test FUNCALL.ERROR.3 failed -Form: (CLASSIFY-ERROR (FUNCALL 'DEFCONSTANT '(DEFCONSTANT X 10))) -Expected value: UNDEFINED-FUNCTION -Actual value: PROGRAM-ERROR. - FUNCALL.ERROR.4 FUNCALL.ERROR.5 FUNCALL.ERROR.6 FUNCALL.ERROR.7 -Test FUNCTION-LAMBDA-EXPRESSION.1 failed -Form: (LENGTH (MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'CONS))) -Expected value: 3 -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.2 failed -Form: (LET ((X NIL)) - (FLET ((%F NIL X)) - (LET ((RET-VALS - (MULTIPLE-VALUE-LIST - (FUNCTION-LAMBDA-EXPRESSION #'%F)))) - (VALUES (LENGTH RET-VALS) (NOTNOT (SECOND RET-VALS)))))) -Expected values: 3 - T -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.ORDER.1 failed -Form: (LET ((I 0)) - (FUNCTION-LAMBDA-EXPRESSION (PROGN (INCF I) #'CONS)) - I) -Expected value: 1 -Actual value: #. -Test FUNCTION-LAMBDA-EXPRESSION.ERROR.1 failed -Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test FUNCTION-LAMBDA-EXPRESSION.ERROR.2 failed -Form: (CLASSIFY-ERROR (FUNCTION-LAMBDA-EXPRESSION #'CONS NIL)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. - FUNCTION.1 -Test FUNCTION.2 failed -Form: (TYPEP 'IDENTITY 'FUNCTION) -Expected value: NIL -Actual value: T. - FUNCTION.3 FUNCTION.4 FUNCTION.5 -Test FUNCTION.6 failed -Form: (TYPEP '(LAMBDA (X) X) 'FUNCTION) -Expected value: NIL -Actual value: T. -Test FUNCTION.7 failed -Form: (NOT-MV (TYPEP #'(SETF FUNCTION-7-ACCESSOR) 'FUNCTION)) -Expected value: NIL -Actual value: #. - FUNCTION.8 FUNCTION.9 -Test FUNCTION.10 failed -Form: (LOOP - FOR - X - IN - *UNIVERSE* - WHEN - (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) - (TYPEP X 'ARRAY)) - (TYPEP X 'FUNCTION)) - COLLECT - X) -Expected value: NIL -Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). - FUNCTION.11 FUNCTION.12 FUNCTION.13 FUNCTIONP.1 -Test FUNCTIONP.2 failed -Form: (FUNCTIONP 'IDENTITY) -Expected value: NIL -Actual value: T. - FUNCTIONP.3 FUNCTIONP.4 FUNCTIONP.5 -Test FUNCTIONP.6 failed -Form: (FUNCTIONP '(LAMBDA (X) X)) -Expected value: NIL -Actual value: T. -Test FUNCTIONP.7 failed -Form: (NOT-MV (FUNCTIONP #'(SETF FUNCTIONP-7-ACCESSOR))) -Expected value: NIL -Actual value: #. - FUNCTIONP.8 FUNCTIONP.9 -Test FUNCTIONP.10 failed -Form: (LOOP - FOR - X - IN - *UNIVERSE* - WHEN - (AND (OR (NUMBERP X) (CHARACTERP X) (SYMBOLP X) (CONSP X) - (TYPEP X 'ARRAY)) - (FUNCTIONP X)) - COLLECT - X) -Expected value: NIL -Actual value: (CONS (SYSTEM:LAMBDA-CLOSURE () () () (X) X)). - FUNCTIONP.11 FUNCTIONP.12 FUNCTIONP.ORDER.1 FUNCTIONP.ERROR.1 - FUNCTIONP.ERROR.2 GET-SETF-EXPANSION.ERROR.1 - GET-SETF-EXPANSION.ERROR.2 IDENTITY.1 IDENTITY.2 IDENTITY.3 - IDENTITY.ORDER.1 IDENTITY.ERROR.1 IDENTITY.ERROR.2 IF.1 IF.2 IF.3 IF.4 - IF.5 IF.6 IF.7 IF.ORDER.1 LABELS.1 LABELS.2 LABELS.3 LABELS.4 LABELS.5 - LABELS.6 LABELS.7 LABELS.8 LABELS.9 LABELS.10 LABELS.11 LABELS.12 - LABELS.13 LABELS.14 LABELS.15 LABELS.16 -Test LABELS.17 failed -Form: (LABELS (((SETF %F) (X Y) (SETF (CAR Y) X))) - (LET ((Z (LIST 1 2))) (SETF (%F Z) 'A) Z)) -Expected value: (A 2) -Actual value: #. - LABELS.7B LABELS.18 LABELS.19 LABELS.20 LABELS.21 LABELS.22 LABELS.23 - LABELS.24 LABELS.25 -Test LABELS.26 failed -Form: (LOOP - FOR - S - IN - *CL-NON-FUNCTION-MACRO-SPECIAL-OPERATOR-SYMBOLS* - FOR - FORM - = - (LIST 'CLASSIFY-ERROR - (LIST 'LABELS - (LIST (LIST* (LIST 'SETF S) - '((&REST ARGS) (DECLARE (IGNORE ARGS)) - 'A))) - (LIST 'SETF (LIST S) 10))) - UNLESS - (EQ (EVAL FORM) 'A) - COLLECT - S) -Expected value: NIL -Actual value: (&ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL - &REST &WHOLE ** *** *BREAK-ON-SIGNALS* - *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* - *COMPILE-PRINT* *COMPILE-VERBOSE* *DEBUG-IO* - *DEBUGGER-HOOK* *DEFAULT-PATHNAME-DEFAULTS* - *ERROR-OUTPUT* *FEATURES* *GENSYM-COUNTER* - *LOAD-PATHNAME* *LOAD-PRINT* *LOAD-TRUENAME* - *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES* *PACKAGE* - *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* - *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* - *PRINT-LENGTH* *PRINT-LEVEL* *PRINT-LINES* - *PRINT-MISER-WIDTH* *PRINT-PPRINT-DISPATCH* - *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY* - *PRINT-RIGHT-MARGIN* *QUERY-IO* *RANDOM-STATE* - *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* - *READ-SUPPRESS* *READTABLE* *STANDARD-INPUT* - *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT* ++ +++ - // /// ARITHMETIC-ERROR ARRAY ARRAY-DIMENSION-LIMIT - ARRAY-RANK-LIMIT ARRAY-TOTAL-SIZE-LIMIT BASE-CHAR - BASE-STRING BIGNUM BIT-VECTOR BOOLE-1 BOOLE-2 - BOOLE-AND BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 - BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR - BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR BOOLEAN - BROADCAST-STREAM BUILT-IN-CLASS CALL-ARGUMENTS-LIMIT - CELL-ERROR CHAR-CODE-LIMIT CLASS COMPILATION-SPEED - COMPILED-FUNCTION COMPILER-MACRO CONCATENATED-STREAM - CONDITION CONTROL-ERROR DEBUG DECLARATION - DIVISION-BY-ZERO DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON - DOUBLE-FLOAT-NEGATIVE-EPSILON DYNAMIC-EXTENT - ECHO-STREAM ED END-OF-FILE EXTENDED-CHAR FILE-ERROR - FILE-STREAM FILE-STRING-LENGTH FILL FIXNUM - FLOATING-POINT-INEXACT - FLOATING-POINT-INVALID-OPERATION - FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW - FTYPE GENERIC-FUNCTION HASH-TABLE IGNORABLE IGNORE - INLINE INTEGER INTERNAL-TIME-UNITS-PER-SECOND KEYWORD - LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT - LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT - LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT - LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT - LEAST-NEGATIVE-SHORT-FLOAT - LEAST-NEGATIVE-SINGLE-FLOAT - LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT - LEAST-POSITIVE-NORMALIZED-LONG-FLOAT - LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT - LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT - LEAST-POSITIVE-SHORT-FLOAT - LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT - LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON METHOD - METHOD-COMBINATION MOST-NEGATIVE-DOUBLE-FLOAT - MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT - MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT - MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM - MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT - MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT NIL - NOTINLINE NUMBER OPTIMIZE OTHERWISE PACKAGE - PACKAGE-ERROR PARSE-ERROR PI PRINT-NOT-READABLE - PROGRAM-ERROR RANDOM RANDOM-STATE RATIO READER-ERROR - READTABLE REAL RESTART SAFETY SATISFIES SEQUENCE - SERIOUS-CONDITION SHORT-FLOAT SHORT-FLOAT-EPSILON - SHORT-FLOAT-NEGATIVE-EPSILON SIGNED-BYTE SIMPLE-ARRAY - SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION - SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR - SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT - SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON - SPACE SPECIAL SPEED STANDARD STANDARD-CHAR - STANDARD-CLASS STANDARD-GENERIC-FUNCTION - STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION - STREAM STREAM-ERROR STRING-STREAM STRUCTURE - STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL - SYNONYM-STREAM T TWO-WAY-STREAM TYPE TYPE-ERROR - UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION - UNSIGNED-BYTE VARIABLE WARNING). - LAMBDA-LIST-KEYWORDS.1 LAMBDA-LIST-KEYWORDS.2 LAMBDA-LIST-KEYWORDS.3 - LAMBDA-LIST-KEYWORDS.4 LAMBDA-LIST-KEYWORDS.5 - LAMBDA-PARAMETERS-LIMIT.1 LAMBDA-PARAMETERS-LIMIT.2 LET.1 LET.2 LET.3 - LET.4 LET.5 LET.6 LET.7 LET.9 LET.11 LET.14 LET.15 LET*.1 LET*.2 - LET*.3 LET*.4 LET*.5 LET*.6 LET*.7 LET*.8 LET*.9 LET*.10 LET*.11 - LET*.12 LET*.14 LET*.15 MACROLET.1 MACROLET.2 MACROLET.3 MACROLET.4 -Test MACROLET.5 failed -Form: (LET ((X NIL)) - (MACROLET - ((%M ((&WHOLE W ARG)) - (LIST 'PROGN (LIST 'SETQ 'X (LIST 'QUOTE W)) ARG))) - (VALUES (%M (1)) X))) -Expected values: 1 - (1) -Actual value: #. - MACROLET.6 MACROLET.7 MACROLET.8 MACROLET.9 MACROLET.10 MACROLET.11 - MACROLET.12 -Test MACROLET.13 failed -Form: (SYMBOL-MACROLET ((A B)) - (MACROLET - ((FOO (X &ENVIRONMENT ENV) - (LET ((Y (MACROEXPAND X ENV))) (IF (EQ Y 'A) 1 2)))) - (FOO A))) -Expected value: 2 -Actual value: 1. -Test MACROLET.14 failed -Form: (SYMBOL-MACROLET ((A B)) - (MACROLET - ((FOO (X &ENVIRONMENT ENV) - (LET ((Y (MACROEXPAND-1 X ENV))) - (IF (EQ Y 'A) 1 2)))) - (FOO A))) -Expected value: 2 -Actual value: 1. - MACROLET.15 MACROLET.16 SYMBOL-MACROLET.1 MULTIPLE-VALUE-BIND.1 + NINTERSECTION.10 NINTERSECTION.11 NINTERSECTION.12 NINTERSECTION.13 + NINTERSECTION.14 NINTERSECTION.15 NINTERSECTION.16 NINTERSECTION.17 + NINTERSECTION.18 NINTERSECTION.ORDER.1 NINTERSECTION.ORDER.2 + NINTERSECTION.ORDER.3 NINTERSECTION.ORDER.4 NINTERSECTION.ORDER.5 + NINTERSECTION.ALLOW-OTHER-KEYS.1 NINTERSECTION.ALLOW-OTHER-KEYS.2 + NINTERSECTION.ALLOW-OTHER-KEYS.3 NINTERSECTION.ALLOW-OTHER-KEYS.4 + NINTERSECTION.ALLOW-OTHER-KEYS.5 NINTERSECTION.ALLOW-OTHER-KEYS.6 + NINTERSECTION.ALLOW-OTHER-KEYS.7 NINTERSECTION.KEYWORDS.8 + NINTERSECTION.ALLOW-OTHER-KEYS.9 NINTERSECTION.ERROR.1 + NINTERSECTION.ERROR.2 NINTERSECTION.ERROR.3 NINTERSECTION.ERROR.4 + NINTERSECTION.ERROR.5 NINTERSECTION.ERROR.6 NINTERSECTION.ERROR.7 + NINTERSECTION.ERROR.8 NINTERSECTION.ERROR.9 NINTERSECTION.ERROR.10 + UNION.1 UNION.2 UNION.3 UNION-4 UNION.5 UNION.6 UNION.6-A UNION.7 + UNION.8 UNION.9 UNION.10 UNION.11 UNION.12 UNION.13 UNION.14 UNION.15 + UNION.16 UNION.17 UNION.18 UNION.19 UNION.20 UNION.21 UNION.22 + UNION.23 UNION.24 UNION.25 UNION.26 UNION.27 UNION.28 UNION.29 + UNION.30 UNION.31 UNION.ORDER.1 UNION.ORDER.2 UNION.ORDER.3 + UNION.ALLOW-OTHER-KEYS.1 UNION.ALLOW-OTHER-KEYS.2 + UNION.ALLOW-OTHER-KEYS.3 UNION.ALLOW-OTHER-KEYS.4 + UNION.ALLOW-OTHER-KEYS.5 UNION.ALLOW-OTHER-KEYS.6 + UNION.ALLOW-OTHER-KEYS.7 UNION.KEYWORDS.9 UNION.ERROR.1 UNION.ERROR.2 + UNION.ERROR.3 UNION.ERROR.4 UNION.ERROR.5 UNION.ERROR.6 UNION.ERROR.7 + UNION.ERROR.8 UNION.ERROR.9 UNION.ERROR.10 NUNION.1 NUNION.2 NUNION.3 + NUNION.4 NUNION.5 NUNION.6 NUNION.6-A NUNION.7 NUNION.8 NUNION.9 + NUNION.10 NUNION.11 NUNION.12 NUNION.13 NUNION.14 NUNION.15 NUNION.16 + NUNION.17 NUNION.18 NUNION.19 NUNION.20 NUNION.21 NUNION.22 NUNION.23 + NUNION.24 NUNION.25 NUNION.26 NUNION.27 NUNION.28 NUNION.29 NUNION.30 + NUNION.31 NUNION.ORDER.1 NUNION.ORDER.2 NUNION.ORDER.3 + NUNION.ALLOW-OTHER-KEYS.1 NUNION.ALLOW-OTHER-KEYS.2 + NUNION.ALLOW-OTHER-KEYS.3 NUNION.ALLOW-OTHER-KEYS.4 + NUNION.ALLOW-OTHER-KEYS.5 NUNION.ALLOW-OTHER-KEYS.6 + NUNION.ALLOW-OTHER-KEYS.7 NUNION.KEYWORDS.9 NUNION.ERROR.1 + NUNION.ERROR.2 NUNION.ERROR.3 NUNION.ERROR.4 NUNION.ERROR.5 + NUNION.ERROR.6 NUNION.ERROR.7 NUNION.ERROR.8 NUNION.ERROR.9 + NUNION.ERROR.10 SET-DIFFERENCE.1 SET-DIFFERENCE.2 SET-DIFFERENCE.3 + SET-DIFFERENCE.4 SET-DIFFERENCE.5 SET-DIFFERENCE.6 SET-DIFFERENCE.7 + SET-DIFFERENCE.8 SET-DIFFERENCE.9 SET-DIFFERENCE.10 SET-DIFFERENCE.11 + SET-DIFFERENCE.12 SET-DIFFERENCE.13 SET-DIFFERENCE.14 + SET-DIFFERENCE.15 SET-DIFFERENCE.16 SET-DIFFERENCE.17 + SET-DIFFERENCE.18 SET-DIFFERENCE.19 SET-DIFFERENCE.ORDER.1 + SET-DIFFERENCE.ORDER.2 SET-DIFFERENCE.ORDER.3 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.1 SET-DIFFERENCE.ALLOW-OTHER-KEYS.2 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.3 SET-DIFFERENCE.ALLOW-OTHER-KEYS.4 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.5 SET-DIFFERENCE.ALLOW-OTHER-KEYS.6 + SET-DIFFERENCE.ALLOW-OTHER-KEYS.7 SET-DIFFERENCE.KEYWORDS.8 + SET-DIFFERENCE.KEYWORDS.9 SET-DIFFERENCE.ERROR.1 + SET-DIFFERENCE.ERROR.2 SET-DIFFERENCE.ERROR.3 SET-DIFFERENCE.ERROR.4 + SET-DIFFERENCE.ERROR.5 SET-DIFFERENCE.ERROR.6 SET-DIFFERENCE.ERROR.7 + SET-DIFFERENCE.ERROR.8 SET-DIFFERENCE.ERROR.9 SET-DIFFERENCE.ERROR.10 + NSET-DIFFERENCE.1 NSET-DIFFERENCE.2 NSET-DIFFERENCE.3 + NSET-DIFFERENCE.4 NSET-DIFFERENCE.5 NSET-DIFFERENCE.6 + NSET-DIFFERENCE.7 NSET-DIFFERENCE.8 NSET-DIFFERENCE.9 + NSET-DIFFERENCE.10 NSET-DIFFERENCE.11 NSET-DIFFERENCE.12 + NSET-DIFFERENCE.13 NSET-DIFFERENCE.14 NSET-DIFFERENCE.15 + NSET-DIFFERENCE.16 NSET-DIFFERENCE.17 NSET-DIFFERENCE.18 + NSET-DIFFERENCE.19 NSET-DIFFERENCE.ORDER.1 NSET-DIFFERENCE.ORDER.2 + NSET-DIFFERENCE.ORDER.3 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.1 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.2 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.3 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.4 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.5 + NSET-DIFFERENCE.ALLOW-OTHER-KEYS.6 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.7 + NSET-DIFFERENCE.KEYWORDS.8 NSET-DIFFERENCE.KEYWORDS.9 + NSET-DIFFERENCE.ERROR.1 NSET-DIFFERENCE.ERROR.2 + NSET-DIFFERENCE.ERROR.3 NSET-DIFFERENCE.ERROR.4 + NSET-DIFFERENCE.ERROR.5 NSET-DIFFERENCE.ERROR.6 + NSET-DIFFERENCE.ERROR.7 NSET-DIFFERENCE.ERROR.8 + NSET-DIFFERENCE.ERROR.9 NSET-DIFFERENCE.ERROR.10 SET-EXCLUSIVE-OR.1 + SET-EXCLUSIVE-OR.2 SET-EXCLUSIVE-OR.3 SET-EXCLUSIVE-OR.4 + SET-EXCLUSIVE-OR.5 SET-EXCLUSIVE-OR.6 SET-EXCLUSIVE-OR.7 + SET-EXCLUSIVE-OR.7-A SET-EXCLUSIVE-OR.8 SET-EXCLUSIVE-OR.8-A + SET-EXCLUSIVE-OR.8-B SET-EXCLUSIVE-OR.9 SET-EXCLUSIVE-OR.10 + SET-EXCLUSIVE-OR.11 SET-EXCLUSIVE-OR.12 SYMBOL-MACROLET.1 MULTIPLE-VALUE-BIND.1 MULTIPLE-VALUE-BIND.2 MULTIPLE-VALUE-BIND.3 MULTIPLE-VALUE-BIND.4 MULTIPLE-VALUE-BIND.5 MULTIPLE-VALUE-BIND.6 MULTIPLE-VALUE-BIND.7 MULTIPLE-VALUE-CALL.1 MULTIPLE-VALUE-CALL.2 MULTIPLE-VALUE-CALL.3 @@ -18110,96 +18216,6 @@ NSET-EXCLUSIVE-OR.6 NSET-EXCLUSIVE-OR.7 NSET-EXCLUSIVE-OR.7-A NSET-EXCLUSIVE-OR.8 NSET-EXCLUSIVE-OR.8-A NSET-EXCLUSIVE-OR.8-B NSET-EXCLUSIVE-OR.9 NSET-EXCLUSIVE-OR.10 NSET-EXCLUSIVE-OR.11 - NSET-EXCLUSIVE-OR.12 NINTERSECTION.12 NINTERSECTION.13 - NINTERSECTION.14 NINTERSECTION.15 NINTERSECTION.16 NINTERSECTION.17 - NINTERSECTION.18 NINTERSECTION.ORDER.1 NINTERSECTION.ORDER.2 - NINTERSECTION.ORDER.3 NINTERSECTION.ORDER.4 NINTERSECTION.ORDER.5 - NINTERSECTION.ALLOW-OTHER-KEYS.1 NINTERSECTION.ALLOW-OTHER-KEYS.2 - NINTERSECTION.ALLOW-OTHER-KEYS.3 NINTERSECTION.ALLOW-OTHER-KEYS.4 - NINTERSECTION.ALLOW-OTHER-KEYS.5 NINTERSECTION.ALLOW-OTHER-KEYS.6 - NINTERSECTION.ALLOW-OTHER-KEYS.7 NINTERSECTION.KEYWORDS.8 - NINTERSECTION.ALLOW-OTHER-KEYS.9 NINTERSECTION.ERROR.1 - NINTERSECTION.ERROR.2 NINTERSECTION.ERROR.3 NINTERSECTION.ERROR.4 - NINTERSECTION.ERROR.5 NINTERSECTION.ERROR.6 NINTERSECTION.ERROR.7 - NINTERSECTION.ERROR.8 NINTERSECTION.ERROR.9 NINTERSECTION.ERROR.10 - UNION.1 UNION.2 UNION.3 UNION-4 UNION.5 UNION.6 UNION.6-A UNION.7 - UNION.8 UNION.9 UNION.10 UNION.11 UNION.12 UNION.13 UNION.14 UNION.15 - UNION.16 UNION.17 UNION.18 UNION.19 UNION.20 UNION.21 UNION.22 - UNION.23 UNION.24 UNION.25 UNION.26 UNION.27 UNION.28 UNION.29 - UNION.30 UNION.31 UNION.ORDER.1 UNION.ORDER.2 UNION.ORDER.3 - UNION.ALLOW-OTHER-KEYS.1 UNION.ALLOW-OTHER-KEYS.2 - UNION.ALLOW-OTHER-KEYS.3 UNION.ALLOW-OTHER-KEYS.4 - UNION.ALLOW-OTHER-KEYS.5 UNION.ALLOW-OTHER-KEYS.6 - UNION.ALLOW-OTHER-KEYS.7 UNION.KEYWORDS.9 UNION.ERROR.1 UNION.ERROR.2 - UNION.ERROR.3 UNION.ERROR.4 UNION.ERROR.5 UNION.ERROR.6 UNION.ERROR.7 - UNION.ERROR.8 UNION.ERROR.9 UNION.ERROR.10 NUNION.1 NUNION.2 NUNION.3 - NUNION.4 NUNION.5 NUNION.6 NUNION.6-A NUNION.7 NUNION.8 NUNION.9 - NUNION.10 NUNION.11 NUNION.12 NUNION.13 NUNION.14 NUNION.15 NUNION.16 - NUNION.17 NUNION.18 NUNION.19 NUNION.20 NUNION.21 NUNION.22 NUNION.23 - NUNION.24 NUNION.25 NUNION.26 NUNION.27 NUNION.28 NUNION.29 NUNION.30 - NUNION.31 NUNION.ORDER.1 NUNION.ORDER.2 NUNION.ORDER.3 - NUNION.ALLOW-OTHER-KEYS.1 NUNION.ALLOW-OTHER-KEYS.2 - NUNION.ALLOW-OTHER-KEYS.3 NUNION.ALLOW-OTHER-KEYS.4 - NUNION.ALLOW-OTHER-KEYS.5 NUNION.ALLOW-OTHER-KEYS.6 - NUNION.ALLOW-OTHER-KEYS.7 NUNION.KEYWORDS.9 NUNION.ERROR.1 - NUNION.ERROR.2 NUNION.ERROR.3 NUNION.ERROR.4 NUNION.ERROR.5 - NUNION.ERROR.6 NUNION.ERROR.7 NUNION.ERROR.8 NUNION.ERROR.9 - NUNION.ERROR.10 SET-DIFFERENCE.1 SET-DIFFERENCE.2 SET-DIFFERENCE.3 - SET-DIFFERENCE.4 SET-DIFFERENCE.5 SET-DIFFERENCE.6 SET-DIFFERENCE.7 - SET-DIFFERENCE.8 SET-DIFFERENCE.9 SET-DIFFERENCE.10 SET-DIFFERENCE.11 - SET-DIFFERENCE.12 SET-DIFFERENCE.13 SET-DIFFERENCE.14 - SET-DIFFERENCE.15 SET-DIFFERENCE.16 SET-DIFFERENCE.17 - SET-DIFFERENCE.18 SET-DIFFERENCE.19 SET-DIFFERENCE.ORDER.1 - SET-DIFFERENCE.ORDER.2 SET-DIFFERENCE.ORDER.3 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.1 SET-DIFFERENCE.ALLOW-OTHER-KEYS.2 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.3 SET-DIFFERENCE.ALLOW-OTHER-KEYS.4 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.5 SET-DIFFERENCE.ALLOW-OTHER-KEYS.6 - SET-DIFFERENCE.ALLOW-OTHER-KEYS.7 SET-DIFFERENCE.KEYWORDS.8 - SET-DIFFERENCE.KEYWORDS.9 SET-DIFFERENCE.ERROR.1 - SET-DIFFERENCE.ERROR.2 SET-DIFFERENCE.ERROR.3 SET-DIFFERENCE.ERROR.4 - SET-DIFFERENCE.ERROR.5 SET-DIFFERENCE.ERROR.6 SET-DIFFERENCE.ERROR.7 - SET-DIFFERENCE.ERROR.8 SET-DIFFERENCE.ERROR.9 SET-DIFFERENCE.ERROR.10 - NSET-DIFFERENCE.1 NSET-DIFFERENCE.2 NSET-DIFFERENCE.3 - NSET-DIFFERENCE.4 NSET-DIFFERENCE.5 NSET-DIFFERENCE.6 - NSET-DIFFERENCE.7 NSET-DIFFERENCE.8 NSET-DIFFERENCE.9 - NSET-DIFFERENCE.10 NSET-DIFFERENCE.11 NSET-DIFFERENCE.12 - NSET-DIFFERENCE.13 NSET-DIFFERENCE.14 NSET-DIFFERENCE.15 - NSET-DIFFERENCE.16 NSET-DIFFERENCE.17 NSET-DIFFERENCE.18 - NSET-DIFFERENCE.19 NSET-DIFFERENCE.ORDER.1 NSET-DIFFERENCE.ORDER.2 - NSET-DIFFERENCE.ORDER.3 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.1 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.2 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.3 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.4 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.5 - NSET-DIFFERENCE.ALLOW-OTHER-KEYS.6 NSET-DIFFERENCE.ALLOW-OTHER-KEYS.7 - NSET-DIFFERENCE.KEYWORDS.8 NSET-DIFFERENCE.KEYWORDS.9 - NSET-DIFFERENCE.ERROR.1 NSET-DIFFERENCE.ERROR.2 - NSET-DIFFERENCE.ERROR.3 NSET-DIFFERENCE.ERROR.4 - NSET-DIFFERENCE.ERROR.5 NSET-DIFFERENCE.ERROR.6 - NSET-DIFFERENCE.ERROR.7 NSET-DIFFERENCE.ERROR.8 - NSET-DIFFERENCE.ERROR.9 NSET-DIFFERENCE.ERROR.10 SET-EXCLUSIVE-OR.1 - SET-EXCLUSIVE-OR.2 SET-EXCLUSIVE-OR.3 SET-EXCLUSIVE-OR.4 - SET-EXCLUSIVE-OR.5 SET-EXCLUSIVE-OR.6 SET-EXCLUSIVE-OR.7 - SET-EXCLUSIVE-OR.7-A SET-EXCLUSIVE-OR.8 SET-EXCLUSIVE-OR.8-A - SET-EXCLUSIVE-OR.8-B SET-EXCLUSIVE-OR.9 SET-EXCLUSIVE-OR.10 - SET-EXCLUSIVE-OR.11 SET-EXCLUSIVE-OR.12 SET-EXCLUSIVE-OR.13 - SET-EXCLUSIVE-OR.14 SET-EXCLUSIVE-OR.15 SET-EXCLUSIVE-OR.16 - SET-EXCLUSIVE-OR.17 SET-EXCLUSIVE-OR.17-A SET-EXCLUSIVE-OR.18 - SET-EXCLUSIVE-OR.18-A SET-EXCLUSIVE-OR.ORDER.1 - SET-EXCLUSIVE-OR.ORDER.2 SET-EXCLUSIVE-OR.ORDER.3 - SET-EXCLUSIVE-OR.ORDER.4 SET-EXCLUSIVE-OR.ORDER.5 - SET-EXCLUSIVE.ALLOW-OTHER-KEYS.1 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.2 - SET-EXCLUSIVE.ALLOW-OTHER-KEYS.3 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.4 - SET-EXCLUSIVE.ALLOW-OTHER-KEYS.5 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.6 - SET-EXCLUSIVE.ALLOW-OTHER-KEYS.7 SET-EXCLUSIVE.KEYWORDS.8 - SET-EXCLUSIVE.KEYWORDS.9 SET-EXCLUSIVE-OR.ERROR.1 - SET-EXCLUSIVE-OR.ERROR.2 SET-EXCLUSIVE-OR.ERROR.3 - SET-EXCLUSIVE-OR.ERROR.4 SET-EXCLUSIVE-OR.ERROR.5 - SET-EXCLUSIVE-OR.ERROR.6 SET-EXCLUSIVE-OR.ERROR.7 - SET-EXCLUSIVE-OR.ERROR.8 SET-EXCLUSIVE-OR.ERROR.9 - SET-EXCLUSIVE-OR.ERROR.10 NSET-EXCLUSIVE-OR.1 NSET-EXCLUSIVE-OR.2 - NSET-EXCLUSIVE-OR.3 NSET-EXCLUSIVE-OR.4 NSET-EXCLUSIVE-OR.5 - NSET-EXCLUSIVE-OR.6 NSET-EXCLUSIVE-OR.7 NSET-EXCLUSIVE-OR.7-A - NSET-EXCLUSIVE-OR.8 NSET-EXCLUSIVE-OR.8-A NSET-EXCLUSIVE-OR.8-B - NSET-EXCLUSIVE-OR.9 NSET-EXCLUSIVE-OR.10 NSET-EXCLUSIVE-OR.11 NSET-EXCLUSIVE-OR.12 NSET-EXCLUSIVE-OR.13 NSET-EXCLUSIVE-OR.14 NSET-EXCLUSIVE-OR.15 NSET-EXCLUSIVE-OR.16 NSET-EXCLUSIVE-OR.17 NSET-EXCLUSIVE-OR.17-A NSET-EXCLUSIVE-OR.18 NSET-EXCLUSIVE-OR.18-A @@ -19522,10 +19538,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"" # @@ -19533,7 +19549,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) @@ -19542,7 +19558,7 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$50300049086716344116463296205875920195748647793075754488975448224105785606450471246582247625173275190183848818751427812563289186632008290738219463743628232092943682045338135008310576473151715293381666484512469137306887219908984966361522290777130982507980507699837290453325143830728970958592355580035310131729498888877555354713083854593757867564546411495754386086116714200409057978455796966027418604688875662983589141888158481308261010021492375997596861264761920283122652914429187590619017211268844828214567731093005259680112898845523393061368982438639874741482497781283826251259973799765376465260912493808987724751599609120661997391664269401688685746634462562727045323873027990053557274308722965756474096705601847576615779580685661043272353596483473976690449954193216558552812000054023522472068091311008411076807855713252166744222335876051078342539450799013207302063011854212568115811508273011149257004767782717707425025288810790737556905990940846219063600990961794153407415302858343310818564653614376656722738348348347205109692771982635110637110029270146063689691307238973837530490096652422660793676710807007220858853036945535780546731745462444408016199315404284818047478380415784210498000209615690622500450076766542530091399763555841083068160410902748842738926113432809262383395283988423185680281992849758946185375383370862369935564530707358053524978034732995893846969743114605891347861816847428105075101179105084701324569293066833780006847812479083887385619006246046748673075809249411397265704909334307769902203608778980441946225414685196040337285408694836001254294942834810877206965649597733575195976641939110976659492447077189118324858054411207514502796378089139050929148119765669721988955979218238252716010020525114432314525503140830092750598773537371912579312029276379426150008180925793073638957382471184346417459609298956749284107471381075827650407356674040861335990831095237886627774374121001979111986732016408884050993204425286473527962706816552735244313166232172433964975212418844355364588790042005036230087237225517217650081945013855855071251755298589120467147934882083691929106332118862641698813826645456034981447391972947228410103426081107850233335293275229633781878623334077309606919205121963427225220104298658695860247387916290002005154424390847818699045635208486145466746471469556255472099020121915832198426355178002189373376246351488723996213932949509832033772857141423747194813882560999234050678655031925503785220955182006491473975402531038741023568310503827477718917717703711790290085520930563863655368674444667530807808703788005796041452057396391840543893857428502613493341035418830152711843814710166884092966086643344646911515387116236535487503953386930537139770146427798105889732021216843405168896381457531412087681301870797758043454408658691481147049343954061773652123782926434614728089575236327621211925819752751929425880297368443367042728800451606664994474344560721265737561877982582636088051473285274849042017263749994630109458368806630857066157602813072169360178677890110607462689524957910347396736195041967878603194169102824777349592930203748225323941044969850574881854482208995216143728150723936872579920617392170607444424640960973469966833268308439999597629746886554334436530430692785104925249321368211359626931874954676405195794536083214922435153855521465145688523462939130813079228323908048958220514117911258387762671601991803786358736424852237610987212505434554096583467479497192376739776784974039824624922507744613692563021647549418563561416678634872944817606095336791497659861346774602190298604341680873477996758114663795594592317481359842594449369613321111115588231883414767141429797253338797924370006012395379526505417336375426050219944227885471690413911115564499374238259245220465066791598118451894044467247083036901572763020732989710788992272156888456859889680306474603902455404462843562047054416500142667580409447733872987208683863770380830429796664924311572228910601656641490608273033305378253469792138852931386602458560683674961412555044303173991237712909967482980878893484677482333342403123933282421655577270156075175551443779861484942683374814011490956899639469908661690679265205368165369284836668976439864432723371844533297164265572426660639284621002049343783960733716129668114838757308336160060559226967895053004252153648135867835293553822596947820444914038826084190349109725136500266192422741699362194545813594425115731004534323150758696077626551398390149565037571244716623704858425128497757233722376774342118193470204330513194533146571018640880623179016135851377286551660379200657435161318047472007292936847343104141381964922482673014909738842333204453425700767918068511562620678562622012329248517003769582614407779079287780753039175871203967707687395138457981521024397073626008722624424803026360981256146521917375959307027349287677138506055411967350551906183802067721494017248140110720825344951729659196825742290801066973460241639976185644565070473423410249274312120885783455847907923676503382709036545195148903555282167140802192827192052017644378606525558321730032958176786378719863977013218268433870807941481117179007001411521672403257153835236846375662523475036570475815809805624204589695424431213475066162424417358369253678625901205509135572134246239185463965997760771707562445273282376915942754793780613047403684827517606247626546626082402395230789175050019721752173625916192967376112269446393943498812017779353601329132149943761112932038853445100589595549298118177746712404598109011586217167008459768388867520700007435803361814942945447192010105257083230955914565607712010474817299949164502924875475303939689621628202204209047922289557940792320096546246427717271258819110378422398256668857914818444487509884180604760700864016950918212312715117797283735080772240800664043979565905338108848441980194173711978917087096752429473346057124688571186373456810339963617704985440578058008120645606817572817941458334630127553845709920755146319341263402317778262178536841101302155820883086615626301406706477655808253526848610633055066782587672856848574552033609228382646). + #$28169196327356621921643092268743770105338405140636210270240681580455306276536076979510959504719438744471049681586957443983811797117221013034510324599797888833425762872406744658486693299529062263304649671120357745484738713828531916186771834048258394237591128632113997240131894249811439708922261762682796914417533128552589364121830736827356610531357375910416725202884869979354974121100580428647400637777011702648162761479854049518047136790994912462302596613810639880955507709909829579333833939783226530943095078182617907879375161845950673556284616839686226151676089409077449806814787774696049248375972182399052275874169043514204851330983531881025449317051266386606397211281202449764621766163067581856275690358710875075609797555219306400248040719702895344702113069397685766421186365560379586588524256479468646442450841903342446932655415111950304391633016502998551156270213555652173228436293735826701645998492949646380714323311689222120241344634550019159422284336544347615433083735960816998059709434282797529424948419725767284062752596686703236213152552914261043032915531090548761096987237946468500811458903996051643947989288528838504426957000834471431372865918002927944569707684760722591259710896162367251410798436682790850904223741573726804041842969270956507744422854836757027918787909300182988188740151847602315679444314306002266633722907810087169854485295904270191871845754169332076845808168533190762819523706237353003573141857796557439018154671618579158889273967652907703580008124608147104736454565783389480631460816372626061949245562075370343544309686970855203158421132338588487869027469642764299803118200400598778277413352882125144879365442872576397852495910087127613982803708961406603239885336833834428278344473854483960216574954852981886208411026992755889368121826888041122350882835579216770329962866563674174098460696827271564332651320961459476066871679807222654556279055132149667910836530536183850853447564744430096950262397921517079768903904347321409610388940648612840026211067554002402978944470209232218831842644502277763393767755641061536619552000946700503177515765805349565933089837001433655063903569829103862831646354978543591638401905871612198436955576639413373827869663334858646895407802226290028412968377521253372295043472690253930407083123289521636310826112832102004462359833036119814380489813672063733350341255827333880213920711715881686223189297323111521099962703592811827654814145820858032933011456097445258866725305030890753852833580549975102753937162325007509113236858301806754142169216967446689359365406747628822609565854299982827439166880620305539657350992129290764534698606638042519376138824675884600764331418461087746321073500203137863848558858777321645437711374942854660225607085421982219213860033218795900306576647537190853489302285367400474552478624045049191756182853734434725186105967884779843759332160852722752237696837040008520993646666428158712370532788962986798534474539954689258414483256920018664401523808223079633973768272807450984599982219962895832619235033181877768733156035012274558969765407245094045342192372563645412518906258758639838145906315985602357850526991142290485844222269213829853899302454828034185080144292620771563884827627546872428203819618627534346894220573834427789159274721531859687904024474533507158607648725064353218729638440037486888428495752944870586279407050233240957405118966195500536785315176435705352673463704110022082751541924704717598919106399125150851409955965808971711305600093112851488031287128977336662601737119075463723031949986770242049939281438165810504179945474656540654074325190171302709508917204530823011353788254096119896830994266863763429017435367156185437928428598820181451537237161118590224158975112982485611679017386519096491815985039895037913279533188678910882823870343901874057024785928159318550061192354523337875593549620057067046525475573169571459927135307718699005399005275238049231949457784344912696287755623858442913410481963760836579684607315510680350372716415939455768310245754273906281710395708498704679015899550313058621845856675065347373571848153536089504264650889402943624352703099259629650215839627051737372948837486203321042839782898671317866042151033626279735028488562237292720065124458815159246963310020069391559279435631066039348422813871562472093264022492911456110439838484238361168333144426034475311786897426171818879553748075371862762159418589339544317042415646636389888701082523465077600097578777638099570672101818640536084175421407623740085748079499497908835927955614002793816081072035512373955370730040581309535115699998356166249792888069760463937867594767371195704809336651642799940045030999949976251181460414934573352015319130981395631191876380730810328225019404971496730188312729054291097698510945238381357200702509981994973939003264341391899913564249176573669549377754555425984712534237254760477575703644823385833930450551340513427567890020901830050105185398764347582123953321158907163375297053082647153490038169184692991434436477453345366469663431511635756399984020424843659223685802184693837130639244655381555557212462065558279554401563800866897510623442745236346332225377624857503541052530393594328827359969565869665674724595726420290747531752008914972270675085137494256874639874703560238438009391811925375625163193595782058479148652282117218148217852626286447817471002917909413083420157019297100021107794130126063709834869741635717039993080060006384975803440905888517218576539429403257280776585615356692997035687181807561451727188376779559330160831959399820615877932547193858262870006261055938193787052750059173321799100839914528335776301278977521426097644269708774949747159229645780790949408440433590942049860703488598701736734613104040585239078213472605095422439383594689717318546016152078446256212892033828601053669742755133601627811832007115271251484523088456684562860185693950153135046956194205889740958017669141503089880071070016898397059560949782141396547492502826077883478254540760003715538650130988728316973581926654515945776028345840821722405893013211580426666346966752476662334347746365162936). 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 @@ -20134,231 +20150,27 @@ COUNT-IF-STRING.4 COUNT-IF-STRING.5 COUNT-IF-STRING.6 COUNT-IF-STRING.8 COUNT-IF-STRING.11 COUNT-IF-STRING.12 COUNT-IF-STRING.13 COUNT-IF-STRING.14 COUNT-IF-STRING.15 - COUNT-IF-STRING.16 COUNT-IF-STRING.17 COUNT-IF.ORDER.1 - COUNT-IF.ORDER.2 COUNT-IF.ALLOW-OTHER-KEYS.1 - COUNT-IF.ALLOW-OTHER-KEYS.2 COUNT-IF.ALLOW-OTHER-KEYS.3 - COUNT-IF.KEYWORDS.4 COUNT-IF.ALLOW-OTHER-KEYS.5 COUNT-IF.ERROR.1 - COUNT-IF.ERROR.2 COUNT-IF.ERROR.3 COUNT-IF.ERROR.4 COUNT-IF.ERROR.5 - COUNT-IF.ERROR.6 COUNT-IF.ERROR.7 COUNT-IF.ERROR.8 COUNT-IF.ERROR.9 - COUNT-IF.ERROR.10 COUNT-IF.ERROR.11 COUNT-IF.ERROR.12 - COUNT-IF.ERROR.13 COUNT-IF.ERROR.14 COUNT-IF.ERROR.15 - COUNT-IF-NOT-LIST.1 COUNT-IF-NOT-LIST.2 COUNT-IF-NOT-LIST.3 - COUNT-IF-NOT-LIST.4 COUNT-IF-NOT-LIST.5 COUNT-IF-NOT-LIST.6 - COUNT-IF-NOT-LIST.8 COUNT-IF-NOT-LIST.9 COUNT-IF-NOT-LIST.10 - COUNT-IF-NOT-LIST.11 COUNT-IF-NOT-LIST.12 COUNT-IF-NOT-LIST.13 - COUNT-IF-NOT-LIST.14 COUNT-IF-NOT-LIST.15 COUNT-IF-NOT-LIST.16 - COUNT-IF-NOT-VECTOR.1 COUNT-IF-NOT-VECTOR.2 COUNT-IF-NOT-VECTOR.3 - COUNT-IF-NOT-VECTOR.4 COUNT-IF-NOT-VECTOR.5 COUNT-IF-NOT-VECTOR.6 - COUNT-IF-NOT-VECTOR.8 COUNT-IF-NOT-VECTOR.9 COUNT-IF-NOT-VECTOR.10 - COUNT-IF-NOT-VECTOR.11 COUNT-IF-NOT-VECTOR.12 COUNT-IF-NOT-VECTOR.13 - COUNT-IF-NOT-VECTOR.14 COUNT-IF-NOT-VECTOR.15 COUNT-IF-NOT-VECTOR.16 - COUNT-IF-NOT-NONSIMPLE-VECTOR.1 COUNT-IF-NOT-NONSIMPLE-VECTOR.2 - COUNT-IF-NOT-NONSIMPLE-VECTOR.3 COUNT-IF-NOT-NONSIMPLE-VECTOR.4 - COUNT-IF-NOT-NONSIMPLE-VECTOR.5 COUNT-IF-NOT-NONSIMPLE-VECTOR.6 - COUNT-IF-NOT-NONSIMPLE-VECTOR.8 COUNT-IF-NOT-NONSIMPLE-VECTOR.9 - COUNT-IF-NOT-NONSIMPLE-VECTOR.10 COUNT-IF-NOT-NONSIMPLE-VECTOR.11 - COUNT-IF-NOT-NONSIMPLE-VECTOR.12 COUNT-IF-NOT-NONSIMPLE-VECTOR.13 - COUNT-IF-NOT-NONSIMPLE-VECTOR.14 COUNT-IF-NOT-NONSIMPLE-VECTOR.15 - COUNT-IF-NOT-NONSIMPLE-VECTOR.16 COUNT-IF-NOT-NONSIMPLE-VECTOR.17 - COUNT-IF-NOT-BIT-VECTOR.1 COUNT-IF-NOT-BIT-VECTOR.2 - COUNT-IF-NOT-BIT-VECTOR.3 COUNT-IF-NOT-BIT-VECTOR.4 - COUNT-IF-NOT-BIT-VECTOR.5 COUNT-IF-NOT-BIT-VECTOR.6 - COUNT-IF-NOT-BIT-VECTOR.8 COUNT-IF-NOT-BIT-VECTOR.10 - COUNT-IF-NOT-BIT-VECTOR.11 COUNT-IF-NOT-BIT-VECTOR.12 - COUNT-IF-NOT-BIT-VECTOR.13 COUNT-IF-NOT-BIT-VECTOR.14 - COUNT-IF-NOT-BIT-VECTOR.15 COUNT-IF-NOT-BIT-VECTOR.16 - COUNT-IF-NOT-BIT-VECTOR.17 COUNT-IF-NOT-STRING.1 COUNT-IF-NOT-STRING.2 - COUNT-IF-NOT-STRING.3 COUNT-IF-NOT-STRING.4 COUNT-IF-NOT-STRING.5 - COUNT-IF-NOT-STRING.6 COUNT-IF-NOT-STRING.8 COUNT-IF-NOT-STRING.11 - COUNT-IF-NOT-STRING.12 COUNT-IF-NOT-STRING.13 COUNT-IF-NOT-STRING.14 - COUNT-IF-NOT-STRING.15 COUNT-IF-NOT-STRING.16 COUNT-IF-NOT-STRING.17 - COUNT-IF-NOT.ORDER.1 COUNT-IF-NOT.ORDER.2 COUNT-IF-NOT.KEYWORDS.1 - COUNT-IF-NOT.KEYWORDS.2 COUNT-IF-NOT.KEYWORDS.3 - COUNT-IF-NOT.KEYWORDS.4 COUNT-IF-NOT.ALLOW-OTHER-KEYS.5 - COUNT-IF-NOT.ERROR.1 COUNT-IF-NOT.ERROR.2 COUNT-IF-NOT.ERROR.3 - COUNT-IF-NOT.ERROR.4 COUNT-IF-NOT.ERROR.5 COUNT-IF-NOT.ERROR.6 - COUNT-IF-NOT.ERROR.7 COUNT-IF-NOT.ERROR.8 COUNT-IF-NOT.ERROR.9 - COUNT-IF-NOT.ERROR.10 COUNT-IF-NOT.ERROR.11 COUNT-IF-NOT.ERROR.12 - COUNT-IF-NOT.ERROR.13 COUNT-IF-NOT.ERROR.14 COUNT-IF-NOT.ERROR.15 - REVERSE-LIST.1 REVERSE-LIST.2 REVERSE-VECTOR.1 REVERSE-VECTOR.2 - REVERSE-NONSIMPLE-VECTOR.1 REVERSE-NONSIMPLE-VECTOR.2 - REVERSE-NONSIMPLE-VECTOR.3 REVERSE-BIT-VECTOR.1 REVERSE-BIT-VECTOR.2 - REVERSE-BIT-VECTOR.3 REVERSE-STRING.1 REVERSE-STRING.2 - REVERSE-STRING.3 REVERSE-STRING.4 REVERSE.ORDER.1 REVERSE.ERROR.1 - REVERSE.ERROR.2 REVERSE.ERROR.3 REVERSE.ERROR.4 REVERSE.ERROR.5 - REVERSE.ERROR.6 REVERSE.ERROR.7 REVERSE.ERROR.8 NREVERSE-LIST.1 - NREVERSE-LIST.2 NREVERSE-VECTOR.1 NREVERSE-VECTOR.2 - NREVERSE-NONSIMPLE-VECTOR.1 NREVERSE-NONSIMPLE-VECTOR.2 - NREVERSE-NONSIMPLE-VECTOR.3 NREVERSE-BIT-VECTOR.1 - NREVERSE-BIT-VECTOR.2 NREVERSE-BIT-VECTOR.3 NREVERSE-STRING.1 - NREVERSE-STRING.2 NREVERSE-STRING.3 NREVERSE-STRING.4 NREVERSE.ORDER.1 - NREVERSE.ERROR.1 NREVERSE.ERROR.2 NREVERSE.ERROR.3 NREVERSE.ERROR.4 - NREVERSE.ERROR.5 NREVERSE.ERROR.6 NREVERSE.ERROR.7 NREVERSE.ERROR.8 - SORT-LIST.1 SORT-LIST.2 SORT-LIST.3 SORT-VECTOR.1 SORT-VECTOR.2 - SORT-VECTOR.3 SORT-VECTOR.4 SORT-BIT-VECTOR.1 SORT-BIT-VECTOR.2 - SORT-BIT-VECTOR.3 SORT-STRING.1 SORT-STRING.2 SORT-STRING.3 - SORT.ORDER.1 SORT.ORDER.2 -Test SORT.ERROR.1 failed -Form: (CLASSIFY-ERROR (SORT)) -Expected value: PROGRAM-ERROR -Actual value: TYPE-ERROR. -Test SORT.ERROR.2 failed -Form: (CLASSIFY-ERROR (SORT NIL)) -Expected value: PROGRAM-ERROR -Actual value: NIL. - SORT.ERROR.3 SORT.ERROR.4 -Test SORT.ERROR.5 failed -Form: (CLASSIFY-ERROR (SORT NIL #'< 'BAD T :ALLOW-OTHER-KEYS NIL)) -Expected value: PROGRAM-ERROR -Actual value: NIL. - SORT.ERROR.6 SORT.ERROR.7 SORT.ERROR.8 SORT.ERROR.9 SORT.ERROR.10 - FIND-LIST.1 FIND-LIST.2 FIND-LIST.3 FIND-LIST.4 FIND-LIST.5 - FIND-LIST.6 FIND-LIST.7 FIND-LIST.8 FIND-LIST.9 FIND-LIST.10 - FIND-LIST.11 FIND-LIST.12 FIND-LIST.13 FIND-LIST.14 FIND-LIST.15 - FIND-LIST.16 FIND-LIST.17 FIND-LIST.18 FIND-LIST.19 FIND-LIST.20 - FIND-LIST.21 FIND-LIST.22 FIND-LIST.23 FIND-LIST.24 FIND-LIST.25 - FIND-LIST.26 FIND-LIST.27 FIND-LIST.28 FIND-VECTOR.1 FIND-VECTOR.1A - FIND-VECTOR.2 FIND-VECTOR.2A FIND-VECTOR.3 FIND-VECTOR.4 FIND-VECTOR.5 - FIND-VECTOR.6 FIND-VECTOR.7 FIND-VECTOR.8 FIND-VECTOR.9 FIND-VECTOR.10 - FIND-VECTOR.11 FIND-VECTOR.12 FIND-VECTOR.13 FIND-VECTOR.14 - FIND-VECTOR.15 FIND-VECTOR.16 FIND-VECTOR.17 FIND-VECTOR.18 - FIND-VECTOR.19 FIND-VECTOR.20 FIND-VECTOR.21 FIND-VECTOR.22 - FIND-VECTOR.23 FIND-VECTOR.24 FIND-VECTOR.25 FIND-VECTOR.26 - FIND-VECTOR.27 FIND-VECTOR.28 FIND-VECTOR.29 FIND-VECTOR.30 - FIND-BIT-VECTOR.1 FIND-BIT-VECTOR.1A FIND-BIT-VECTOR.1B - FIND-BIT-VECTOR.1C FIND-BIT-VECTOR.1D FIND-BIT-VECTOR.2 - FIND-BIT-VECTOR.2A FIND-BIT-VECTOR.2B FIND-BIT-VECTOR.2C - FIND-BIT-VECTOR.2D FIND-BIT-VECTOR.2E FIND-BIT-VECTOR.3 - FIND-BIT-VECTOR.4 FIND-BIT-VECTOR.5 FIND-BIT-VECTOR.6 - FIND-BIT-VECTOR.7 FIND-BIT-VECTOR.8 FIND-BIT-VECTOR.9 - FIND-BIT-VECTOR.10 FIND-BIT-VECTOR.11 FIND-BIT-VECTOR.12 - FIND-BIT-VECTOR.13 FIND-BIT-VECTOR.14 FIND-BIT-VECTOR.15 - FIND-BIT-VECTOR.16 FIND-BIT-VECTOR.16A FIND-BIT-VECTOR.16B - FIND-BIT-VECTOR.17 FIND-BIT-VECTOR.17A FIND-BIT-VECTOR.17B - FIND-BIT-VECTOR.18 FIND-BIT-VECTOR.18A FIND-BIT-VECTOR.19 - FIND-BIT-VECTOR.19A FIND-BIT-VECTOR.20 FIND-BIT-VECTOR.21 - FIND-BIT-VECTOR.21A FIND-BIT-VECTOR.21B FIND-BIT-VECTOR.22 - FIND-BIT-VECTOR.22A FIND-BIT-VECTOR.22B FIND-BIT-VECTOR.23 - FIND-BIT-VECTOR.23A FIND-BIT-VECTOR.23B FIND-BIT-VECTOR.24 - FIND-BIT-VECTOR.24A FIND-BIT-VECTOR.24B FIND-BIT-VECTOR.25 - FIND-BIT-VECTOR.26 FIND-BIT-VECTOR.26A FIND-BIT-VECTOR.27 - FIND-BIT-VECTOR.28 FIND-BIT-VECTOR.29 FIND-BIT-VECTOR.30 FIND-STRING.1 - FIND-STRING.1A FIND-STRING.2 FIND-STRING.2A FIND-STRING.3 - FIND-STRING.4 FIND-STRING.5 FIND-STRING.6 FIND-STRING.7 FIND-STRING.8 - FIND-STRING.9 FIND-STRING.10 FIND-STRING.11 FIND-STRING.13 - FIND-STRING.14 FIND-STRING.15 FIND-STRING.16 FIND-STRING.17 - FIND-STRING.18 FIND-STRING.19 FIND-STRING.20 FIND-STRING.21 - FIND-STRING.22 FIND-STRING.23 FIND-STRING.24 FIND-STRING.25 - FIND.ALLOW-OTHER-KEYS.1 FIND.ALLOW-OTHER-KEYS.2 - FIND.ALLOW-OTHER-KEYS.3 FIND.KEYWORDS.4 FIND.ALLOW-OTHER-KEYS.5 - FIND.ERROR.1 FIND.ERROR.2 FIND.ERROR.3 FIND.ERROR.4 FIND.ERROR.5 - FIND.ERROR.6 FIND.ERROR.7 FIND.ERROR.8 FIND.ERROR.9 FIND.ERROR.10 - FIND.ERROR.11 FIND.ERROR.12 FIND.ERROR.13 FIND.ERROR.14 FIND.ERROR.15 - FIND.ORDER.1 FIND.ORDER.2 FIND.ORDER.3 FIND-IF-LIST.1 FIND-IF-LIST.2 - FIND-IF-LIST.2A FIND-IF-LIST.3 FIND-IF-LIST.4 FIND-IF-LIST.5 - FIND-IF-LIST.6 FIND-IF-LIST.7 FIND-IF-LIST.8 FIND-IF-LIST.9 - FIND-IF-LIST.10 FIND-IF-LIST.11 FIND-IF-LIST.12 FIND-IF-LIST.13 - FIND-IF-LIST.14 FIND-IF-LIST.15 FIND-IF-LIST.16 FIND-IF-LIST.17 - FIND-IF-LIST.18 FIND-IF-VECTOR.1 FIND-IF-VECTOR.2 FIND-IF-VECTOR.2A - FIND-IF-VECTOR.3 FIND-IF-VECTOR.4 FIND-IF-VECTOR.5 FIND-IF-VECTOR.6 - FIND-IF-VECTOR.7 FIND-IF-VECTOR.8 FIND-IF-VECTOR.9 FIND-IF-VECTOR.10 - FIND-IF-VECTOR.11 FIND-IF-VECTOR.12 FIND-IF-VECTOR.13 - FIND-IF-VECTOR.14 FIND-IF-VECTOR.15 FIND-IF-VECTOR.16 - FIND-IF-VECTOR.17 FIND-IF-VECTOR.18 FIND-IF-VECTOR.19 - FIND-IF-BIT-VECTOR.1 FIND-IF-BIT-VECTOR.2 FIND-IF-BIT-VECTOR.3 - FIND-IF-BIT-VECTOR.4 FIND-IF-BIT-VECTOR.5 FIND-IF-BIT-VECTOR.6 - FIND-IF-BIT-VECTOR.7 FIND-IF-STRING.1 FIND-IF-STRING.2 - FIND-IF-STRING.2A FIND-IF-STRING.3 FIND-IF-STRING.3A FIND-IF-STRING.4 - FIND-IF-STRING.5 FIND-IF-STRING.6 FIND-IF-STRING.7 FIND-IF-STRING.8 - FIND-IF-STRING.9 FIND-IF-STRING.10 FIND-IF-STRING.11 FIND-IF-STRING.12 - FIND-IF-STRING.13 FIND-IF-STRING.14 FIND-IF-STRING.15 - FIND-IF-STRING.16 FIND-IF-STRING.17 FIND-IF-STRING.18 - FIND-IF-STRING.19 FIND-IF.ALLOW-OTHER-KEYS.1 - FIND-IF.ALLOW-OTHER-KEYS.2 FIND-IF.ALLOW-OTHER-KEYS.3 - FIND-IF.KEYWORDS.4 FIND-IF.ALLOW-OTHER-KEYS.5 FIND-IF.ERROR.1 - FIND-IF.ERROR.2 FIND-IF.ERROR.3 FIND-IF.ERROR.4 FIND-IF.ERROR.5 - FIND-IF.ERROR.6 FIND-IF.ERROR.7 FIND-IF.ERROR.8 FIND-IF.ERROR.9 - FIND-IF.ERROR.10 FIND-IF.ERROR.11 FIND-IF.ERROR.12 FIND-IF.ERROR.13 - FIND-IF.ERROR.14 FIND-IF.ERROR.15 FIND-IF.ORDER.1 FIND-IF.ORDER.2 - FIND-IF.ORDER.3 FIND-IF-NOT-LIST.1 FIND-IF-NOT-LIST.2 - FIND-IF-NOT-LIST.2A FIND-IF-NOT-LIST.3 FIND-IF-NOT-LIST.4 - FIND-IF-NOT-LIST.5 FIND-IF-NOT-LIST.6 FIND-IF-NOT-LIST.7 - FIND-IF-NOT-LIST.8 FIND-IF-NOT-LIST.9 FIND-IF-NOT-LIST.10 - FIND-IF-NOT-LIST.11 FIND-IF-NOT-LIST.12 FIND-IF-NOT-LIST.13 - FIND-IF-NOT-LIST.14 FIND-IF-NOT-LIST.15 FIND-IF-NOT-LIST.16 - FIND-IF-NOT-LIST.17 FIND-IF-NOT-LIST.18 FIND-IF-NOT-VECTOR.1 - FIND-IF-NOT-VECTOR.2 FIND-IF-NOT-VECTOR.2A FIND-IF-NOT-VECTOR.3 - FIND-IF-NOT-VECTOR.4 FIND-IF-NOT-VECTOR.5 FIND-IF-NOT-VECTOR.6 - FIND-IF-NOT-VECTOR.7 FIND-IF-NOT-VECTOR.8 FIND-IF-NOT-VECTOR.9 - FIND-IF-NOT-VECTOR.10 FIND-IF-NOT-VECTOR.11 FIND-IF-NOT-VECTOR.12 - FIND-IF-NOT-VECTOR.13 FIND-IF-NOT-VECTOR.14 FIND-IF-NOT-VECTOR.15 - FIND-IF-NOT-VECTOR.16 FIND-IF-NOT-VECTOR.17 FIND-IF-NOT-VECTOR.18 - FIND-IF-NOT-BIT-VECTOR.1 FIND-IF-NOT-BIT-VECTOR.2 - FIND-IF-NOT-BIT-VECTOR.3 FIND-IF-NOT-BIT-VECTOR.4 - FIND-IF-NOT-BIT-VECTOR.5 FIND-IF-NOT-BIT-VECTOR.6 - FIND-IF-NOT-BIT-VECTOR.7 FIND-IF-NOT-STRING.1 FIND-IF-NOT-STRING.2 - FIND-IF-NOT-STRING.2A FIND-IF-NOT-STRING.3 FIND-IF-NOT-STRING.3A - FIND-IF-NOT-STRING.4 FIND-IF-NOT-STRING.5 FIND-IF-NOT-STRING.6 - FIND-IF-NOT-STRING.7 FIND-IF-NOT-STRING.8 FIND-IF-NOT-STRING.9 - FIND-IF-NOT-STRING.10 FIND-IF-NOT-STRING.11 FIND-IF-NOT-STRING.12 - FIND-IF-NOT-STRING.13 FIND-IF-NOT-STRING.14 FIND-IF-NOT-STRING.15 - FIND-IF-NOT-STRING.16 FIND-IF-NOT-STRING.17 FIND-IF-NOT-STRING.18 - FIND-IF-NOT.ALLOW-OTHER-KEYS.1 FIND-IF-NOT.ALLOW-OTHER-KEYS.2 - FIND-IF-NOT.ALLOW-OTHER-KEYS.3 FIND-IF-NOT.KEYWORDS.4 - FIND-IF-NOT.ALLOW-OTHER-KEYS.5 FIND-IF-NOT.ERROR.1 FIND-IF-NOT.ERROR.2 - FIND-IF-NOT.ERROR.3 FIND-IF-NOT.ERROR.4 FIND-IF-NOT.ERROR.5 - FIND-IF-NOT.ERROR.6 FIND-IF-NOT.ERROR.7 FIND-IF-NOT.ERROR.8 - FIND-IF-NOT.ERROR.9 FIND-IF-NOT.ERROR.10 FIND-IF-NOT.ERROR.11 - FIND-IF-NOT.ERROR.12 FIND-IF-NOT.ERROR.13 FIND-IF-NOT.ERROR.14 - FIND-IF-NOT.ERROR.15 FIND-IF-NOT.ORDER.1 FIND-IF-NOT.ORDER.2 - FIND-IF-NOT.ORDER.3 POSITION-LIST.1 POSITION-LIST.2 POSITION-LIST.3 - POSITION-LIST.4 POSITION-LIST.5 POSITION-LIST.6 POSITION-LIST.7 - POSITION-LIST.8 POSITION-LIST.9 POSITION-LIST.10 POSITION-LIST.11 - POSITION-LIST.12 POSITION-LIST.13 POSITION-LIST.14 POSITION-LIST.15 - POSITION-LIST.16 POSITION-LIST.17 POSITION-LIST.18 POSITION-LIST.19 - POSITION-LIST.20 POSITION-LIST.21 POSITION-LIST.22 POSITION-LIST.23 - POSITION-LIST.24 POSITION-LIST.25 POSITION-LIST.26 POSITION-LIST.27 - POSITION-LIST.28 POSITION-VECTOR.1 POSITION-VECTOR.2 POSITION-VECTOR.3 - POSITION-VECTOR.4 POSITION-VECTOR.5 POSITION-VECTOR.6 - POSITION-VECTOR.7 POSITION-VECTOR.8 POSITION-VECTOR.9 - POSITION-VECTOR.10 POSITION-VECTOR.11 POSITION-VECTOR.12 - POSITION-VECTOR.13 POSITION-VECTOR.14 POSITION-VECTOR.15 - POSITION-VECTOR.16 POSITION-VECTOR.17 POSITION-VECTOR.18 - POSITION-VECTOR.19 POSITION-VECTOR.20 POSITION-VECTOR.21 - POSITION-VECTOR.22 POSITION-VECTOR.23 POSITION-VECTOR.24 - POSITION-VECTOR.25 POSITION-VECTOR.26 POSITION-VECTOR.27 - POSITION-VECTOR.28 POSITION-VECTOR.29 POSITION-VECTOR.30 - POSITION-VECTOR.31 POSITION-BIT-VECTOR.1 POSITION-BIT-VECTOR.2 - POSITION-BIT-VECTOR.3 POSITION-BIT-VECTOR.4 POSITION-BIT-VECTOR.5 - POSITION-BIT-VECTOR.6 POSITION-BIT-VECTOR.7 POSITION-BIT-VECTOR.8 - POSITION-BIT-VECTOR.9 POSITION-BIT-VECTOR.10 POSITION-BIT-VECTOR.11 - POSITION-BIT-VECTOR.12 POSITION-BIT-VECTOR.13 POSITION-BIT-VECTOR.14 - POSITION-BIT-VECTOR.15 POSITION-BIT-VECTOR.16 POSITION-BIT-VECTOR.17 - POSITION-BIT-VECTOR.18 POSITION-BIT-VECTOR.19 POSITION-BIT-VECTOR.20 - POSITION-BIT-VECTOR.21 POSITION-BIT-VECTOR.22 POSITION-BIT-VECTOR.23 - POSITION-BIT-VECTOR.24 POSITION-BIT-VECTOR.25 POSITION-BIT-VECTOR.27 - POSITION-BIT-VECTOR.28 POSITION-BIT-VECTOR.29 POSITION-BIT-VECTOR.30 - POSITION-BIT-VECTOR.31 POSITION-BIT-VECTOR.32 POSITION-STRING.1 - POSITION-STRING.2 POSITION-STRING.3 POSITION-STRING.4 - POSITION-STRING.5 POSITION-STRING.6 POSITION-STRING.7 - POSITION-STRING.8 POSITION-STRING.9 POSITION-STRING.10 - POSITION-STRING.11 POSITION-STRING.13 POSITION-STRING.14 - POSITION-STRING.15 POSITION-STRING.16 POSITION-STRING.17 - POSITION-STRING.18 POSITION-STRING.19 POSITION-STRING.20 - POSITION-STRING.21 POSITION-STRING.22 POSITION-STRING.23 - POSITION-STRING.24 POSITION-STRING.25 POSITION-STRING.26 - POSITION-STRING.27 POSITION-STRING.28 POSITION.ORDER.1 - POSITION.ORDER.2 POSITION.ALLOW-OTHER-KEYS.1 - POSITION.ALLOW-OTHER-KEYS.2 POSITION.ALLOW-OTHER-KEYS.3 - POSITION.ALLOW-OTHER-KEYS.4 POSITION.ALLOW-OTHER-KEYS.5 - POSITION.KEYWORDS.6 POSITION.ALLOW-OTHER-KEYS.7 - POSITION.ALLOW-OTHER-KEYS.8 POSITION.ALLOW-OTHER-KEYS.9 - POSITION.ERROR.1 POSITION.ERROR.2 POSITION.ERROR.3 POSITION.ERROR.4 - POSITION.ERROR.5 POSITION.ERROR.6 POSITION.ERROR.7 POSITION.ERROR.8 - POSITION.ERROR.9 POSITION.ERROR.10 POSITION.ERROR.11 POSITION.ERROR.12 - POSITION.ERROR.13 POSITION.ERROR.14 POSITION.ERROR.15 SEARCH-LIST.1 - SEARCH-LIST.2 SEARCH-LIST.3 SEARCH-LIST.4 SEARCH-LIST.5 SEARCH-LIST.6 - SEARCH-LIST.7 SEARCH-LIST.8 SEARCH-LIST.9 SEARCH-LIST.10 NSET-EXCLUSIVE-OR.13 NSET-EXCLUSIVE-OR.14 + COUNT-IF-STRING.16 COUNT-IF-STRING.17 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 + SET-EXCLUSIVE-OR.ORDER.2 SET-EXCLUSIVE-OR.ORDER.3 + SET-EXCLUSIVE-OR.ORDER.4 SET-EXCLUSIVE-OR.ORDER.5 + SET-EXCLUSIVE.ALLOW-OTHER-KEYS.1 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.2 + SET-EXCLUSIVE.ALLOW-OTHER-KEYS.3 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.4 + SET-EXCLUSIVE.ALLOW-OTHER-KEYS.5 SET-EXCLUSIVE.ALLOW-OTHER-KEYS.6 + SET-EXCLUSIVE.ALLOW-OTHER-KEYS.7 SET-EXCLUSIVE.KEYWORDS.8 + SET-EXCLUSIVE.KEYWORDS.9 SET-EXCLUSIVE-OR.ERROR.1 + SET-EXCLUSIVE-OR.ERROR.2 SET-EXCLUSIVE-OR.ERROR.3 + SET-EXCLUSIVE-OR.ERROR.4 SET-EXCLUSIVE-OR.ERROR.5 + SET-EXCLUSIVE-OR.ERROR.6 SET-EXCLUSIVE-OR.ERROR.7 + SET-EXCLUSIVE-OR.ERROR.8 SET-EXCLUSIVE-OR.ERROR.9 + SET-EXCLUSIVE-OR.ERROR.10 NSET-EXCLUSIVE-OR.1 NSET-EXCLUSIVE-OR.2 + NSET-EXCLUSIVE-OR.3 NSET-EXCLUSIVE-OR.4 NSET-EXCLUSIVE-OR.5 + NSET-EXCLUSIVE-OR.6 NSET-EXCLUSIVE-OR.7 NSET-EXCLUSIVE-OR.7-A + NSET-EXCLUSIVE-OR.8 NSET-EXCLUSIVE-OR.8-A NSET-EXCLUSIVE-OR.8-B + NSET-EXCLUSIVE-OR.9 NSET-EXCLUSIVE-OR.10 NSET-EXCLUSIVE-OR.11 + NSET-EXCLUSIVE-OR.12 NSET-EXCLUSIVE-OR.13 NSET-EXCLUSIVE-OR.14 NSET-EXCLUSIVE-OR.15 NSET-EXCLUSIVE-OR.16 NSET-EXCLUSIVE-OR.17 NSET-EXCLUSIVE-OR.17-A NSET-EXCLUSIVE-OR.18 NSET-EXCLUSIVE-OR.18-A NSET-EXCLUSIVE-OR.ORDER.1 NSET-EXCLUSIVE-OR.ORDER.2 @@ -21680,10 +21492,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"" # @@ -21691,7 +21503,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) @@ -21700,7 +21512,17 @@ # # (SYSTEM:LAMBDA-CLOSURE () () () (X) X) - #$50300049086716344116463296205875920195748647793075754488975448224105785606450471246582247625173275190183848818751427812563289186632008290738219463743628232092943682045338135008310576473151715293381666484512469137306887219908984966361522290777130982507980507699837290453325143830728970958592355580035310131729498888877555354713083854593757867564546411495754386086116714200409057978455796966027418604688875662983589141888158481308261010021492375997596861264761920283122652914429187590619017211268844828214567731093005259680112898845523393061368982438639874741482497781283826251259973799765376465260912493808987724751599609120661997391664269401688685746634462562727045323873027990053557274308722965756474096705601847576615779580685661043272353596483473976690449954193216558552812000054023522472068091311008411076807855713252166744222335876051078342539450799013207302063011854212568115811508273011149257004767782717707425025288810790737556905990940846219063600990961794153407415302858343310818564653614376656722738348348347205109692771982635110637110029270146063689691307238973837530490096652422660793676710807007220858853036945535780546731745462444408016199315404284818047478380415784210498000209615690622500450076766542530091399763555841083068160410902748842738926113432809262383395283988423185680281992849758946185375383370862369935564530707358053524978034732995893846969743114605891347861816847428105075101179105084701324569293066833780006847812479083887385619006246046748673075809249411397265704909334307769902203608778980441946225414685196040337285408694836001254294942834810877206965649597733575195976641939110976659492447077189118324858054411207514502796378089139050929148119765669721988955979218238252716010020525114432314525503140830092750598773537371912579312029276379426150008180925793073638957382471184346417459609298956749284107471381075827650407356674040861335990831095237886627774374121001979111986732016408884050993204425286473527962706816552735244313166232172433964975212418844355364588790042005036230087237225517217650081945013855855071251755298589120467147934882083691929106332118862641698813826645456034981447391972947228410103426081107850233335293275229633781878623334077309606919205121963427225220104298658695860247387916290002005154424390847818699045635208486145466746471469556255472099020121915832198426355178002189373376246351488723996213932949509832033772857141423747194813882560999234050678655031925503785220955182006491473975402531038741023568310503827477718917717703711790290085520930563863655368674444667530807808703788005796041452057396391840543893857428502613493341035418830152711843814710166884092966086643344646911515387116236535487503953386930537139770146427798105889732021216843405168896381457531412087681301870797758043454408658691481147049343954061773652123782926434614728089575236327621211925819752751929425880297368443367042728800451606664994474344560721265737561877982582636088051473285274849042017263749994630109458368806630857066157602813072169360178677890110607462689524957910347396736195041967878603194169102824777349592930203748225323941044969850574881854482208995216143728150723936872579920617392170607444424640960973469966833268308439999597629746886554334436530430692785104925249321368211359626931874954676405195794536083214922435153855521465145688523462939130813079228323908048958220514117911258387762671601991803786358736424852237610987212505434554096583467479497192376739776784974039824624922507744613692563021647549418563561416678634872944817606095336791497659861346774602190298604341680873477996758114663795594592317481359842594449369613321111115588231883414767141429797253338797924370006012395379526505417336375426050219944227885471690413911115564499374238259245220465066791598118451894044467247083036901572763020732989710788992272156888456859889680306474603902455404462843562047054416500142667580409447733872987208683863770380830429796664924311572228910601656641490608273033305378253469792138852931386602458560683674961412555044303173991237712909967482980878893484677482333342403123933282421655577270156075175551443779861484942683374814011490956899639469908661690679265205368165369284836668976439864432723371844533297164265572426660639284621002049343783960733716129668114838757308336160060559226967895053004252153648135867835293553822596947820444914038826084190349109725136500266192422741699362194545813594425115731004534323150758696077626551398390149565037571244716623704858425128497757233722376774342118193470204330513194533146571018640880623179016135851377286551660379200657435161318047472007292936847343104141381964922482673014909738842333204453425700767918068511562620678562622012329248517003769582614407779079287780753039175871203967707687395138457981521024397073626008722624424803026360981256146521917375959307027349287677138506055411967350551906183802067721494017248140110720825344951729659196825742290801066973460241639976185644565070473423410249274312120885783455847907923676503382709036545195148903555282167140802192827192052017644378606525558321730032958176786378719863977013218268433870807941481117179007001411521672403257153835236846375662523475036570475815809805624204589695424431213475066162424417358369253678625901205509135572134246239185463965997760771707562445273282376915942754793780613047403684827517606247626546626082402395230789175050019721752173625916192967376112269446393943498812017779353601329132149943761112932038853445100589595549298118177746712404598109011586217167008459768388867520700007435803361814942945447192010105257083230955914565607712010474817299949164502924875475303939689621628202204209047922289557940792320096546246427717271258819110378422398256668857914818444487509884180604760700864016950918212312715117797283735080772240800664043979565905338108848441980194173711978917087096752429473346057124688571186373456810339963617704985440578058008120645606817572817941458334630127553845709920755146319341263402317778262178536841101302155820883086615626301406706477655808253526848610633055066782587672856848574552033609228382646). + #$2816919632735662192164309226874377010533840514063621027024068158045530627653607697951095950471943874447104968158695744398381179711722101303451032459979788883342576287240674465848669329952906226330464967112035774548473871382853191618677183404825839423759112863211399724013189424981143970892226176268279691441753312855258936412183073682735661053135737591041672520288486997935497412110058042864740063777701170264816276147985404951804713679099491246230259661381063988095550770990982957933383393978322653094309507818261790787937516184595067355628461683968622615167608940907744980681478777469604924837597218239905227587416904351420485133098353188102544931705126638660639721128120244976462176616306758185627569035871087507560979755521930640024804071970289534470211306939768576642118636556037958658852425647946864644245084190334244693265541511195030439163301650299855115627021355565217322843629373582670164599849294964638071432331168922212024134463455001915942228433654434761543308373596081699805970943428279752942494841972576728406275259668670323621315255291426104303291553109054876109698723794646850081145890399605164394798928852883850442695700083447143137286591800292794456970768476072259125971089616236725141079843668279085090422374157372680404184296927095650774442285483675702791878790930018298818874015184760231567944431430600226663372290781008716985448529590427019187184575416933207684580816853319076281952370623735300357314185779655743901815467161857915888927396765290770358000812460814710473645456578338948063146081637262606194924556207537034354430968697085520315842113233858848786902746964276429980311820040059877827741335288212514487936544287257639785249591008712761398280370896140660323988533683383442827834447385448396021657495485298188620841102699275588936812182688804112235088283557921677032996286656367417409846069682727156433265132096145947606687167980722265455627905513214966791083653053618385085344756474443009695026239792151707976890390434732140961038894064861284002621106755400240297894447020923221883184264450227776339376775564106153661955200094670050317751576580534956593308983700143365506390356982910386283164635497854359163840190587161219843695557663941337382786966333485864689540780222629002841296837752125337229504347269025393040708312328952163631082611283210200446235983303611981438048981367206373335034125582733388021392071171588168622318929732311152109996270359281182765481414582085803293301145609744525886672530503089075385283358054997510275393716232500750911323685830180675414216921696744668935936540674762882260956585429998282743916688062030553965735099212929076453469860663804251937613882467588460076433141846108774632107350020313786384855885877732164543771137494285466022560708542198221921386003321879590030657664753719085348930228536740047455247862404504919175618285373443472518610596788477984375933216085272275223769683704000852099364666642815871237053278896298679853447453995468925841448325692001866440152380822307963397376827280745098459998221996289583261923503318187776873315603501227455896976540724509404534219237256364541251890625875863983814590631598560235785052699114229048584422226921382985389930245482803418508014429262077156388482762754687242820381961862753434689422057383442778915927472153185968790402447453350715860764872506435321872963844003748688842849575294487058627940705023324095740511896619550053678531517643570535267346370411002208275154192470471759891910639912515085140995596580897171130560009311285148803128712897733666260173711907546372303194998677024204993928143816581050417994547465654065407432519017130270950891720453082301135378825409611989683099426686376342901743536715618543792842859882018145153723716111859022415897511298248561167901738651909649181598503989503791327953318867891088282387034390187405702478592815931855006119235452333787559354962005706704652547557316957145992713530771869900539900527523804923194945778434491269628775562385844291341048196376083657968460731551068035037271641593945576831024575427390628171039570849870467901589955031305862184585667506534737357184815353608950426465088940294362435270309 COUNT-IF.ORDER.1 + COUNT-IF.ORDER.2 COUNT-IF.ALLOW-OTHER-KEYS.1 + COUNT-IF.ALLOW-OTHER-KEYS.2 COUNT-IF.ALLOW-OTHER-KEYS.3 + COUNT-IF.KEYWORDS.4 COUNT-IF.ALLOW-OTHER-KEYS.5 COUNT-IF.ERROR.1 + COUNT-IF.ERROR.2 COUNT-IF.ERROR.3 COUNT-IF.ERROR.4 COUNT-IF.ERROR.5 + COUNT-IF.ERROR.6 COUNT-IF.ERROR.7 COUNT-IF.ERROR.8 COUNT-IF.ERROR.9 + COUNT-IF.ERROR.10 COUNT-IF.ERROR.11 COUNT-IF.ERROR.12 + COUNT-IF.ERROR.13 COUNT-IF.ERROR.14 COUNT-IF.ERROR.15 + COUNT-IF-NOT-LIST.1 COUNT-IF-NOT-LIST.2 COUNT-IF-NOT-LIST.3 + COUNT-IF-NOT-LIST.4 COUNT-IF-NOT-LIST.5 COUNT-IF-NOT-LIST.6 + COUNT-IF-NOT-LIST.8 COUNT-IF-NOT-LIST.99259629650215839627051737372948837486203321042839782898671317866042151033626279735028488562237292720065124458815159246963310020069391559279435631066039348422813871562472093264022492911456110439838484238361168333144426034475311786897426171818879553748075371862762159418589339544317042415646636389888701082523465077600097578777638099570672101818640536084175421407623740085748079499497908835927955614002793816081072035512373955370730040581309535115699998356166249792888069760463937867594767371195704809336651642799940045030999949976251181460414934573352015319130981395631191876380730810328225019404971496730188312729054291097698510945238381357200702509981994973939003264341391899913564249176573669549377754555425984712534237254760477575703644823385833930450551340513427567890020901830050105185398764347582123953321158907163375297053082647153490038169184692991434436477453345366469663431511635756399984020424843659223685802184693837130639244655381555557212462065558279554401563800866897510623442745236346332225377624857503541052530393594328827359969565869665674724595726420290747531752008914972270675085137494256874639874703560238438009391811925375625163193595782058479148652282117218148217852626286447817471002917909413083420157019297100021107794130126063709834869741635717039993080060006384975803440905888517218576539429403257280776585615356692997035687181807561451727188376779559330160831959399820615877932547193858262870006261055938193787052750059173321799100839914528335776301278977521426097644269708774949747159229645780790949408440433590942049860703488598701736734613104040585239078213472605095422439383594689717318546016152078446256212892033828601053669742755133601627811832007115271251484523088456684562860185693950153135046956194205889740958017669141503089880071070016898397059560949782141396547492502826077883478254540760003715538650130988728316973581926654515945776028345840821722405893013211580426666346966752476662334347746365162936). 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 @@ -21735,7 +21557,13 @@ VECTOR-PUSH.ERROR.16 VECTOR-PUSH-EXTEND.1 VECTOR-PUSH-EXTEND.2 VECTOR-PUSH-EXTEND.3 VECTOR-PUSH-EXTEND.4 VECTOR-PUSH-EXTEND.5 VECTOR-PUSH-EXTEND.6 VECTOR-PUSH-EXTEND.7 VECTOR-PUSH-EXTEND.8 - VECTOR-PUSH-EXTEND.9 VECTOR-PUSH-EXTEND.10 VECTOR-PUSH-EXTEND.11 + VECTOR-PUSH-EXTEND.9 VECTOR-PUSH-EXTEND.10 VECTOR-PUSH-EXTE COUNT-IF-NOT-LIST.10 + COUNT-IF-NOT-LIST.11 COUNT-IF-NOT-LIST.12 COUNT-IF-NOT-LIST.13 + COUNT-IF-NOT-LIST.14 COUNT-IF-NOT-LIST.15 COUNT-IF-NOT-LIST.16 + COUNT-IF-NOT-VECTOR.1 COUNT-IF-NOT-VECTOR.2 COUNT-IF-NOT-VECTOR.3 + COUNT-IF-NOT-VECTOR.4 COUNT-IF-NOT-VECTOR.5 COUNT-IF-NOT-VECTOR.6 + COUNT-IF-NOT-VECTOR.8 COUNT-IF-NOT-VECTOR.9 COUNT-IF-NOT-VECTOR.10 + COUNT-IF-NOT-VECTOR.11 COUNT-IF-NOT-VECTOR.12 COUNT-IF-NOT-VECTOR.13ND.11 VECTOR-PUSH-EXTEND.12 VECTOR-PUSH-EXTEND.13 VECTOR-PUSH-EXTEND.14 VECTOR-PUSH-EXTEND.15 VECTOR-PUSH-EXTEND.16 VECTOR-PUSH-EXTEND.17 VECTOR-PUSH-EXTEND.18 VECTOR-PUSH-EXTEND.19 VECTOR-PUSH-EXTEND.20 @@ -21799,7 +21627,8 @@ BIT-NOT.1 BIT-NOT.2 BIT-NOT.3 BIT-NOT.4 BIT-NOT.5 BIT-NOT.6 BIT-NOT.7 BIT-NOT.8 BIT-NOT.9 BIT-NOT.10 BIT-NOT.11 BIT-NOT.12 BIT-NOT.13 BIT-NOT.14 BIT-NOT.15 BIT-NOT.ORDER.1 BIT-NOT.ERROR.1 BIT-NOT.ERROR.2 - BIT-VECTOR-P.2 BIT-VECTOR-P.3 BIT-VECTOR-P.4 BIT-VECTOR-P.5 + BIT + COUNT-IF-NOT-VECTOR.14-VECTOR-P.2 BIT-VECTOR-P.3 BIT-VECTOR-P.4 BIT-VECTOR-P.5 BIT-VECTOR-P.6 BIT-VECTOR-P.7 BIT-VECTOR-P.8 BIT-VECTOR-P.9 BIT-VECTOR-P.10 BIT-VECTOR-P.11 BIT-VECTOR-P.12 BIT-VECTOR-P.ORDER.1 BIT-VECTOR-P.ORDER.2 BIT-VECTOR-P.ERROR.1 BIT-VECTOR-P.ERROR.2 @@ -21884,7 +21713,7 @@ DELETE-PACKAGE.2 DELETE-PACKAGE.3 DELETE-PACKAGE.4 DELETE-PACKAGE.5 Test DELETE-PACKAGE.6 failed Form: (PROGN - (SAFELY-DELETE-PACKAGE "TEST-20)") + (SAFELY-DELETE-PACK COUNT-IF-NOT-VECTOR.15 COUNT-IF-NOT-VECTOR.16AGE "TEST-20)") (HANDLER-BIND ((PACKAGE-ERROR #'(LAMBDA (C) @@ -22536,6 +22365,233 @@ SEARCH-BITVECTOR.14 SEARCH-BITVECTOR.15 SEARCH-BITVECTOR.16 SEARCH-STRING.2 SEARCH-STRING.3 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 + COUNT-IF-NOT-NONSIMPLE-VECTOR.1 COUNT-IF-NOT-NONSIMPLE-VECTOR.2 + COUNT-IF-NOT-NONSIMPLE-VECTOR.3 COUNT-IF-NOT-NONSIMPLE-VECTOR.4 + COUNT-IF-NOT-NONSIMPLE-VECTOR.5 COUNT-IF-NOT-NONSIMPLE-VECTOR.6 + COUNT-IF-NOT-NONSIMPLE-VECTOR.8 COUNT-IF-NOT-NONSIMPLE-VECTOR.9 + COUNT-IF-NOT-NONSIMPLE-VECTOR.10 COUNT-IF-NOT-NONSIMPLE-VECTOR.11 + COUNT-IF-NOT-NONSIMPLE-VECTOR.12 COUNT-IF-NOT-NONSIMPLE-VECTOR.13 + COUNT-IF-NOT-NONSIMPLE-VECTOR.14 COUNT-IF-NOT-NONSIMPLE-VECTOR.15 + COUNT-IF-NOT-NONSIMPLE-VECTOR.16 COUNT-IF-NOT-NONSIMPLE-VECTOR.17 + COUNT-IF-NOT-BIT-VECTOR.1 COUNT-IF-NOT-BIT-VECTOR.2 + COUNT-IF-NOT-BIT-VECTOR.3 COUNT-IF-NOT-BIT-VECTOR.4 + COUNT-IF-NOT-BIT-VECTOR.5 COUNT-IF-NOT-BIT-VECTOR.6 + COUNT-IF-NOT-BIT-VECTOR.8 COUNT-IF-NOT-BIT-VECTOR.10 + COUNT-IF-NOT-BIT-VECTOR.11 COUNT-IF-NOT-BIT-VECTOR.12 + COUNT-IF-NOT-BIT-VECTOR.13 COUNT-IF-NOT-BIT-VECTOR.14 + COUNT-IF-NOT-BIT-VECTOR.15 COUNT-IF-NOT-BIT-VECTOR.16 + COUNT-IF-NOT-BIT-VECTOR.17 COUNT-IF-NOT-STRING.1 COUNT-IF-NOT-STRING.2 + COUNT-IF-NOT-STRING.3 COUNT-IF-NOT-STRING.4 COUNT-IF-NOT-STRING.5 + COUNT-IF-NOT-STRING.6 COUNT-IF-NOT-STRING.8 COUNT-IF-NOT-STRING.11 + COUNT-IF-NOT-STRING.12 COUNT-IF-NOT-STRING.13 COUNT-IF-NOT-STRING.14 + COUNT-IF-NOT-STRING.15 COUNT-IF-NOT-STRING.16 COUNT-IF-NOT-STRING.17 + COUNT-IF-NOT.ORDER.1 COUNT-IF-NOT.ORDER.2 COUNT-IF-NOT.KEYWORDS.1 + COUNT-IF-NOT.KEYWORDS.2 COUNT-IF-NOT.KEYWORDS.3 + COUNT-IF-NOT.KEYWORDS.4 COUNT-IF-NOT.ALLOW-OTHER-KEYS.5 + COUNT-IF-NOT.ERROR.1 COUNT-IF-NOT.ERROR.2 COUNT-IF-NOT.ERROR.3 + COUNT-IF-NOT.ERROR.4 COUNT-IF-NOT.ERROR.5 COUNT-IF-NOT.ERROR.6 + COUNT-IF-NOT.ERROR.7 COUNT-IF-NOT.ERROR.8 COUNT-IF-NOT.ERROR.9 + COUNT-IF-NOT.ERROR.10 COUNT-IF-NOT.ERROR.11 COUNT-IF-NOT.ERROR.12 + COUNT-IF-NOT.ERROR.13 COUNT-IF-NOT.ERROR.14 COUNT-IF-NOT.ERROR.15 + REVERSE-LIST.1 REVERSE-LIST.2 REVERSE-VECTOR.1 REVERSE-VECTOR.2 + REVERSE-NONSIMPLE-VECTOR.1 REVERSE-NONSIMPLE-VECTOR.2 + REVERSE-NONSIMPLE-VECTOR.3 REVERSE-BIT-VECTOR.1 REVERSE-BIT-VECTOR.2 + REVERSE-BIT-VECTOR.3 REVERSE-STRING.1 REVERSE-STRING.2 + REVERSE-STRING.3 REVERSE-STRING.4 REVERSE.ORDER.1 REVERSE.ERROR.1 + REVERSE.ERROR.2 REVERSE.ERROR.3 REVERSE.ERROR.4 REVERSE.ERROR.5 + REVERSE.ERROR.6 REVERSE.ERROR.7 REVERSE.ERROR.8 NREVERSE-LIST.1 + NREVERSE-LIST.2 NREVERSE-VECTOR.1 NREVERSE-VECTOR.2 + NREVERSE-NONSIMPLE-VECTOR.1 NREVERSE-NONSIMPLE-VECTOR.2 + NREVERSE-NONSIMPLE-VECTOR.3 NREVERSE-BIT-VECTOR.1 + NREVERSE-BIT-VECTOR.2 NREVERSE-BIT-VECTOR.3 NREVERSE-STRING.1 + NREVERSE-STRING.2 NREVERSE-STRING.3 NREVERSE-STRING.4 NREVERSE.ORDER.1 + NREVERSE.ERROR.1 NREVERSE.ERROR.2 NREVERSE.ERROR.3 NREVERSE.ERROR.4 + NREVERSE.ERROR.5 NREVERSE.ERROR.6 NREVERSE.ERROR.7 NREVERSE.ERROR.8 + SORT-LIST.1 SORT-LIST.2 SORT-LIST.3 SORT-VECTOR.1 SORT-VECTOR.2 + SORT-VECTOR.3 SORT-VECTOR.4 SORT-BIT-VECTOR.1 SORT-BIT-VECTOR.2 + SORT-BIT-VECTOR.3 SORT-STRING.1 SORT-STRING.2 SORT-STRING.3 + SORT.ORDER.1 SORT.ORDER.2 +Test SORT.ERROR.1 failed +Form: (CLASSIFY-ERROR (SORT)) +Expected value: PROGRAM-ERROR +Actual value: TYPE-ERROR. +Test SORT.ERROR.2 failed +Form: (CLASSIFY-ERROR (SORT NIL)) +Expected value: PROGRAM-ERROR +Actual value: NIL. + SORT.ERROR.3 SORT.ERROR.4 +Test SORT.ERROR.5 failed +Form: (CLASSIFY-ERROR (SORT NIL #'< 'BAD T :ALLOW-OTHER-KEYS NIL)) +Expected value: PROGRAM-ERROR +Actual value: NIL. + SORT.ERROR.6 SORT.ERROR.7 SORT.ERROR.8 SORT.ERROR.9 SORT.ERROR.10 + FIND-LIST.1 FIND-LIST.2 FIND-LIST.3 FIND-LIST.4 FIND-LIST.5 + FIND-LIST.6 FIND-LIST.7 FIND-LIST.8 FIND-LIST.9 FIND-LIST.10 + FIND-LIST.11 FIND-LIST.12 FIND-LIST.13 FIND-LIST.14 FIND-LIST.15 + FIND-LIST.16 FIND-LIST.17 FIND-LIST.18 FIND-LIST.19 FIND-LIST.20 + FIND-LIST.21 FIND-LIST.22 FIND-LIST.23 FIND-LIST.24 FIND-LIST.25 + FIND-LIST.26 FIND-LIST.27 FIND-LIST.28 FIND-VECTOR.1 FIND-VECTOR.1A + FIND-VECTOR.2 FIND-VECTOR.2A FIND-VECTOR.3 FIND-VECTOR.4 FIND-VECTOR.5 + FIND-VECTOR.6 FIND-VECTOR.7 FIND-VECTOR.8 FIND-VECTOR.9 FIND-VECTOR.10 + FIND-VECTOR.11 FIND-VECTOR.12 FIND-VECTOR.13 FIND-VECTOR.14 + FIND-VECTOR.15 FIND-VECTOR.16 FIND-VECTOR.17 FIND-VECTOR.18 + FIND-VECTOR.19 FIND-VECTOR.20 FIND-VECTOR.21 FIND-VECTOR.22 + FIND-VECTOR.23 FIND-VECTOR.24 FIND-VECTOR.25 FIND-VECTOR.26 + FIND-VECTOR.27 FIND-VECTOR.28 FIND-VECTOR.29 FIND-VECTOR.30 + FIND-BIT-VECTOR.1 FIND-BIT-VECTOR.1A FIND-BIT-VECTOR.1B + FIND-BIT-VECTOR.1C FIND-BIT-VECTOR.1D FIND-BIT-VECTOR.2 + FIND-BIT-VECTOR.2A FIND-BIT-VECTOR.2B FIND-BIT-VECTOR.2C + FIND-BIT-VECTOR.2D FIND-BIT-VECTOR.2E FIND-BIT-VECTOR.3 + FIND-BIT-VECTOR.4 FIND-BIT-VECTOR.5 FIND-BIT-VECTOR.6 + FIND-BIT-VECTOR.7 FIND-BIT-VECTOR.8 FIND-BIT-VECTOR.9 + FIND-BIT-VECTOR.10 FIND-BIT-VECTOR.11 FIND-BIT-VECTOR.12 + FIND-BIT-VECTOR.13 FIND-BIT-VECTOR.14 FIND-BIT-VECTOR.15 + FIND-BIT-VECTOR.16 FIND-BIT-VECTOR.16A FIND-BIT-VECTOR.16B + FIND-BIT-VECTOR.17 FIND-BIT-VECTOR.17A FIND-BIT-VECTOR.17B + FIND-BIT-VECTOR.18 FIND-BIT-VECTOR.18A FIND-BIT-VECTOR.19 + FIND-BIT-VECTOR.19A FIND-BIT-VECTOR.20 FIND-BIT-VECTOR.21 + FIND-BIT-VECTOR.21A FIND-BIT-VECTOR.21B FIND-BIT-VECTOR.22 + FIND-BIT-VECTOR.22A FIND-BIT-VECTOR.22B FIND-BIT-VECTOR.23 + FIND-BIT-VECTOR.23A FIND-BIT-VECTOR.23B FIND-BIT-VECTOR.24 + FIND-BIT-VECTOR.24A FIND-BIT-VECTOR.24B FIND-BIT-VECTOR.25 + FIND-BIT-VECTOR.26 FIND-BIT-VECTOR.26A FIND-BIT-VECTOR.27 + FIND-BIT-VECTOR.28 FIND-BIT-VECTOR.29 FIND-BIT-VECTOR.30 FIND-STRING.1 + FIND-STRING.1A FIND-STRING.2 FIND-STRING.2A FIND-STRING.3 + FIND-STRING.4 FIND-STRING.5 FIND-STRING.6 FIND-STRING.7 FIND-STRING.8 + FIND-STRING.9 FIND-STRING.10 FIND-STRING.11 FIND-STRING.13 + FIND-STRING.14 FIND-STRING.15 FIND-STRING.16 FIND-STRING.17 + FIND-STRING.18 FIND-STRING.19 FIND-STRING.20 FIND-STRING.21 + FIND-STRING.22 FIND-STRING.23 FIND-STRING.24 FIND-STRING.25 + FIND.ALLOW-OTHER-KEYS.1 FIND.ALLOW-OTHER-KEYS.2 + FIND.ALLOW-OTHER-KEYS.3 FIND.KEYWORDS.4 FIND.ALLOW-OTHER-KEYS.5 + FIND.ERROR.1 FIND.ERROR.2 FIND.ERROR.3 FIND.ERROR.4 FIND.ERROR.5 + FIND.ERROR.6 FIND.ERROR.7 FIND.ERROR.8 FIND.ERROR.9 FIND.ERROR.10 + FIND.ERROR.11 FIND.ERROR.12 FIND.ERROR.13 FIND.ERROR.14 FIND.ERROR.15 + FIND.ORDER.1 FIND.ORDER.2 FIND.ORDER.3 FIND-IF-LIST.1 FIND-IF-LIST.2 + FIND-IF-LIST.2A FIND-IF-LIST.3 FIND-IF-LIST.4 FIND-IF-LIST.5 + FIND-IF-LIST.6 FIND-IF-LIST.7 FIND-IF-LIST.8 FIND-IF-LIST.9 + FIND-IF-LIST.10 FIND-IF-LIST.11 FIND-IF-LIST.12 FIND-IF-LIST.13 + FIND-IF-LIST.14 FIND-IF-LIST.15 FIND-IF-LIST.16 FIND-IF-LIST.17 + FIND-IF-LIST.18 FIND-IF-VECTOR.1 FIND-IF-VECTOR.2 FIND-IF-VECTOR.2A + FIND-IF-VECTOR.3 FIND-IF-VECTOR.4 FIND-IF-VECTOR.5 FIND-IF-VECTOR.6 + FIND-IF-VECTOR.7 FIND-IF-VECTOR.8 FIND-IF-VECTOR.9 FIND-IF-VECTOR.10 + FIND-IF-VECTOR.11 FIND-IF-VECTOR.12 FIND-IF-VECTOR.13 + FIND-IF-VECTOR.14 FIND-IF-VECTOR.15 FIND-IF-VECTOR.16 + FIND-IF-VECTOR.17 FIND-IF-VECTOR.18 FIND-IF-VECTOR.19 + FIND-IF-BIT-VECTOR.1 FIND-IF-BIT-VECTOR.2 FIND-IF-BIT-VECTOR.3 + FIND-IF-BIT-VECTOR.4 FIND-IF-BIT-VECTOR.5 FIND-IF-BIT-VECTOR.6 + FIND-IF-BIT-VECTOR.7 FIND-IF-STRING.1 FIND-IF-STRING.2 + FIND-IF-STRING.2A FIND-IF-STRING.3 FIND-IF-STRING.3A FIND-IF-STRING.4 + FIND-IF-STRING.5 FIND-IF-STRING.6 FIND-IF-STRING.7 FIND-IF-STRING.8 + FIND-IF-STRING.9 FIND-IF-STRING.10 FIND-IF-STRING.11 FIND-IF-STRING.12 + FIND-IF-STRING.13 FIND-IF-STRING.14 FIND-IF-STRING.15 + FIND-IF-STRING.16 FIND-IF-STRING.17 FIND-IF-STRING.18 + FIND-IF-STRING.19 FIND-IF.ALLOW-OTHER-KEYS.1 + FIND-IF.ALLOW-OTHER-KEYS.2 FIND-IF.ALLOW-OTHER-KEYS.3 + FIND-IF.KEYWORDS.4 FIND-IF.ALLOW-OTHER-KEYS.5 FIND-IF.ERROR.1 + FIND-IF.ERROR.2 FIND-IF.ERROR.3 FIND-IF.ERROR.4 FIND-IF.ERROR.5 + FIND-IF.ERROR.6 FIND-IF.ERROR.7 FIND-IF.ERROR.8 FIND-IF.ERROR.9 + FIND-IF.ERROR.10 FIND-IF.ERROR.11 FIND-IF.ERROR.12 FIND-IF.ERROR.13 + FIND-IF.ERROR.14 FIND-IF.ERROR.15 FIND-IF.ORDER.1 FIND-IF.ORDER.2 + FIND-IF.ORDER.3 FIND-IF-NOT-LIST.1 FIND-IF-NOT-LIST.2 + FIND-IF-NOT-LIST.2A FIND-IF-NOT-LIST.3 FIND-IF-NOT-LIST.4 + FIND-IF-NOT-LIST.5 FIND-IF-NOT-LIST.6 FIND-IF-NOT-LIST.7 + FIND-IF-NOT-LIST.8 FIND-IF-NOT-LIST.9 FIND-IF-NOT-LIST.10 + FIND-IF-NOT-LIST.11 FIND-IF-NOT-LIST.12 FIND-IF-NOT-LIST.13 + FIND-IF-NOT-LIST.14 FIND-IF-NOT-LIST.15 FIND-IF-NOT-LIST.16 + FIND-IF-NOT-LIST.17 FIND-IF-NOT-LIST.18 FIND-IF-NOT-VECTOR.1 + FIND-IF-NOT-VECTOR.2 FIND-IF-NOT-VECTOR.2A FIND-IF-NOT-VECTOR.3 + FIND-IF-NOT-VECTOR.4 FIND-IF-NOT-VECTOR.5 FIND-IF-NOT-VECTOR.6 + FIND-IF-NOT-VECTOR.7 FIND-IF-NOT-VECTOR.8 FIND-IF-NOT-VECTOR.9 + FIND-IF-NOT-VECTOR.10 FIND-IF-NOT-VECTOR.11 FIND-IF-NOT-VECTOR.12 + FIND-IF-NOT-VECTOR.13 FIND-IF-NOT-VECTOR.14 FIND-IF-NOT-VECTOR.15 + FIND-IF-NOT-VECTOR.16 FIND-IF-NOT-VECTOR.17 FIND-IF-NOT-VECTOR.18 + FIND-IF-NOT-BIT-VECTOR.1 FIND-IF-NOT-BIT-VECTOR.2 + FIND-IF-NOT-BIT-VECTOR.3 FIND-IF-NOT-BIT-VECTOR.4 + FIND-IF-NOT-BIT-VECTOR.5 FIND-IF-NOT-BIT-VECTOR.6 + FIND-IF-NOT-BIT-VECTOR.7 FIND-IF-NOT-STRING.1 FIND-IF-NOT-STRING.2 + FIND-IF-NOT-STRING.2A FIND-IF-NOT-STRING.3 FIND-IF-NOT-STRING.3A + FIND-IF-NOT-STRING.4 FIND-IF-NOT-STRING.5 FIND-IF-NOT-STRING.6 + FIND-IF-NOT-STRING.7 FIND-IF-NOT-STRING.8 FIND-IF-NOT-STRING.9 + FIND-IF-NOT-STRING.10 FIND-IF-NOT-STRING.11 FIND-IF-NOT-STRING.12 + FIND-IF-NOT-STRING.13 FIND-IF-NOT-STRING.14 FIND-IF-NOT-STRING.15 + FIND-IF-NOT-STRING.16 FIND-IF-NOT-STRING.17 FIND-IF-NOT-STRING.18 + FIND-IF-NOT.ALLOW-OTHER-KEYS.1 FIND-IF-NOT.ALLOW-OTHER-KEYS.2 + FIND-IF-NOT.ALLOW-OTHER-KEYS.3 FIND-IF-NOT.KEYWORDS.4 + FIND-IF-NOT.ALLOW-OTHER-KEYS.5 FIND-IF-NOT.ERROR.1 FIND-IF-NOT.ERROR.2 + FIND-IF-NOT.ERROR.3 FIND-IF-NOT.ERROR.4 FIND-IF-NOT.ERROR.5 + FIND-IF-NOT.ERROR.6 FIND-IF-NOT.ERROR.7 FIND-IF-NOT.ERROR.8 + FIND-IF-NOT.ERROR.9 FIND-IF-NOT.ERROR.10 FIND-IF-NOT.ERROR.11 + FIND-IF-NOT.ERROR.12 FIND-IF-NOT.ERROR.13 FIND-IF-NOT.ERROR.14 + FIND-IF-NOT.ERROR.15 FIND-IF-NOT.ORDER.1 FIND-IF-NOT.ORDER.2 + FIND-IF-NOT.ORDER.3 POSITION-LIST.1 POSITION-LIST.2 POSITION-LIST.3 + POSITION-LIST.4 POSITION-LIST.5 POSITION-LIST.6 POSITION-LIST.7 + POSITION-LIST.8 POSITION-LIST.9 POSITION-LIST.10 POSITION-LIST.11 + POSITION-LIST.12 POSITION-LIST.13 POSITION-LIST.14 POSITION-LIST.15 + POSITION-LIST.16 POSITION-LIST.17 POSITION-LIST.18 POSITION-LIST.19 + POSITION-LIST.20 POSITION-LIST.21 POSITION-LIST.22 POSITION-LIST.23 + POSITION-LIST.24 POSITION-LIST.25 POSITION-LIST.26 POSITION-LIST.27 + POSITION-LIST.28 POSITION-VECTOR.1 POSITION-VECTOR.2 POSITION-VECTOR.3 + POSITION-VECTOR.4 POSITION-VECTOR.5 POSITION-VECTOR.6 + POSITION-VECTOR.7 POSITION-VECTOR.8 POSITION-VECTOR.9 + POSITION-VECTOR.10 POSITION-VECTOR.11 POSITION-VECTOR.12 + POSITION-VECTOR.13 POSITION-VECTOR.14 POSITION-VECTOR.15 + POSITION-VECTOR.16 POSITION-VECTOR.17 POSITION-VECTOR.18 + POSITION-VECTOR.19 POSITION-VECTOR.20 POSITION-VECTOR.21 + POSITION-VECTOR.22 POSITION-VECTOR.23 POSITION-VECTOR.24 + POSITION-VECTOR.25 POSITION-VECTOR.26 POSITION-VECTOR.27 + POSITION-VECTOR.28 POSITION-VECTOR.29 POSITION-VECTOR.30 + POSITION-VECTOR.31 POSITION-BIT-VECTOR.1 POSITION-BIT-VECTOR.2 + POSITION-BIT-VECTOR.3 POSITION-BIT-VECTOR.4 POSITION-BIT-VECTOR.5 + POSITION-BIT-VECTOR.6 POSITION-BIT-VECTOR.7 POSITION-BIT-VECTOR.8 + POSITION-BIT-VECTOR.9 POSITION-BIT-VECTOR.10 POSITION-BIT-VECTOR.11 + POSITION-BIT-VECTOR.12 POSITION-BIT-VECTOR.13 POSITION-BIT-VECTOR.14 + POSITION-BIT-VECTOR.15 POSITION-BIT-VECTOR.16 POSITION-BIT-VECTOR.17 + POSITION-BIT-VECTOR.18 POSITION-BIT-VECTOR.19 POSITION-BIT-VECTOR.20 + POSITION-BIT-VECTOR.21 POSITION-BIT-VECTOR.22 POSITION-BIT-VECTOR.23 + POSITION-BIT-VECTOR.24 POSITION-BIT-VECTOR.25 POSITION-BIT-VECTOR.27 + POSITION-BIT-VECTOR.28 POSITION-BIT-VECTOR.29 POSITION-BIT-VECTOR.30 + POSITION-BIT-VECTOR.31 POSITION-BIT-VECTOR.32 POSITION-STRING.1 + POSITION-STRING.2 POSITION-STRING.3 POSITION-STRING.4 + POSITION-STRING.5 POSITION-STRING.6 POSITION-STRING.7 + POSITION-STRING.8 POSITION-STRING.9 POSITION-STRING.10 + POSITION-STRING.11 POSITION-STRING.13 POSITION-STRING.14 + POSITION-STRING.15 POSITION-STRING.16 POSITION-STRING.17 + POSITION-STRING.18 POSITION-STRING.19 POSITION-STRING.20 + POSITION-STRING.21 POSITION-STRING.22 POSITION-STRING.23 + POSITION-STRING.24 POSITION-STRING.25 POSITION-STRING.26 + POSITION-STRING.27 POSITION-STRING.28 POSITION.ORDER.1 + POSITION.ORDER.2 POSITION.ALLOW-OTHER-KEYS.1 + POSITION.ALLOW-OTHER-KEYS.2 POSITION.ALLOW-OTHER-KEYS.3 + POSITION.ALLOW-OTHER-KEYS.4 POSITION.ALLOW-OTHER-KEYS.5 + POSITION.KEYWORDS.6 POSITION.ALLOW-OTHER-KEYS.7 + POSITION.ALLOW-OTHER-KEYS.8 POSITION.ALLOW-OTHER-KEYS.9 + POSITION.ERROR.1 POSITION.ERROR.2 POSITION.ERROR.3 POSITION.ERROR.4 + POSITION.ERROR.5 POSITION.ERROR.6 POSITION.ERROR.7 POSITION.ERROR.8 + POSITION.ERROR.9 POSITION.ERROR.10 POSITION.ERROR.11 POSITION.ERROR.12 + POSITION.ERROR.13 POSITION.ERROR.14 POSITION.ERROR.15 SEARCH-LIST.1 + SEARCH-LIST.2 SEARCH-LIST.3 SEARCH-LIST.4 SEARCH-LIST.5 SEARCH-LIST.6 + SEARCH-LIST.7 SEARCH-LIST.8 SEARCH-LIST.9 SEARCH-LIST.10 + SEARCH-LIST.11 SEARCH-LIST.12 SEARCH-LIST.13 SEARCH-LIST.14 + SEARCH.ALLOW-OTHER-KEYS.1 SEARCH.ALLOW-OTHER-KEYS.2 + SEARCH.ALLOW-OTHER-KEYS.3 SEARCH.ALLOW-OTHER-KEYS.4 + SEARCH.ALLOW-OTHER-KEYS.5 SEARCH.ALLOW-OTHER-KEYS.6 + SEARCH.ALLOW-OTHER-KEYS.7 SEARCH.KEYWORDS.8 SEARCH.ERROR.1 + SEARCH.ERROR.2 SEARCH.ERROR.3 SEARCH.ERROR.4 SEARCH.ERROR.5 + SEARCH.ERROR.6 SEARCH.ERROR.7 SEARCH.ERROR.8 SEARCH.ERROR.9 + SEARCH.ERROR.10 SEARCH.ORDER.1 SEARCH.ORDER.2 SEARCH-VECTOR.1 + SEARCH-VECTOR.2 SEARCH-VECTOR.3 SEARCH-VECTOR.4 SEARCH-VECTOR.5 + SEARCH-VECTOR.6 SEARCH-VECTOR.7 SEARCH-VECTOR.8 SEARCH-VECTOR.9 + SEARCH-VECTOR.10 SEARCH-VECTOR.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 + 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 MISMATCH-LIST.3 MISMATCH-LIST.4 MISMATCH-LIST.5 MISMATCH-LIST.6 @@ -23058,26 +23114,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 - SEARCH-LIST.11 SEARCH-LIST.12 SEARCH-LIST.13 SEARCH-LIST.14 - SEARCH.ALLOW-OTHER-KEYS.1 SEARCH.ALLOW-OTHER-KEYS.2 - SEARCH.ALLOW-OTHER-KEYS.3 SEARCH.ALLOW-OTHER-KEYS.4 - SEARCH.ALLOW-OTHER-KEYS.5 SEARCH.ALLOW-OTHER-KEYS.6 - SEARCH.ALLOW-OTHER-KEYS.7 SEARCH.KEYWORDS.8 SEARCH.ERROR.1 - SEARCH.ERROR.2 SEARCH.ERROR.3 SEARCH.ERROR.4 SEARCH.ERROR.5 - SEARCH.ERROR.6 SEARCH.ERROR.7 SEARCH.ERROR.8 SEARCH.ERROR.9 - SEARCH.ERROR.10 SEARCH.ORDER.1 SEARCH.ORDER.2 SEARCH-VECTOR.1 - SEARCH-VECTOR.2 SEARCH-VECTOR.3 SEARCH-VECTOR.4 SEARCH-VECTOR.5 - SEARCH-VECTOR.6 SEARCH-VECTOR.7 SEARCH-VECTOR.8 SEARCH-VECTOR.9 - SEARCH-VECTOR.10 SEARCH-VECTOR.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 - SEARCH-STRING.6 SEARCH-STRING.7 SEARCH-STRING.8 SEARCH-STRING.9 - SEARCH-STRING.10 SEARCH-STRING.11 SEARCH-STRING.13 SEARCH-STRING.14 + REMOVE-RANDOM REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM DELETE-RANDOM SEARCH-STRING.14 SEARCH-STRING.15 SEARCH-STRING.16 MISMATCH-LIST.1 MISMATCH-LIST.2 MISMATCH-LIST.3 MISMATCH-LIST.4 MISMATCH-LIST.5 MISMATCH-LIST.6 MISMATCH-LIST.7 MISMATCH-LIST.8 MISMATCH-LIST.9 MISMATCH-LIST.10 @@ -23615,22 +23652,6 @@ 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-RANDOM REMOVE-IF-RANDOM REMOVE-IF-NOT-RANDOM DELETE-RANDOM - DELETE-IF-RANDOM DELETE-IF-NOT-RANDOM REMOVE-IF-LIST.1 - REMOVE-IF-LIST.2 REMOVE-IF-NOT-LIST.1 REMOVE-IF-NOT-LIST.2 - DELETE-IF-LIST.1 DELETE-IF-LIST.2 DELETE-IF-NOT-LIST.1 - DELETE-IF-NOT-LIST.2 DELETE-LIST.1 DELETE-LIST.2 - REMOVE.ALLOW-OTHER-KEYS.1 REMOVE.ALLOW-OTHER-KEYS.2 - REMOVE.ALLOW-OTHER-KEYS.3 REMOVE.ALLOW-OTHER-KEYS.4 - REMOVE.ALLOW-OTHER-KEYS.5 REMOVE.ALLOW-OTHER-KEYS.6 REMOVE.KEYWORDS.7 - DELETE.ALLOW-OTHER-KEYS.1 DELETE.ALLOW-OTHER-KEYS.2 - DELETE.ALLOW-OTHER-KEYS.3 DELETE.ALLOW-OTHER-KEYS.4 - DELETE.ALLOW-OTHER-KEYS.5 DELETE.ALLOW-OTHER-KEYS.6 DELETE.KEYWORDS.7 - REMOVE.ERROR.1 REMOVE.ERROR.2 REMOVE.ERROR.3 REMOVE.ERROR.4 - 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 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 @@ -24101,1159 +24122,22 @@ STRUCT-TEST-21/4 STRUCT-TEST-21/5 STRUCT-TEST-21/ERROR.3 STRUCT-TEST-21/ERROR.4 STRUCT-TEST-21/6 STRUCT-TEST-21/7 STRUCT-TEST-21/8 STRUCT-TEST-21/ERROR.5 STRUCT-TEST-21/ERROR.6 - STRUCT-TEST-21/9 STRUCT-TEST-21/11 STRUCT-TEST-21/13 STRUCT-TEST-21/14 - STRUCT-TEST-21/15 -Test STRUCT-TEST-21/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-21)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-21 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-21/17 STRUCT-TEST-21/15A STRUCT-TEST-21/15B - STRUCT-TEST-21/20 STRUCT-TEST-22/1 STRUCT-TEST-22/2 - STRUCT-TEST-22/ERROR.1 STRUCT-TEST-22/ERROR.2 STRUCT-TEST-22/3 - STRUCT-TEST-22/4 STRUCT-TEST-22/5 STRUCT-TEST-22/ERROR.3 - STRUCT-TEST-22/ERROR.4 STRUCT-TEST-22/6 STRUCT-TEST-22/7 - STRUCT-TEST-22/8 STRUCT-TEST-22/ERROR.5 STRUCT-TEST-22/ERROR.6 - STRUCT-TEST-22/9 STRUCT-TEST-22/13 STRUCT-TEST-22/14 STRUCT-TEST-22/15 -Test STRUCT-TEST-22/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-22)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-22 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-22/17 STRUCT-TEST-22/15A STRUCT-TEST-22/15B - STRUCT-TEST-22/20 STRUCT-TEST-23/1 STRUCT-TEST-23/2 - STRUCT-TEST-23/ERROR.1 STRUCT-TEST-23/ERROR.2 STRUCT-TEST-23/3 - STRUCT-TEST-23/4 STRUCT-TEST-23/5 STRUCT-TEST-23/ERROR.3 - STRUCT-TEST-23/ERROR.4 STRUCT-TEST-23/6 STRUCT-TEST-23/7 - STRUCT-TEST-23/8 STRUCT-TEST-23/ERROR.5 STRUCT-TEST-23/ERROR.6 - STRUCT-TEST-23/9 STRUCT-TEST-23/13 STRUCT-TEST-23/14 STRUCT-TEST-23/15 -Test STRUCT-TEST-23/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-23)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-23 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-23/17 STRUCT-TEST-23/15A STRUCT-TEST-23/15B - STRUCT-TEST-23/20 STRUCT-TEST-24/1 STRUCT-TEST-24/2 - STRUCT-TEST-24/ERROR.1 STRUCT-TEST-24/ERROR.2 STRUCT-TEST-24/3 - STRUCT-TEST-24/4 STRUCT-TEST-24/5 STRUCT-TEST-24/ERROR.3 - STRUCT-TEST-24/ERROR.4 STRUCT-TEST-24/6 STRUCT-TEST-24/7 - STRUCT-TEST-24/8 STRUCT-TEST-24/ERROR.5 STRUCT-TEST-24/ERROR.6 - STRUCT-TEST-24/9 STRUCT-TEST-24/13 STRUCT-TEST-24/14 STRUCT-TEST-24/15 -Test STRUCT-TEST-24/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-24)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-24 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-24/17 STRUCT-TEST-24/15A STRUCT-TEST-24/15B - STRUCT-TEST-24/20 STRUCT-TEST-25/1 STRUCT-TEST-25/2 - STRUCT-TEST-25/ERROR.1 STRUCT-TEST-25/ERROR.2 STRUCT-TEST-25/3 - STRUCT-TEST-25/4 STRUCT-TEST-25/5 STRUCT-TEST-25/ERROR.3 - STRUCT-TEST-25/ERROR.4 STRUCT-TEST-25/6 STRUCT-TEST-25/7 - STRUCT-TEST-25/8 STRUCT-TEST-25/ERROR.5 STRUCT-TEST-25/ERROR.6 - STRUCT-TEST-25/9 STRUCT-TEST-25/13 STRUCT-TEST-25/14 STRUCT-TEST-25/15 -Test STRUCT-TEST-25/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-25)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-25 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-25/17 STRUCT-TEST-25/15A STRUCT-TEST-25/15B - STRUCT-TEST-25/20 STRUCT-TEST-26/1 STRUCT-TEST-26/2 - STRUCT-TEST-26/ERROR.1 STRUCT-TEST-26/ERROR.2 STRUCT-TEST-26/3 - STRUCT-TEST-26/4 STRUCT-TEST-26/5 STRUCT-TEST-26/ERROR.3 - STRUCT-TEST-26/ERROR.4 STRUCT-TEST-26/6 STRUCT-TEST-26/7 - STRUCT-TEST-26/8 STRUCT-TEST-26/ERROR.5 STRUCT-TEST-26/ERROR.6 - STRUCT-TEST-26/9 STRUCT-TEST-26/13 STRUCT-TEST-26/14 STRUCT-TEST-26/15 -Test STRUCT-TEST-26/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-26)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-26 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-26/17 STRUCT-TEST-26/15A STRUCT-TEST-26/15B - STRUCT-TEST-26/20 STRUCT-TEST-27/1 STRUCT-TEST-27/2 - STRUCT-TEST-27/ERROR.1 STRUCT-TEST-27/ERROR.2 STRUCT-TEST-27/3 - STRUCT-TEST-27/4 STRUCT-TEST-27/5 STRUCT-TEST-27/ERROR.3 - STRUCT-TEST-27/ERROR.4 STRUCT-TEST-27/6 STRUCT-TEST-27/7 - STRUCT-TEST-27/8 STRUCT-TEST-27/ERROR.5 STRUCT-TEST-27/ERROR.6 - STRUCT-TEST-27/9 -Test STRUCT-TEST-27/12 failed -Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-27-A27))) - (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-27-B27))) T) -Expected value: T -Actual value: #. - STRUCT-TEST-27/13 STRUCT-TEST-27/14 STRUCT-TEST-27/15 -Test STRUCT-TEST-27/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-27)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-27 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-27/17 STRUCT-TEST-27/15A STRUCT-TEST-27/15B - STRUCT-TEST-27/20 STRUCT-TEST-28/1 STRUCT-TEST-28/2 - STRUCT-TEST-28/ERROR.1 STRUCT-TEST-28/ERROR.2 STRUCT-TEST-28/3 - STRUCT-TEST-28/4 STRUCT-TEST-28/5 STRUCT-TEST-28/ERROR.3 - STRUCT-TEST-28/ERROR.4 STRUCT-TEST-28/6 STRUCT-TEST-28/7 - STRUCT-TEST-28/8 STRUCT-TEST-28/ERROR.5 STRUCT-TEST-28/ERROR.6 - STRUCT-TEST-28/9 -Test STRUCT-TEST-28/12 failed -Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-28-A28))) - (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-28-B28))) T) -Expected value: T -Actual value: #. - STRUCT-TEST-28/13 STRUCT-TEST-28/14 STRUCT-TEST-28/15 -Test STRUCT-TEST-28/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-28)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-28 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-28/17 STRUCT-TEST-28/15A STRUCT-TEST-28/15B - STRUCT-TEST-28/20 STRUCT-TEST-29/1 STRUCT-TEST-29/2 - STRUCT-TEST-29/ERROR.1 STRUCT-TEST-29/ERROR.2 STRUCT-TEST-29/3 - STRUCT-TEST-29/4 STRUCT-TEST-29/5 STRUCT-TEST-29/ERROR.3 - STRUCT-TEST-29/ERROR.4 STRUCT-TEST-29/6 STRUCT-TEST-29/7 - STRUCT-TEST-29/8 STRUCT-TEST-29/ERROR.5 STRUCT-TEST-29/ERROR.6 - STRUCT-TEST-29/9 -Test STRUCT-TEST-29/12 failed -Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-29-B29))) T) -Expected value: T -Actual value: #. - STRUCT-TEST-29/13 STRUCT-TEST-29/14 STRUCT-TEST-29/15 -Test STRUCT-TEST-29/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-29)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-29 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-29/17 STRUCT-TEST-29/15A STRUCT-TEST-29/15B - STRUCT-TEST-29/20 STRUCT-TEST-30/1 STRUCT-TEST-30/2 - STRUCT-TEST-30/ERROR.1 STRUCT-TEST-30/ERROR.2 STRUCT-TEST-30/3 - STRUCT-TEST-30/4 STRUCT-TEST-30/5 STRUCT-TEST-30/ERROR.3 - STRUCT-TEST-30/ERROR.4 STRUCT-TEST-30/6 STRUCT-TEST-30/7 - STRUCT-TEST-30/8 STRUCT-TEST-30/ERROR.5 STRUCT-TEST-30/ERROR.6 - STRUCT-TEST-30/9 STRUCT-TEST-30/13 STRUCT-TEST-30/14 STRUCT-TEST-30/15 -Test STRUCT-TEST-30/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-30)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-30 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-30/17 STRUCT-TEST-30/15A STRUCT-TEST-30/15B - STRUCT-TEST-30/20 STRUCT-TEST-31/1 STRUCT-TEST-31/2 - STRUCT-TEST-31/ERROR.1 STRUCT-TEST-31/ERROR.2 STRUCT-TEST-31/3 - STRUCT-TEST-31/4 STRUCT-TEST-31/5 STRUCT-TEST-31/ERROR.3 - STRUCT-TEST-31/ERROR.4 STRUCT-TEST-31/6 STRUCT-TEST-31/7 - STRUCT-TEST-31/8 STRUCT-TEST-31/ERROR.5 STRUCT-TEST-31/ERROR.6 - STRUCT-TEST-31/9 -Test STRUCT-TEST-31/13 failed -Form: (NOTNOT-MV - (TYPEP (MAKE-STRUCT-TEST-31) (FIND-CLASS '#:STRUCT-TEST-31))) -Expected value: T -Actual value: #. -Test STRUCT-TEST-31/14 failed -Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) - (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) -Expected value: T -Actual value: #. - STRUCT-TEST-31/15 -Test STRUCT-TEST-31/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE '#:STRUCT-TEST-31)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* '#:STRUCT-TEST-31 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). -Test STRUCT-TEST-31/17 failed -Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) - (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) - '(NIL T))) - COLLECT - TYPE)) -Expected value: NIL -Actual value: #. -Test STRUCT-TEST-31/15A failed -Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) - (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) -Expected values: T - T -Actual value: #. - STRUCT-TEST-31/15B STRUCT-TEST-31/20 STRUCT-TEST-32/1 STRUCT-TEST-32/2 - STRUCT-TEST-32/ERROR.1 STRUCT-TEST-32/ERROR.2 STRUCT-TEST-32/3 - STRUCT-TEST-32/4 STRUCT-TEST-32/5 STRUCT-TEST-32/ERROR.3 - STRUCT-TEST-32/ERROR.4 STRUCT-TEST-32/6 STRUCT-TEST-32/7 - STRUCT-TEST-32/8 STRUCT-TEST-32/ERROR.5 STRUCT-TEST-32/ERROR.6 - STRUCT-TEST-32/9 STRUCT-TEST-32/13 STRUCT-TEST-32/14 STRUCT-TEST-32/15 -Test STRUCT-TEST-32/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-32)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-32 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-32/17 STRUCT-TEST-32/15A STRUCT-TEST-32/15B - STRUCT-TEST-32/20 STRUCT-TEST-33/1 STRUCT-TEST-33/2 - STRUCT-TEST-33/ERROR.1 STRUCT-TEST-33/ERROR.2 STRUCT-TEST-33/3 - STRUCT-TEST-33/4 STRUCT-TEST-33/5 STRUCT-TEST-33/ERROR.3 - STRUCT-TEST-33/ERROR.4 STRUCT-TEST-33/6 STRUCT-TEST-33/7 - STRUCT-TEST-33/8 STRUCT-TEST-33/ERROR.5 STRUCT-TEST-33/ERROR.6 - STRUCT-TEST-33/9 STRUCT-TEST-33/13 STRUCT-TEST-33/14 STRUCT-TEST-33/15 -Test STRUCT-TEST-33/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-33)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-33 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-33/17 STRUCT-TEST-33/15A STRUCT-TEST-33/15B - STRUCT-TEST-33/20 STRUCT-TEST-34/1 STRUCT-TEST-34/2 - STRUCT-TEST-34/ERROR.1 STRUCT-TEST-34/ERROR.2 STRUCT-TEST-34/3 - STRUCT-TEST-34/4 STRUCT-TEST-34/5 STRUCT-TEST-34/ERROR.3 - STRUCT-TEST-34/ERROR.4 STRUCT-TEST-34/6 STRUCT-TEST-34/7 - STRUCT-TEST-34/8 STRUCT-TEST-34/ERROR.5 STRUCT-TEST-34/ERROR.6 - STRUCT-TEST-34/9 STRUCT-TEST-34/13 STRUCT-TEST-34/14 STRUCT-TEST-34/15 -Test STRUCT-TEST-34/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-34)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-34 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-34/17 STRUCT-TEST-34/15A STRUCT-TEST-34/15B - STRUCT-TEST-34/20 STRUCT-TEST-35/1 STRUCT-TEST-35/2 - STRUCT-TEST-35/ERROR.1 STRUCT-TEST-35/ERROR.2 STRUCT-TEST-35/3 - STRUCT-TEST-35/4 STRUCT-TEST-35/5 STRUCT-TEST-35/ERROR.3 - STRUCT-TEST-35/ERROR.4 STRUCT-TEST-35/6 STRUCT-TEST-35/7 - STRUCT-TEST-35/8 STRUCT-TEST-35/ERROR.5 STRUCT-TEST-35/ERROR.6 - STRUCT-TEST-35/9 STRUCT-TEST-35/13 STRUCT-TEST-35/14 STRUCT-TEST-35/15 -Test STRUCT-TEST-35/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-35)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-35 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-35/17 STRUCT-TEST-35/15A STRUCT-TEST-35/15B - STRUCT-TEST-35/20 STRUCT-TEST-36/1 STRUCT-TEST-36/2 - STRUCT-TEST-36/ERROR.1 STRUCT-TEST-36/ERROR.2 STRUCT-TEST-36/3 - STRUCT-TEST-36/4 STRUCT-TEST-36/5 STRUCT-TEST-36/ERROR.3 - STRUCT-TEST-36/ERROR.4 STRUCT-TEST-36/6 STRUCT-TEST-36/7 - STRUCT-TEST-36/8 STRUCT-TEST-36/ERROR.5 STRUCT-TEST-36/ERROR.6 - STRUCT-TEST-36/9 STRUCT-TEST-36/13 STRUCT-TEST-36/14 STRUCT-TEST-36/15 -Test STRUCT-TEST-36/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-36)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-36 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-36/17 STRUCT-TEST-36/15A STRUCT-TEST-36/15B - STRUCT-TEST-36/20 STRUCT-TEST-37/1 STRUCT-TEST-37/5 - STRUCT-TEST-37/ERROR.3 STRUCT-TEST-37/ERROR.4 STRUCT-TEST-37/6 - STRUCT-TEST-37/7 STRUCT-TEST-37/8 STRUCT-TEST-37/ERROR.5 - STRUCT-TEST-37/ERROR.6 STRUCT-TEST-37/9 STRUCT-TEST-37/10 - STRUCTURE-37-1 STRUCT-TEST-38/1 STRUCT-TEST-38/2 - STRUCT-TEST-38/ERROR.1 STRUCT-TEST-38/ERROR.2 STRUCT-TEST-38/3 - STRUCT-TEST-38/5 STRUCT-TEST-38/ERROR.3 STRUCT-TEST-38/ERROR.4 - STRUCT-TEST-38/6 STRUCT-TEST-38/7 STRUCT-TEST-38/8 - STRUCT-TEST-38/ERROR.5 STRUCT-TEST-38/ERROR.6 STRUCT-TEST-38/9 - STRUCTURE-38-1 STRUCT-TEST-39/1 STRUCT-TEST-39/5 - STRUCT-TEST-39/ERROR.3 STRUCT-TEST-39/ERROR.4 STRUCT-TEST-39/6 - STRUCT-TEST-39/7 STRUCT-TEST-39/8 STRUCT-TEST-39/ERROR.5 - STRUCT-TEST-39/ERROR.6 STRUCT-TEST-39/9 STRUCT-TEST-39/10 - STRUCTURE-39-1 STRUCT-TEST-40/1 STRUCT-TEST-40/5 - STRUCT-TEST-40/ERROR.3 STRUCT-TEST-40/ERROR.4 STRUCT-TEST-40/6 - STRUCT-TEST-40/7 STRUCT-TEST-40/8 STRUCT-TEST-40/ERROR.5 - STRUCT-TEST-40/ERROR.6 STRUCT-TEST-40/9 STRUCT-TEST-40/10 - STRUCT-TEST-41/1 STRUCT-TEST-41/2 STRUCT-TEST-41/ERROR.1 - STRUCT-TEST-41/ERROR.2 -Test STRUCT-TEST-41/3 failed -Form: (COUNT-IF #'STRUCT-TEST-41-P *UNIVERSE*) -Expected value: 0 -Actual value: #. - STRUCT-TEST-41/5 STRUCT-TEST-41/ERROR.3 STRUCT-TEST-41/ERROR.4 - STRUCT-TEST-41/6 STRUCT-TEST-41/7 STRUCT-TEST-41/8 - STRUCT-TEST-41/ERROR.5 STRUCT-TEST-41/ERROR.6 STRUCT-TEST-41/9 - STRUCT-TEST-42/1 STRUCT-TEST-42/5 STRUCT-TEST-42/ERROR.3 - STRUCT-TEST-42/ERROR.4 STRUCT-TEST-42/6 STRUCT-TEST-42/7 - STRUCT-TEST-42/8 STRUCT-TEST-42/ERROR.5 STRUCT-TEST-42/ERROR.6 - STRUCT-TEST-42/9 STRUCT-TEST-42/10 STRUCT-TEST-43/1 STRUCT-TEST-43/2 - STRUCT-TEST-43/ERROR.1 STRUCT-TEST-43/ERROR.2 -Test STRUCT-TEST-43/3 failed -Form: (COUNT-IF #'STRUCT-TEST-43-P *UNIVERSE*) -Expected value: 0 -Actual value: #. - STRUCT-TEST-43/5 STRUCT-TEST-43/ERROR.3 STRUCT-TEST-43/ERROR.4 - STRUCT-TEST-43/6 STRUCT-TEST-43/7 STRUCT-TEST-43/8 - STRUCT-TEST-43/ERROR.5 STRUCT-TEST-43/ERROR.6 STRUCT-TEST-43/9 - STRUCT-TEST-44/1 STRUCT-TEST-44/5 STRUCT-TEST-44/ERROR.3 - STRUCT-TEST-44/ERROR.4 STRUCT-TEST-44/6 STRUCT-TEST-44/7 - STRUCT-TEST-44/8 STRUCT-TEST-44/ERROR.5 STRUCT-TEST-44/ERROR.6 - STRUCT-TEST-44/9 STRUCT-TEST-44/10 STRUCTS-ARE-DISJOINT - STRUCT-TEST-45/1 STRUCT-TEST-45/5 STRUCT-TEST-45/ERROR.3 - STRUCT-TEST-45/ERROR.4 STRUCT-TEST-45/6 STRUCT-TEST-45/7 - STRUCT-TEST-45/8 STRUCT-TEST-45/ERROR.5 STRUCT-TEST-45/ERROR.6 - STRUCT-TEST-45/9 STRUCT-TEST-45/10 STRUCTURE-45-1 STRUCT-TEST-46/1 - STRUCT-TEST-46/5 STRUCT-TEST-46/ERROR.3 STRUCT-TEST-46/ERROR.4 - STRUCT-TEST-46/6 STRUCT-TEST-46/7 STRUCT-TEST-46/8 - STRUCT-TEST-46/ERROR.5 STRUCT-TEST-46/ERROR.6 STRUCT-TEST-46/9 - STRUCT-TEST-46/10 STRUCTURE-46-1 STRUCT-TEST-47/1 STRUCT-TEST-47/5 - STRUCT-TEST-47/ERROR.3 STRUCT-TEST-47/ERROR.4 STRUCT-TEST-47/6 - STRUCT-TEST-47/7 STRUCT-TEST-47/8 STRUCT-TEST-47/ERROR.5 - STRUCT-TEST-47/ERROR.6 STRUCT-TEST-47/9 STRUCT-TEST-47/10 - STRUCTURE-47-1 STRUCT-TEST-48/1 STRUCT-TEST-48/5 - STRUCT-TEST-48/ERROR.3 STRUCT-TEST-48/ERROR.4 STRUCT-TEST-48/6 - STRUCT-TEST-48/7 STRUCT-TEST-48/8 STRUCT-TEST-48/ERROR.5 - STRUCT-TEST-48/ERROR.6 STRUCT-TEST-48/9 STRUCT-TEST-48/10 - STRUCTURE-48-1 -Test STRUCT-TEST-49/1 failed -Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-49) - (FUNCTIONP #'MAKE-STRUCT-TEST-49) - (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-49) - (TYPEP (MAKE-STRUCT-TEST-49) '(VECTOR BIT)) T) -Expected value: T -Actual value: NIL. - STRUCT-TEST-49/5 STRUCT-TEST-49/ERROR.3 STRUCT-TEST-49/ERROR.4 - STRUCT-TEST-49/6 STRUCT-TEST-49/7 STRUCT-TEST-49/8 - STRUCT-TEST-49/ERROR.5 STRUCT-TEST-49/ERROR.6 STRUCT-TEST-49/9 - STRUCT-TEST-49/10 -Test STRUCT-TEST-50/1 failed -Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-50) - (FUNCTIONP #'MAKE-STRUCT-TEST-50) - (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-50) - (TYPEP (MAKE-STRUCT-TEST-50) '(VECTOR CHARACTER)) T) -Expected value: T -Actual value: NIL. - STRUCT-TEST-50/5 STRUCT-TEST-50/ERROR.3 STRUCT-TEST-50/ERROR.4 - STRUCT-TEST-50/6 STRUCT-TEST-50/7 STRUCT-TEST-50/8 - STRUCT-TEST-50/ERROR.5 STRUCT-TEST-50/ERROR.6 STRUCT-TEST-50/9 - STRUCT-TEST-50/10 -Test STRUCT-TEST-51/1 failed -Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-51) - (FUNCTIONP #'MAKE-STRUCT-TEST-51) - (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-51) - (TYPEP (MAKE-STRUCT-TEST-51) '(VECTOR (INTEGER 0 255))) T) -Expected value: T -Actual value: NIL. - STRUCT-TEST-51/5 STRUCT-TEST-51/ERROR.3 STRUCT-TEST-51/ERROR.4 - STRUCT-TEST-51/6 STRUCT-TEST-51/7 STRUCT-TEST-51/8 - STRUCT-TEST-51/ERROR.5 STRUCT-TEST-51/ERROR.6 STRUCT-TEST-51/9 - STRUCT-TEST-51/10 STRUCT-TEST-52/1 STRUCT-TEST-52/5 - STRUCT-TEST-52/ERROR.3 STRUCT-TEST-52/ERROR.4 STRUCT-TEST-52/6 - STRUCT-TEST-52/7 STRUCT-TEST-52/8 STRUCT-TEST-52/ERROR.5 - STRUCT-TEST-52/ERROR.6 STRUCT-TEST-52/9 STRUCT-TEST-52/10 - STRUCT-TEST-53/1 STRUCT-TEST-53/5 STRUCT-TEST-53/ERROR.3 - STRUCT-TEST-53/ERROR.4 STRUCT-TEST-53/6 STRUCT-TEST-53/7 - STRUCT-TEST-53/8 STRUCT-TEST-53/ERROR.5 STRUCT-TEST-53/ERROR.6 - STRUCT-TEST-53/9 STRUCT-TEST-53/10 STRUCT-TEST-53/18 STRUCTURE-53-1 - STRUCT-TEST-54/1 STRUCT-TEST-54/5 STRUCT-TEST-54/ERROR.3 - STRUCT-TEST-54/ERROR.4 STRUCT-TEST-54/6 STRUCT-TEST-54/7 - STRUCT-TEST-54/8 STRUCT-TEST-54/ERROR.5 STRUCT-TEST-54/ERROR.6 - STRUCT-TEST-54/9 STRUCT-TEST-54/10 STRUCT-TEST-54/18 STRUCTURE-54-1 - STRUCT-TEST-55/1 STRUCT-TEST-55/2 STRUCT-TEST-55/ERROR.1 - STRUCT-TEST-55/ERROR.2 STRUCT-TEST-55/3 STRUCT-TEST-55/5 - STRUCT-TEST-55/ERROR.3 STRUCT-TEST-55/ERROR.4 STRUCT-TEST-55/6 - STRUCT-TEST-55/7 STRUCT-TEST-55/8 STRUCT-TEST-55/ERROR.5 - STRUCT-TEST-55/ERROR.6 STRUCT-TEST-55/9 STRUCTURE-55-1 - STRUCT-TEST-56/1 STRUCT-TEST-56/2 STRUCT-TEST-56/ERROR.1 - STRUCT-TEST-56/ERROR.2 STRUCT-TEST-56/3 STRUCT-TEST-56/5 - STRUCT-TEST-56/ERROR.3 STRUCT-TEST-56/ERROR.4 STRUCT-TEST-56/6 - STRUCT-TEST-56/7 STRUCT-TEST-56/8 STRUCT-TEST-56/ERROR.5 - STRUCT-TEST-56/ERROR.6 STRUCT-TEST-56/9 STRUCTURE-56-1 - STRUCT-TEST-57/1 STRUCT-TEST-57/2 STRUCT-TEST-57/ERROR.1 - STRUCT-TEST-57/ERROR.2 STRUCT-TEST-57/3 STRUCT-TEST-57/4 - STRUCT-TEST-57/5 STRUCT-TEST-57/ERROR.3 STRUCT-TEST-57/ERROR.4 - STRUCT-TEST-57/6 STRUCT-TEST-57/7 STRUCT-TEST-57/8 - STRUCT-TEST-57/ERROR.5 STRUCT-TEST-57/ERROR.6 STRUCT-TEST-57/9 - STRUCT-TEST-57/13 STRUCT-TEST-57/14 STRUCT-TEST-57/15 -Test STRUCT-TEST-57/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-57)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-57 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-57/17 STRUCT-TEST-57/15A STRUCT-TEST-57/15B - STRUCT-TEST-57/20 STRUCT-TEST-58/1 STRUCT-TEST-58/2 - STRUCT-TEST-58/ERROR.1 STRUCT-TEST-58/ERROR.2 STRUCT-TEST-58/3 - STRUCT-TEST-58/4 STRUCT-TEST-58/5 STRUCT-TEST-58/ERROR.3 - STRUCT-TEST-58/ERROR.4 STRUCT-TEST-58/6 STRUCT-TEST-58/7 - STRUCT-TEST-58/8 STRUCT-TEST-58/ERROR.5 STRUCT-TEST-58/ERROR.6 - STRUCT-TEST-58/9 STRUCT-TEST-58/13 STRUCT-TEST-58/14 STRUCT-TEST-58/15 -Test STRUCT-TEST-58/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-58)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-58 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-58/17 STRUCT-TEST-58/15A STRUCT-TEST-58/15B - STRUCT-TEST-58/18 STRUCT-TEST-58/19 STRUCT-TEST-58/20 STRUCT-TEST-59/1 - STRUCT-TEST-59/2 STRUCT-TEST-59/ERROR.1 STRUCT-TEST-59/ERROR.2 - STRUCT-TEST-59/3 STRUCT-TEST-59/4 STRUCT-TEST-59/5 - STRUCT-TEST-59/ERROR.3 STRUCT-TEST-59/ERROR.4 STRUCT-TEST-59/6 - STRUCT-TEST-59/7 STRUCT-TEST-59/8 STRUCT-TEST-59/ERROR.5 - STRUCT-TEST-59/ERROR.6 STRUCT-TEST-59/9 STRUCT-TEST-59/13 - STRUCT-TEST-59/14 STRUCT-TEST-59/15 -Test STRUCT-TEST-59/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-59)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-59 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-59/17 STRUCT-TEST-59/15A STRUCT-TEST-59/15B - STRUCT-TEST-59/18 STRUCT-TEST-59/19 STRUCT-TEST-59/20 STRUCT-TEST-60/1 - STRUCT-TEST-60/2 STRUCT-TEST-60/ERROR.1 STRUCT-TEST-60/ERROR.2 - STRUCT-TEST-60/3 STRUCT-TEST-60/4 STRUCT-TEST-60/5 - STRUCT-TEST-60/ERROR.3 STRUCT-TEST-60/ERROR.4 STRUCT-TEST-60/6 - STRUCT-TEST-60/7 STRUCT-TEST-60/8 STRUCT-TEST-60/ERROR.5 - STRUCT-TEST-60/ERROR.6 STRUCT-TEST-60/9 STRUCT-TEST-60/13 - STRUCT-TEST-60/14 STRUCT-TEST-60/15 -Test STRUCT-TEST-60/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-60)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-60 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). - STRUCT-TEST-60/17 STRUCT-TEST-60/15A STRUCT-TEST-60/15B - STRUCT-TEST-60/20 -Test STRUCTURE-60-1 failed -Form: (LET ((*ST-60* 10)) - (LET ((S (MAKE-STRUCT-TEST-60 :*ST-60* 200))) - (VALUES (STRUCT-TEST-60-A60 S) (STRUCT-TEST-60-*ST-60* S) - (STRUCT-TEST-60-B60 S)))) -Expected values: 10 - 200 - 10 -Actual values: 10 - 200 - 200. - STRUCTURE-61-1 STRUCTURE-62-1 STRUCTURE-62-2 STRUCT-TEST-63/1 - STRUCT-TEST-63/2 STRUCT-TEST-63/ERROR.1 STRUCT-TEST-63/ERROR.2 - STRUCT-TEST-63/3 STRUCT-TEST-63/4 STRUCT-TEST-63/5 - STRUCT-TEST-63/ERROR.3 STRUCT-TEST-63/ERROR.4 STRUCT-TEST-63/6 - STRUCT-TEST-63/7 STRUCT-TEST-63/8 STRUCT-TEST-63/ERROR.5 - STRUCT-TEST-63/ERROR.6 STRUCT-TEST-63/9 -Test STRUCT-TEST-63/13 failed -Form: (NOTNOT-MV - (TYPEP (MAKE-STRUCT-TEST-63) (FIND-CLASS ':STRUCT-TEST-63))) -Expected value: T -Actual value: #. -Test STRUCT-TEST-63/14 failed -Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) - (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) -Expected value: T -Actual value: #. - STRUCT-TEST-63/15 -Test STRUCT-TEST-63/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE ':STRUCT-TEST-63)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* ':STRUCT-TEST-63 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). -Test STRUCT-TEST-63/17 failed -Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) - (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) - '(NIL T))) - COLLECT - TYPE)) -Expected value: NIL -Actual value: #. -Test STRUCT-TEST-63/15A failed -Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) - (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) -Expected values: T - T -Actual value: #. - STRUCT-TEST-63/15B STRUCT-TEST-63/20 -Test STRUCT-TEST-64/1 failed -Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-64) - (FUNCTIONP #'MAKE-STRUCT-TEST-64) - (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-64) - (TYPEP (MAKE-STRUCT-TEST-64) 'STRUCT-TEST-64) T) -Expected value: T -Actual value: #. -Test STRUCT-TEST-64/2 failed -Form: (LET ((S (MAKE-STRUCT-TEST-64))) - (AND (FBOUNDP 'STRUCT-TEST-64-P) (FUNCTIONP #'STRUCT-TEST-64-P) - (SYMBOL-FUNCTION 'STRUCT-TEST-64-P) - (NOTNOT (FUNCALL #'STRUCT-TEST-64-P S)) - (NOTNOT-MV (STRUCT-TEST-64-P S)))) -Expected value: T -Actual value: #. - STRUCT-TEST-64/ERROR.1 STRUCT-TEST-64/ERROR.2 STRUCT-TEST-64/3 - STRUCT-TEST-64/4 -Test STRUCT-TEST-64/5 failed -Form: (LET ((STRUCT-TEST-64-TEMP-5 - (MAKE-STRUCT-TEST-64 :C63 'STRUCT-TEST-64-SLOTTEMP-3 - :B63 'STRUCT-TEST-64-SLOTTEMP-2 :A63 - 'STRUCT-TEST-64-SLOTTEMP-1))) - (AND (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-3 - (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-5)) - (EQLT 'STRUCT-TEST-64-SLOTTEMP-3 - (FUNCALL #'STRUCT-TEST-64-C63 - STRUCT-TEST-64-TEMP-5))) - (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-2 - (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-5)) - (EQLT 'STRUCT-TEST-64-SLOTTEMP-2 - (FUNCALL #'STRUCT-TEST-64-B63 - STRUCT-TEST-64-TEMP-5))) - (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-1 - (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-5)) - (EQLT 'STRUCT-TEST-64-SLOTTEMP-1 - (FUNCALL #'STRUCT-TEST-64-A63 - STRUCT-TEST-64-TEMP-5))) - T)) -Expected value: T -Actual value: #. - STRUCT-TEST-64/ERROR.3 STRUCT-TEST-64/ERROR.4 -Test STRUCT-TEST-64/6 failed -Form: (EQT (MAKE-STRUCT-TEST-64) (MAKE-STRUCT-TEST-64)) -Expected value: NIL -Actual value: #. -Test STRUCT-TEST-64/7 failed -Form: (LET ((STRUCT-TEST-64-TEMP-7-1 (MAKE-STRUCT-TEST-64))) - (AND (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-1)) - (SETF (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2) - (EQLT (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2)) - (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-2)) - (SETF (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2) - (EQLT (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2)) - (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-3)) - (SETF (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2) - (EQLT (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-7-1) - STRUCT-TEST-64-TEMP-7-2)) - T)) -Expected value: T -Actual value: #. - STRUCT-TEST-64/8 STRUCT-TEST-64/ERROR.5 STRUCT-TEST-64/ERROR.6 -Test STRUCT-TEST-64/9 failed -Form: (LET ((XTEMP-9 (MAKE-STRUCT-TEST-64 :A63 - 'STRUCT-TEST-64-SLOTTEMP-1 :B63 - 'STRUCT-TEST-64-SLOTTEMP-2 :C63 - 'STRUCT-TEST-64-SLOTTEMP-3))) - (LET ((YTEMP-9 (COPY-STRUCT-TEST-64 XTEMP-9)) - (ZTEMP-9 (FUNCALL #'COPY-STRUCT-TEST-64 XTEMP-9))) - (AND (NOT (EQLT XTEMP-9 YTEMP-9)) - (NOT (EQLT XTEMP-9 ZTEMP-9)) - (NOT (EQLT YTEMP-9 ZTEMP-9)) - (AND (EQLT (STRUCT-TEST-64-A63 XTEMP-9) - (STRUCT-TEST-64-A63 YTEMP-9)) - (EQLT (STRUCT-TEST-64-A63 XTEMP-9) - (STRUCT-TEST-64-A63 ZTEMP-9))) - (AND (EQLT (STRUCT-TEST-64-B63 XTEMP-9) - (STRUCT-TEST-64-B63 YTEMP-9)) - (EQLT (STRUCT-TEST-64-B63 XTEMP-9) - (STRUCT-TEST-64-B63 ZTEMP-9))) - (AND (EQLT (STRUCT-TEST-64-C63 XTEMP-9) - (STRUCT-TEST-64-C63 YTEMP-9)) - (EQLT (STRUCT-TEST-64-C63 XTEMP-9) - (STRUCT-TEST-64-C63 ZTEMP-9))) - T))) -Expected value: T -Actual value: #. -Test STRUCT-TEST-64/13 failed -Form: (NOTNOT-MV - (TYPEP (MAKE-STRUCT-TEST-64) (FIND-CLASS 'STRUCT-TEST-64))) -Expected value: T -Actual value: #. -Test STRUCT-TEST-64/14 failed -Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) - (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) -Expected value: T -Actual value: #. -Test STRUCT-TEST-64/15 failed -Form: (NOTNOT-MV (TYPEP (MAKE-STRUCT-TEST-64) 'STRUCTURE-OBJECT)) -Expected value: T -Actual value: #. -Test STRUCT-TEST-64/16 failed -Form: (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* TYPE 'STRUCT-TEST-64)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST - (SUBTYPEP* 'STRUCT-TEST-64 TYPE)) - '(NIL T))) - COLLECT - TYPE) -Expected value: NIL -Actual value: (CONDITION). -Test STRUCT-TEST-64/17 failed -Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) - (LOOP - FOR - TYPE - IN - *DISJOINT-TYPES-LIST* - UNLESS - (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) - '(NIL T)) - (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) - '(NIL T))) - COLLECT - TYPE)) -Expected value: NIL -Actual value: #. -Test STRUCT-TEST-64/15A failed -Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) - (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) -Expected values: T - T -Actual value: #. - STRUCT-TEST-64/15B -Test STRUCT-TEST-64/20 failed -Form: (LET ((XTEMP-20 - (MAKE-STRUCT-TEST-64 :A63 'STRUCT-TEST-64-SLOTTEMP-1 - :B63 'STRUCT-TEST-64-SLOTTEMP-2 :C63 - 'STRUCT-TEST-64-SLOTTEMP-3))) - (LET ((YTEMP-20 (COPY-STRUCTURE XTEMP-20))) - (AND (NOT (EQLT XTEMP-20 YTEMP-20)) - (EQLT (STRUCT-TEST-64-A63 XTEMP-20) - (STRUCT-TEST-64-A63 YTEMP-20)) - (EQLT (STRUCT-TEST-64-B63 XTEMP-20) - (STRUCT-TEST-64-B63 YTEMP-20)) - (EQLT (STRUCT-TEST-64-C63 XTEMP-20) - (STRUCT-TEST-64-C63 YTEMP-20)) - T))) -Expected value: T -Actual value: #. - COPY-STRUCTURE.ERROR.1 COPY-STRUCTURE.ERROR.2 STRUCTURE-BOA-TEST-01/1 - STRUCTURE-BOA-TEST-02/1 STRUCTURE-BOA-TEST-02/2 - STRUCTURE-BOA-TEST-02/3 STRUCTURE-BOA-TEST-03/1 - STRUCTURE-BOA-TEST-03/2 STRUCTURE-BOA-TEST-04/1 - STRUCTURE-BOA-TEST-04/2 STRUCTURE-BOA-TEST-05/1 - STRUCTURE-BOA-TEST-05/2 STRUCTURE-BOA-TEST-05/3 - STRUCTURE-BOA-TEST-05/4 STRUCTURE-BOA-TEST-06/1 - STRUCTURE-BOA-TEST-06/2 STRUCTURE-BOA-TEST-06/3 - STRUCTURE-BOA-TEST-06/4 STRUCTURE-BOA-TEST-07/1 - STRUCTURE-BOA-TEST-07/2 STRUCTURE-BOA-TEST-07/3 - STRUCTURE-BOA-TEST-07/4 -Test STRUCTURE-BOA-TEST-08/1 failed -Form: (SBT-SLOTS 'SBT-08 (SBT-08-CON :FOO 10) :A) -Expected value: (10) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/1 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON) :A :B :C :F :G) -Expected value: (P Q R S (NIL NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/2 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :D 1) :A :B :C :D :F :G) -Expected value: (P Q R 1 S (NIL NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/3 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :A 1) :A :B :C :F :G) -Expected value: (1 Q R S (T NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/4 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :X 1) :A :B :C :F :G) -Expected value: (P 1 R S (NIL NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/5 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :C 1) :A :B :C :F :G) -Expected value: (P Q 1 S (NIL NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/6 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :Y 1) :A :B :C :E :F :G) -Expected value: (P Q R 1 S (NIL NIL)) -Actual value: #. -Test STRUCTURE-BOA-TEST-09/7 failed -Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :Z 1) :A :B :C :F :G) -Expected value: (P Q R 1 (NIL T)) -Actual value: #. - STRUCTURE-BOA-TEST-10/1 STRUCTURE-BOA-TEST-11/1 STRUCTURE-BOA-12/1 - STRUCTURE-BOA-12/2 STRUCTURE-BOA-12/3 -Test STRUCTURE-BOA-TEST-13/1 failed -Form: (SBT-13-D (SBT-13-CON)) -Expected value: (1 2 NIL) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/2 failed -Form: (SBT-13-D (SBT-13-CON :A 10)) -Expected value: (10 2 NIL) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/3 failed -Form: (SBT-13-D (SBT-13-CON :B 10)) -Expected value: (1 10 NIL) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/4 failed -Form: (SBT-13-D (SBT-13-CON :C 10)) -Expected value: (1 2 10) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/5 failed -Form: (SBT-13-D (SBT-13-CON :C 10 :A 3)) -Expected value: (3 2 10) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/6 failed -Form: (SBT-13-D (SBT-13-CON :C 10 :B 3)) -Expected value: (1 3 10) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/7 failed -Form: (SBT-13-D (SBT-13-CON :A 10 :B 3)) -Expected value: (10 3 NIL) -Actual value: #. -Test STRUCTURE-BOA-TEST-13/8 failed -Form: (SBT-13-D (SBT-13-CON :A 10 :C 'A :B 3)) -Expected value: (10 3 A) -Actual value: #. -Test STRUCTURE-BOA-TEST-14/1 failed -Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON) :A :B :C) -Expected value: (1 2 3) -Actual value: #. -Test STRUCTURE-BOA-TEST-14/2 failed -Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :A 9) :A :B :C) -Expected value: (9 2 3) -Actual value: #. -Test STRUCTURE-BOA-TEST-14/3 failed -Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :B 9) :A :B :C) -Expected value: (1 9 3) -Actual value: #. -Test STRUCTURE-BOA-TEST-14/4 failed -Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :C 9) :A :B :C) -Expected value: (1 2 9) -Actual value: #. -Test STRUCTURE-BOA-TEST-14/5 failed -Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :D 9) :A :B :C) -Expected value: (1 2 3) -Actual value: #. -Test STRUCTURE-BOA-TEST-15/1 failed -Form: (SBT-SLOTS 'SBT-15 (SBT-15-CON :X 1 'Y 2 :C 3) :A :B :C) -Expected value: (1 2 3) -Actual value: #. -Test STRUCTURE-BOA-TEST-15/2 failed -Form: (CLASSIFY-ERROR (SBT-15-CON :A 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/3 failed -Form: (CLASSIFY-ERROR (SBT-15-CON :B 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/4 failed -Form: (CLASSIFY-ERROR (SBT-15-CON 'X 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/5 failed -Form: (CLASSIFY-ERROR (SBT-15-CON :Y 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/6 failed -Form: (CLASSIFY-ERROR (SBT-15-CON 'C 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/7 failed -Form: (CLASSIFY-ERROR (SBT-15-CON 'A 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. -Test STRUCTURE-BOA-TEST-15/8 failed -Form: (CLASSIFY-ERROR (SBT-15-CON 'B 1)) -Expected value: PROGRAM-ERROR -Actual value: UNDEFINED-FUNCTION. - STRUCTURE-BOA-TEST-16/1 STRUCTURE-BOA-TEST-16/2 - STRUCTURE-BOA-TEST-16/3 STRUCTURE-BOA-TEST-16/4 - STRUCTURE-BOA-TEST-16/5 STRUCTURE-BOA-TEST-16/6 - STRUCTURE-BOA-TEST-16/7 STRUCTURE-BOA-TEST-16/8 - STRUCTURE-BOA-TEST-16/10 STRUCTURE-BOA-TEST-16/11 BOOLEAN-TYPE.1 - BOOLEAN-TYPE.2 BOOLEAN-TYPE.3 -Test TYPES.3 failed -Form: (LOOP - FOR - (T1 T2) - IN - *SUBTYPE-TABLE* - FOR - M1 - = - (CHECK-SUBTYPEP T1 T2 T T) - FOR - M2 - = - (CHECK-SUBTYPEP (LIST 'AND T1 T2) T1 T) - FOR - M3 - = - (CHECK-SUBTYPEP (LIST 'AND T2 T1) T1 T) - FOR - M4 - = - (CHECK-SUBTYPEP (LIST 'AND T1 (LIST 'NOT T2)) NIL T) - FOR - M5 - = - (CHECK-SUBTYPEP (LIST 'AND (LIST 'NOT T2) T1) NIL T) - WHEN - M1 - COLLECT - M1 - WHEN - M2 - COLLECT - M2 - WHEN - M3 - COLLECT - M3 - WHEN - M4 - COLLECT - M4 - WHEN - M5 - COLLECT - M5) -Expected value: NIL -Actual value: ((((SUBTYPEP 'GENERIC-FUNCTION 'FUNCTION) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-GENERIC-FUNCTION - 'GENERIC-FUNCTION) - ==> NIL NIL)) - (((SUBTYPEP 'CLASS 'STANDARD-OBJECT) ==> NIL NIL)) - (((SUBTYPEP 'BUILT-IN-CLASS 'CLASS) ==> NIL NIL)) - (((SUBTYPEP 'STRUCTURE-CLASS 'CLASS) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-CLASS 'CLASS) ==> NIL NIL)) - (((SUBTYPEP 'METHOD 'STANDARD-OBJECT) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-METHOD 'METHOD) ==> NIL NIL)) - (((SUBTYPEP 'SERIOUS-CONDITION 'CONDITION) ==> NIL NIL)) - (((SUBTYPEP 'ERROR 'SERIOUS-CONDITION) ==> NIL NIL)) - (((SUBTYPEP 'TYPE-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'TYPE-ERROR) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-CONDITION 'CONDITION) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'SIMPLE-CONDITION) ==> - NIL NIL)) - (((SUBTYPEP 'PARSE-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'CELL-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'UNBOUND-SLOT 'CELL-ERROR) ==> NIL NIL)) - (((SUBTYPEP 'WARNING 'CONDITION) ==> NIL NIL)) - (((SUBTYPEP 'STYLE-WARNING 'WARNING) ==> NIL NIL)) - (((SUBTYPEP 'STORAGE-CONDITION 'SERIOUS-CONDITION) ==> - NIL NIL)) - (((SUBTYPEP 'SIMPLE-WARNING 'WARNING) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-WARNING 'SIMPLE-CONDITION) ==> NIL - NIL)) - (((SUBTYPEP 'UNBOUND-VARIABLE 'CELL-ERROR) ==> NIL NIL)) - (((SUBTYPEP 'CONTROL-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'PROGRAM-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'UNDEFINED-FUNCTION 'CELL-ERROR) ==> NIL - NIL)) - (((SUBTYPEP 'PACKAGE-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'ARITHMETIC-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'DIVISION-BY-ZERO 'ARITHMETIC-ERROR) ==> NIL - NIL)) - (((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION - 'ARITHMETIC-ERROR) - ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-INEXACT 'ARITHMETIC-ERROR) - ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-OVERFLOW 'ARITHMETIC-ERROR) - ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-UNDERFLOW 'ARITHMETIC-ERROR) - ==> NIL NIL)) - (((SUBTYPEP 'FILE-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'STRING-STREAM 'STREAM) ==> NIL NIL)) - (((SUBTYPEP 'STREAM-ERROR 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'END-OF-FILE 'STREAM-ERROR) ==> NIL NIL)) - (((SUBTYPEP 'PRINT-NOT-READABLE 'ERROR) ==> NIL NIL)) - (((SUBTYPEP 'READER-ERROR 'PARSE-ERROR) ==> NIL NIL)) - (((SUBTYPEP 'READER-ERROR 'STREAM-ERROR) ==> NIL NIL))). -Test TYPES.6 failed -Form: (TYPES.6-BODY) -Expected value: NIL -Actual value: ((((SUBTYPEP 'STANDARD-OBJECT 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'GENERIC-FUNCTION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-GENERIC-FUNCTION 'ATOM) ==> NIL - NIL)) - (((SUBTYPEP 'CLASS 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'BUILT-IN-CLASS 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STRUCTURE-CLASS 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-CLASS 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'METHOD 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STANDARD-METHOD 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'METHOD-COMBINATION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'CONDITION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SERIOUS-CONDITION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'TYPE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-CONDITION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'PARSE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'CELL-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'UNBOUND-SLOT 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'WARNING 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STYLE-WARNING 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STORAGE-CONDITION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-WARNING 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'SIMPLE-WARNING 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'UNBOUND-VARIABLE 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'CONTROL-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'PROGRAM-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'UNDEFINED-FUNCTION 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'PACKAGE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'ARITHMETIC-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'DIVISION-BY-ZERO 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION 'ATOM) ==> - NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-INEXACT 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-OVERFLOW 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'FLOATING-POINT-UNDERFLOW 'ATOM) ==> NIL - NIL)) - (((SUBTYPEP 'FILE-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STRING-STREAM 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'STREAM-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'END-OF-FILE 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'PRINT-NOT-READABLE 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL)) - (((SUBTYPEP 'READER-ERROR 'ATOM) ==> NIL NIL))). - TYPES.7B + STRUCT-TEST-21/9 STRUCT-TEST-21/11 + 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 + DELETE-IF-NOT-LIST.2 DELETE-LIST.1 DELETE-LIST.2 + REMOVE.ALLOW-OTHER-KEYS.1 REMOVE.ALLOW-OTHER-KEYS.2 + REMOVE.ALLOW-OTHER-KEYS.3 REMOVE.ALLOW-OTHER-KEYS.4 + REMOVE.ALLOW-OTHER-KEYS.5 REMOVE.ALLOW-OTHER-KEYS.6 REMOVE.KEYWORDS.7 + DELETE.ALLOW-OTHER-KEYS.1 DELETE.ALLOW-OTHER-KEYS.2 + DELETE.ALLOW-OTHER-KEYS.3 DELETE.ALLOW-OTHER-KEYS.4 + DELETE.ALLOW-OTHER-KEYS.5 DELETE.ALLOW-OTHER-KEYS.6 DELETE.KEYWORDS.7 + REMOVE.ERROR.1 REMOVE.ERROR.2 REMOVE.ERROR.3 REMOVE.ERROR.4 + 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 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 @@ -27165,17 +26049,17 @@ '(NOT STRUCTURE-OBJECT)) ==> NIL T) ((SUBTYPEP 'ARITHMETIC-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'ARITHMETIC-ERROR) ==> NIL T) ((SUBTYPEP '(NOT ARITHMETIC-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT ARITHMETIC-ERROR)) ==> NIL T) ((SUBTYPEP 'SYMBOL @@ -27192,17 +26076,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 @@ -27271,17 +26155,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 @@ -27324,17 +26208,17 @@ '(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 @@ -27420,16 +26304,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 @@ -27460,17 +26344,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 @@ -27487,31 +26371,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 @@ -27568,17 +26452,17 @@ '(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 @@ -27622,29 +26506,29 @@ '(NOT FILE-ERROR)) ==> NIL T) ((SUBTYPEP 'RESTART - #) + #) ==> NIL T) ((SUBTYPEP - # 'RESTART) + # 'RESTART) ==> NIL T) ((SUBTYPEP '(NOT RESTART) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT RESTART)) ==> NIL T) ((SUBTYPEP 'TYPE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'TYPE-ERROR) + # 'TYPE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT TYPE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT TYPE-ERROR)) ==> NIL T) ((SUBTYPEP 'LIST @@ -27706,17 +26590,17 @@ '(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 @@ -27748,58 +26632,58 @@ '(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 @@ -27872,17 +26756,17 @@ '(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 @@ -28654,8 +27538,1159 @@ FILE-AUTHOR.ERROR.4 FILE-WRITE-DATE.1 FILE-WRITE-DATE.2 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 TYPES.7C + FILE-WRITE-DATE.ERROR.3 FILE-WRITE-DATE.ERROR.4 STRUCT-TEST-21/13 STRUCT-TEST-21/14 + STRUCT-TEST-21/15 +Test STRUCT-TEST-21/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-21)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-21 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-21/17 STRUCT-TEST-21/15A STRUCT-TEST-21/15B + STRUCT-TEST-21/20 STRUCT-TEST-22/1 STRUCT-TEST-22/2 + STRUCT-TEST-22/ERROR.1 STRUCT-TEST-22/ERROR.2 STRUCT-TEST-22/3 + STRUCT-TEST-22/4 STRUCT-TEST-22/5 STRUCT-TEST-22/ERROR.3 + STRUCT-TEST-22/ERROR.4 STRUCT-TEST-22/6 STRUCT-TEST-22/7 + STRUCT-TEST-22/8 STRUCT-TEST-22/ERROR.5 STRUCT-TEST-22/ERROR.6 + STRUCT-TEST-22/9 STRUCT-TEST-22/13 STRUCT-TEST-22/14 STRUCT-TEST-22/15 +Test STRUCT-TEST-22/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-22)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-22 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-22/17 STRUCT-TEST-22/15A STRUCT-TEST-22/15B + STRUCT-TEST-22/20 STRUCT-TEST-23/1 STRUCT-TEST-23/2 + STRUCT-TEST-23/ERROR.1 STRUCT-TEST-23/ERROR.2 STRUCT-TEST-23/3 + STRUCT-TEST-23/4 STRUCT-TEST-23/5 STRUCT-TEST-23/ERROR.3 + STRUCT-TEST-23/ERROR.4 STRUCT-TEST-23/6 STRUCT-TEST-23/7 + STRUCT-TEST-23/8 STRUCT-TEST-23/ERROR.5 STRUCT-TEST-23/ERROR.6 + STRUCT-TEST-23/9 STRUCT-TEST-23/13 STRUCT-TEST-23/14 STRUCT-TEST-23/15 +Test STRUCT-TEST-23/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-23)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-23 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-23/17 STRUCT-TEST-23/15A STRUCT-TEST-23/15B + STRUCT-TEST-23/20 STRUCT-TEST-24/1 STRUCT-TEST-24/2 + STRUCT-TEST-24/ERROR.1 STRUCT-TEST-24/ERROR.2 STRUCT-TEST-24/3 + STRUCT-TEST-24/4 STRUCT-TEST-24/5 STRUCT-TEST-24/ERROR.3 + STRUCT-TEST-24/ERROR.4 STRUCT-TEST-24/6 STRUCT-TEST-24/7 + STRUCT-TEST-24/8 STRUCT-TEST-24/ERROR.5 STRUCT-TEST-24/ERROR.6 + STRUCT-TEST-24/9 STRUCT-TEST-24/13 STRUCT-TEST-24/14 STRUCT-TEST-24/15 +Test STRUCT-TEST-24/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-24)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-24 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-24/17 STRUCT-TEST-24/15A STRUCT-TEST-24/15B + STRUCT-TEST-24/20 STRUCT-TEST-25/1 STRUCT-TEST-25/2 + STRUCT-TEST-25/ERROR.1 STRUCT-TEST-25/ERROR.2 STRUCT-TEST-25/3 + STRUCT-TEST-25/4 STRUCT-TEST-25/5 STRUCT-TEST-25/ERROR.3 + STRUCT-TEST-25/ERROR.4 STRUCT-TEST-25/6 STRUCT-TEST-25/7 + STRUCT-TEST-25/8 STRUCT-TEST-25/ERROR.5 STRUCT-TEST-25/ERROR.6 + STRUCT-TEST-25/9 STRUCT-TEST-25/13 STRUCT-TEST-25/14 STRUCT-TEST-25/15 +Test STRUCT-TEST-25/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-25)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-25 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-25/17 STRUCT-TEST-25/15A STRUCT-TEST-25/15B + STRUCT-TEST-25/20 STRUCT-TEST-26/1 STRUCT-TEST-26/2 + STRUCT-TEST-26/ERROR.1 STRUCT-TEST-26/ERROR.2 STRUCT-TEST-26/3 + STRUCT-TEST-26/4 STRUCT-TEST-26/5 STRUCT-TEST-26/ERROR.3 + STRUCT-TEST-26/ERROR.4 STRUCT-TEST-26/6 STRUCT-TEST-26/7 + STRUCT-TEST-26/8 STRUCT-TEST-26/ERROR.5 STRUCT-TEST-26/ERROR.6 + STRUCT-TEST-26/9 STRUCT-TEST-26/13 STRUCT-TEST-26/14 STRUCT-TEST-26/15 +Test STRUCT-TEST-26/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-26)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-26 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-26/17 STRUCT-TEST-26/15A STRUCT-TEST-26/15B + STRUCT-TEST-26/20 STRUCT-TEST-27/1 STRUCT-TEST-27/2 + STRUCT-TEST-27/ERROR.1 STRUCT-TEST-27/ERROR.2 STRUCT-TEST-27/3 + STRUCT-TEST-27/4 STRUCT-TEST-27/5 STRUCT-TEST-27/ERROR.3 + STRUCT-TEST-27/ERROR.4 STRUCT-TEST-27/6 STRUCT-TEST-27/7 + STRUCT-TEST-27/8 STRUCT-TEST-27/ERROR.5 STRUCT-TEST-27/ERROR.6 + STRUCT-TEST-27/9 +Test STRUCT-TEST-27/12 failed +Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-27-A27))) + (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-27-B27))) T) +Expected value: T +Actual value: #. + STRUCT-TEST-27/13 STRUCT-TEST-27/14 STRUCT-TEST-27/15 +Test STRUCT-TEST-27/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-27)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-27 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-27/17 STRUCT-TEST-27/15A STRUCT-TEST-27/15B + STRUCT-TEST-27/20 STRUCT-TEST-28/1 STRUCT-TEST-28/2 + STRUCT-TEST-28/ERROR.1 STRUCT-TEST-28/ERROR.2 STRUCT-TEST-28/3 + STRUCT-TEST-28/4 STRUCT-TEST-28/5 STRUCT-TEST-28/ERROR.3 + STRUCT-TEST-28/ERROR.4 STRUCT-TEST-28/6 STRUCT-TEST-28/7 + STRUCT-TEST-28/8 STRUCT-TEST-28/ERROR.5 STRUCT-TEST-28/ERROR.6 + STRUCT-TEST-28/9 +Test STRUCT-TEST-28/12 failed +Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-28-A28))) + (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-28-B28))) T) +Expected value: T +Actual value: #. + STRUCT-TEST-28/13 STRUCT-TEST-28/14 STRUCT-TEST-28/15 +Test STRUCT-TEST-28/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-28)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-28 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-28/17 STRUCT-TEST-28/15A STRUCT-TEST-28/15B + STRUCT-TEST-28/20 STRUCT-TEST-29/1 STRUCT-TEST-29/2 + STRUCT-TEST-29/ERROR.1 STRUCT-TEST-29/ERROR.2 STRUCT-TEST-29/3 + STRUCT-TEST-29/4 STRUCT-TEST-29/5 STRUCT-TEST-29/ERROR.3 + STRUCT-TEST-29/ERROR.4 STRUCT-TEST-29/6 STRUCT-TEST-29/7 + STRUCT-TEST-29/8 STRUCT-TEST-29/ERROR.5 STRUCT-TEST-29/ERROR.6 + STRUCT-TEST-29/9 +Test STRUCT-TEST-29/12 failed +Form: (AND (NOT-MV (FBOUNDP '(SETF STRUCT-TEST-29-B29))) T) +Expected value: T +Actual value: #. + STRUCT-TEST-29/13 STRUCT-TEST-29/14 STRUCT-TEST-29/15 +Test STRUCT-TEST-29/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-29)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-29 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-29/17 STRUCT-TEST-29/15A STRUCT-TEST-29/15B + STRUCT-TEST-29/20 STRUCT-TEST-30/1 STRUCT-TEST-30/2 + STRUCT-TEST-30/ERROR.1 STRUCT-TEST-30/ERROR.2 STRUCT-TEST-30/3 + STRUCT-TEST-30/4 STRUCT-TEST-30/5 STRUCT-TEST-30/ERROR.3 + STRUCT-TEST-30/ERROR.4 STRUCT-TEST-30/6 STRUCT-TEST-30/7 + STRUCT-TEST-30/8 STRUCT-TEST-30/ERROR.5 STRUCT-TEST-30/ERROR.6 + STRUCT-TEST-30/9 STRUCT-TEST-30/13 STRUCT-TEST-30/14 STRUCT-TEST-30/15 +Test STRUCT-TEST-30/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-30)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-30 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-30/17 STRUCT-TEST-30/15A STRUCT-TEST-30/15B + STRUCT-TEST-30/20 STRUCT-TEST-31/1 STRUCT-TEST-31/2 + STRUCT-TEST-31/ERROR.1 STRUCT-TEST-31/ERROR.2 STRUCT-TEST-31/3 + STRUCT-TEST-31/4 STRUCT-TEST-31/5 STRUCT-TEST-31/ERROR.3 + STRUCT-TEST-31/ERROR.4 STRUCT-TEST-31/6 STRUCT-TEST-31/7 + STRUCT-TEST-31/8 STRUCT-TEST-31/ERROR.5 STRUCT-TEST-31/ERROR.6 + STRUCT-TEST-31/9 +Test STRUCT-TEST-31/13 failed +Form: (NOTNOT-MV + (TYPEP (MAKE-STRUCT-TEST-31) (FIND-CLASS '#:STRUCT-TEST-31))) +Expected value: T +Actual value: #. +Test STRUCT-TEST-31/14 failed +Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) + (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) +Expected value: T +Actual value: #. + STRUCT-TEST-31/15 +Test STRUCT-TEST-31/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE '#:STRUCT-TEST-31)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* '#:STRUCT-TEST-31 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). +Test STRUCT-TEST-31/17 failed +Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) + (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) + '(NIL T))) + COLLECT + TYPE)) +Expected value: NIL +Actual value: #. +Test STRUCT-TEST-31/15A failed +Form: (LET ((CLASS (FIND-CLASS '#:STRUCT-TEST-31))) + (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) +Expected values: T + T +Actual value: #. + STRUCT-TEST-31/15B STRUCT-TEST-31/20 STRUCT-TEST-32/1 STRUCT-TEST-32/2 + STRUCT-TEST-32/ERROR.1 STRUCT-TEST-32/ERROR.2 STRUCT-TEST-32/3 + STRUCT-TEST-32/4 STRUCT-TEST-32/5 STRUCT-TEST-32/ERROR.3 + STRUCT-TEST-32/ERROR.4 STRUCT-TEST-32/6 STRUCT-TEST-32/7 + STRUCT-TEST-32/8 STRUCT-TEST-32/ERROR.5 STRUCT-TEST-32/ERROR.6 + STRUCT-TEST-32/9 STRUCT-TEST-32/13 STRUCT-TEST-32/14 STRUCT-TEST-32/15 +Test STRUCT-TEST-32/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-32)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-32 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-32/17 STRUCT-TEST-32/15A STRUCT-TEST-32/15B + STRUCT-TEST-32/20 STRUCT-TEST-33/1 STRUCT-TEST-33/2 + STRUCT-TEST-33/ERROR.1 STRUCT-TEST-33/ERROR.2 STRUCT-TEST-33/3 + STRUCT-TEST-33/4 STRUCT-TEST-33/5 STRUCT-TEST-33/ERROR.3 + STRUCT-TEST-33/ERROR.4 STRUCT-TEST-33/6 STRUCT-TEST-33/7 + STRUCT-TEST-33/8 STRUCT-TEST-33/ERROR.5 STRUCT-TEST-33/ERROR.6 + STRUCT-TEST-33/9 STRUCT-TEST-33/13 STRUCT-TEST-33/14 STRUCT-TEST-33/15 +Test STRUCT-TEST-33/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-33)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-33 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-33/17 STRUCT-TEST-33/15A STRUCT-TEST-33/15B + STRUCT-TEST-33/20 STRUCT-TEST-34/1 STRUCT-TEST-34/2 + STRUCT-TEST-34/ERROR.1 STRUCT-TEST-34/ERROR.2 STRUCT-TEST-34/3 + STRUCT-TEST-34/4 STRUCT-TEST-34/5 STRUCT-TEST-34/ERROR.3 + STRUCT-TEST-34/ERROR.4 STRUCT-TEST-34/6 STRUCT-TEST-34/7 + STRUCT-TEST-34/8 STRUCT-TEST-34/ERROR.5 STRUCT-TEST-34/ERROR.6 + STRUCT-TEST-34/9 STRUCT-TEST-34/13 STRUCT-TEST-34/14 STRUCT-TEST-34/15 +Test STRUCT-TEST-34/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-34)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-34 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-34/17 STRUCT-TEST-34/15A STRUCT-TEST-34/15B + STRUCT-TEST-34/20 STRUCT-TEST-35/1 STRUCT-TEST-35/2 + STRUCT-TEST-35/ERROR.1 STRUCT-TEST-35/ERROR.2 STRUCT-TEST-35/3 + STRUCT-TEST-35/4 STRUCT-TEST-35/5 STRUCT-TEST-35/ERROR.3 + STRUCT-TEST-35/ERROR.4 STRUCT-TEST-35/6 STRUCT-TEST-35/7 + STRUCT-TEST-35/8 STRUCT-TEST-35/ERROR.5 STRUCT-TEST-35/ERROR.6 + STRUCT-TEST-35/9 STRUCT-TEST-35/13 STRUCT-TEST-35/14 STRUCT-TEST-35/15 +Test STRUCT-TEST-35/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-35)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-35 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-35/17 STRUCT-TEST-35/15A STRUCT-TEST-35/15B + STRUCT-TEST-35/20 STRUCT-TEST-36/1 STRUCT-TEST-36/2 + STRUCT-TEST-36/ERROR.1 STRUCT-TEST-36/ERROR.2 STRUCT-TEST-36/3 + STRUCT-TEST-36/4 STRUCT-TEST-36/5 STRUCT-TEST-36/ERROR.3 + STRUCT-TEST-36/ERROR.4 STRUCT-TEST-36/6 STRUCT-TEST-36/7 + STRUCT-TEST-36/8 STRUCT-TEST-36/ERROR.5 STRUCT-TEST-36/ERROR.6 + STRUCT-TEST-36/9 STRUCT-TEST-36/13 STRUCT-TEST-36/14 STRUCT-TEST-36/15 +Test STRUCT-TEST-36/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-36)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-36 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-36/17 STRUCT-TEST-36/15A STRUCT-TEST-36/15B + STRUCT-TEST-36/20 STRUCT-TEST-37/1 STRUCT-TEST-37/5 + STRUCT-TEST-37/ERROR.3 STRUCT-TEST-37/ERROR.4 STRUCT-TEST-37/6 + STRUCT-TEST-37/7 STRUCT-TEST-37/8 STRUCT-TEST-37/ERROR.5 + STRUCT-TEST-37/ERROR.6 STRUCT-TEST-37/9 STRUCT-TEST-37/10 + STRUCTURE-37-1 STRUCT-TEST-38/1 STRUCT-TEST-38/2 + STRUCT-TEST-38/ERROR.1 STRUCT-TEST-38/ERROR.2 STRUCT-TEST-38/3 + STRUCT-TEST-38/5 STRUCT-TEST-38/ERROR.3 STRUCT-TEST-38/ERROR.4 + STRUCT-TEST-38/6 STRUCT-TEST-38/7 STRUCT-TEST-38/8 + STRUCT-TEST-38/ERROR.5 STRUCT-TEST-38/ERROR.6 STRUCT-TEST-38/9 + STRUCTURE-38-1 STRUCT-TEST-39/1 STRUCT-TEST-39/5 + STRUCT-TEST-39/ERROR.3 STRUCT-TEST-39/ERROR.4 STRUCT-TEST-39/6 + STRUCT-TEST-39/7 STRUCT-TEST-39/8 STRUCT-TEST-39/ERROR.5 + STRUCT-TEST-39/ERROR.6 STRUCT-TEST-39/9 STRUCT-TEST-39/10 + STRUCTURE-39-1 STRUCT-TEST-40/1 STRUCT-TEST-40/5 + STRUCT-TEST-40/ERROR.3 STRUCT-TEST-40/ERROR.4 STRUCT-TEST-40/6 + STRUCT-TEST-40/7 STRUCT-TEST-40/8 STRUCT-TEST-40/ERROR.5 + STRUCT-TEST-40/ERROR.6 STRUCT-TEST-40/9 STRUCT-TEST-40/10 + STRUCT-TEST-41/1 STRUCT-TEST-41/2 STRUCT-TEST-41/ERROR.1 + STRUCT-TEST-41/ERROR.2 +Test STRUCT-TEST-41/3 failed +Form: (COUNT-IF #'STRUCT-TEST-41-P *UNIVERSE*) +Expected value: 0 +Actual value: #. + STRUCT-TEST-41/5 STRUCT-TEST-41/ERROR.3 STRUCT-TEST-41/ERROR.4 + STRUCT-TEST-41/6 STRUCT-TEST-41/7 STRUCT-TEST-41/8 + STRUCT-TEST-41/ERROR.5 STRUCT-TEST-41/ERROR.6 STRUCT-TEST-41/9 + STRUCT-TEST-42/1 STRUCT-TEST-42/5 STRUCT-TEST-42/ERROR.3 + STRUCT-TEST-42/ERROR.4 STRUCT-TEST-42/6 STRUCT-TEST-42/7 + STRUCT-TEST-42/8 STRUCT-TEST-42/ERROR.5 STRUCT-TEST-42/ERROR.6 + STRUCT-TEST-42/9 STRUCT-TEST-42/10 STRUCT-TEST-43/1 STRUCT-TEST-43/2 + STRUCT-TEST-43/ERROR.1 STRUCT-TEST-43/ERROR.2 +Test STRUCT-TEST-43/3 failed +Form: (COUNT-IF #'STRUCT-TEST-43-P *UNIVERSE*) +Expected value: 0 +Actual value: #. + STRUCT-TEST-43/5 STRUCT-TEST-43/ERROR.3 STRUCT-TEST-43/ERROR.4 + STRUCT-TEST-43/6 STRUCT-TEST-43/7 STRUCT-TEST-43/8 + STRUCT-TEST-43/ERROR.5 STRUCT-TEST-43/ERROR.6 STRUCT-TEST-43/9 + STRUCT-TEST-44/1 STRUCT-TEST-44/5 STRUCT-TEST-44/ERROR.3 + STRUCT-TEST-44/ERROR.4 STRUCT-TEST-44/6 STRUCT-TEST-44/7 + STRUCT-TEST-44/8 STRUCT-TEST-44/ERROR.5 STRUCT-TEST-44/ERROR.6 + STRUCT-TEST-44/9 STRUCT-TEST-44/10 STRUCTS-ARE-DISJOINT + STRUCT-TEST-45/1 STRUCT-TEST-45/5 STRUCT-TEST-45/ERROR.3 + STRUCT-TEST-45/ERROR.4 STRUCT-TEST-45/6 STRUCT-TEST-45/7 + STRUCT-TEST-45/8 STRUCT-TEST-45/ERROR.5 STRUCT-TEST-45/ERROR.6 + STRUCT-TEST-45/9 STRUCT-TEST-45/10 STRUCTURE-45-1 STRUCT-TEST-46/1 + STRUCT-TEST-46/5 STRUCT-TEST-46/ERROR.3 STRUCT-TEST-46/ERROR.4 + STRUCT-TEST-46/6 STRUCT-TEST-46/7 STRUCT-TEST-46/8 + STRUCT-TEST-46/ERROR.5 STRUCT-TEST-46/ERROR.6 STRUCT-TEST-46/9 + STRUCT-TEST-46/10 STRUCTURE-46-1 STRUCT-TEST-47/1 STRUCT-TEST-47/5 + STRUCT-TEST-47/ERROR.3 STRUCT-TEST-47/ERROR.4 STRUCT-TEST-47/6 + STRUCT-TEST-47/7 STRUCT-TEST-47/8 STRUCT-TEST-47/ERROR.5 + STRUCT-TEST-47/ERROR.6 STRUCT-TEST-47/9 STRUCT-TEST-47/10 + STRUCTURE-47-1 STRUCT-TEST-48/1 STRUCT-TEST-48/5 + STRUCT-TEST-48/ERROR.3 STRUCT-TEST-48/ERROR.4 STRUCT-TEST-48/6 + STRUCT-TEST-48/7 STRUCT-TEST-48/8 STRUCT-TEST-48/ERROR.5 + STRUCT-TEST-48/ERROR.6 STRUCT-TEST-48/9 STRUCT-TEST-48/10 + STRUCTURE-48-1 +Test STRUCT-TEST-49/1 failed +Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-49) + (FUNCTIONP #'MAKE-STRUCT-TEST-49) + (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-49) + (TYPEP (MAKE-STRUCT-TEST-49) '(VECTOR BIT)) T) +Expected value: T +Actual value: NIL. + STRUCT-TEST-49/5 STRUCT-TEST-49/ERROR.3 STRUCT-TEST-49/ERROR.4 + STRUCT-TEST-49/6 STRUCT-TEST-49/7 STRUCT-TEST-49/8 + STRUCT-TEST-49/ERROR.5 STRUCT-TEST-49/ERROR.6 STRUCT-TEST-49/9 + STRUCT-TEST-49/10 +Test STRUCT-TEST-50/1 failed +Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-50) + (FUNCTIONP #'MAKE-STRUCT-TEST-50) + (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-50) + (TYPEP (MAKE-STRUCT-TEST-50) '(VECTOR CHARACTER)) T) +Expected value: T +Actual value: NIL. + STRUCT-TEST-50/5 STRUCT-TEST-50/ERROR.3 STRUCT-TEST-50/ERROR.4 + STRUCT-TEST-50/6 STRUCT-TEST-50/7 STRUCT-TEST-50/8 + STRUCT-TEST-50/ERROR.5 STRUCT-TEST-50/ERROR.6 STRUCT-TEST-50/9 + STRUCT-TEST-50/10 +Test STRUCT-TEST-51/1 failed +Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-51) + (FUNCTIONP #'MAKE-STRUCT-TEST-51) + (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-51) + (TYPEP (MAKE-STRUCT-TEST-51) '(VECTOR (INTEGER 0 255))) T) +Expected value: T +Actual value: NIL. + STRUCT-TEST-51/5 STRUCT-TEST-51/ERROR.3 STRUCT-TEST-51/ERROR.4 + STRUCT-TEST-51/6 STRUCT-TEST-51/7 STRUCT-TEST-51/8 + STRUCT-TEST-51/ERROR.5 STRUCT-TEST-51/ERROR.6 STRUCT-TEST-51/9 + STRUCT-TEST-51/10 STRUCT-TEST-52/1 STRUCT-TEST-52/5 + STRUCT-TEST-52/ERROR.3 STRUCT-TEST-52/ERROR.4 STRUCT-TEST-52/6 + STRUCT-TEST-52/7 STRUCT-TEST-52/8 STRUCT-TEST-52/ERROR.5 + STRUCT-TEST-52/ERROR.6 STRUCT-TEST-52/9 STRUCT-TEST-52/10 + STRUCT-TEST-53/1 STRUCT-TEST-53/5 STRUCT-TEST-53/ERROR.3 + STRUCT-TEST-53/ERROR.4 STRUCT-TEST-53/6 STRUCT-TEST-53/7 + STRUCT-TEST-53/8 STRUCT-TEST-53/ERROR.5 STRUCT-TEST-53/ERROR.6 + STRUCT-TEST-53/9 STRUCT-TEST-53/10 STRUCT-TEST-53/18 STRUCTURE-53-1 + STRUCT-TEST-54/1 STRUCT-TEST-54/5 STRUCT-TEST-54/ERROR.3 + STRUCT-TEST-54/ERROR.4 STRUCT-TEST-54/6 STRUCT-TEST-54/7 + STRUCT-TEST-54/8 STRUCT-TEST-54/ERROR.5 STRUCT-TEST-54/ERROR.6 + STRUCT-TEST-54/9 STRUCT-TEST-54/10 STRUCT-TEST-54/18 STRUCTURE-54-1 + STRUCT-TEST-55/1 STRUCT-TEST-55/2 STRUCT-TEST-55/ERROR.1 + STRUCT-TEST-55/ERROR.2 STRUCT-TEST-55/3 STRUCT-TEST-55/5 + STRUCT-TEST-55/ERROR.3 STRUCT-TEST-55/ERROR.4 STRUCT-TEST-55/6 + STRUCT-TEST-55/7 STRUCT-TEST-55/8 STRUCT-TEST-55/ERROR.5 + STRUCT-TEST-55/ERROR.6 STRUCT-TEST-55/9 STRUCTURE-55-1 + STRUCT-TEST-56/1 STRUCT-TEST-56/2 STRUCT-TEST-56/ERROR.1 + STRUCT-TEST-56/ERROR.2 STRUCT-TEST-56/3 STRUCT-TEST-56/5 + STRUCT-TEST-56/ERROR.3 STRUCT-TEST-56/ERROR.4 STRUCT-TEST-56/6 + STRUCT-TEST-56/7 STRUCT-TEST-56/8 STRUCT-TEST-56/ERROR.5 + STRUCT-TEST-56/ERROR.6 STRUCT-TEST-56/9 STRUCTURE-56-1 + STRUCT-TEST-57/1 STRUCT-TEST-57/2 STRUCT-TEST-57/ERROR.1 + STRUCT-TEST-57/ERROR.2 STRUCT-TEST-57/3 STRUCT-TEST-57/4 + STRUCT-TEST-57/5 STRUCT-TEST-57/ERROR.3 STRUCT-TEST-57/ERROR.4 + STRUCT-TEST-57/6 STRUCT-TEST-57/7 STRUCT-TEST-57/8 + STRUCT-TEST-57/ERROR.5 STRUCT-TEST-57/ERROR.6 STRUCT-TEST-57/9 + STRUCT-TEST-57/13 STRUCT-TEST-57/14 STRUCT-TEST-57/15 +Test STRUCT-TEST-57/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-57)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-57 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-57/17 STRUCT-TEST-57/15A STRUCT-TEST-57/15B + STRUCT-TEST-57/20 STRUCT-TEST-58/1 STRUCT-TEST-58/2 + STRUCT-TEST-58/ERROR.1 STRUCT-TEST-58/ERROR.2 STRUCT-TEST-58/3 + STRUCT-TEST-58/4 STRUCT-TEST-58/5 STRUCT-TEST-58/ERROR.3 + STRUCT-TEST-58/ERROR.4 STRUCT-TEST-58/6 STRUCT-TEST-58/7 + STRUCT-TEST-58/8 STRUCT-TEST-58/ERROR.5 STRUCT-TEST-58/ERROR.6 + STRUCT-TEST-58/9 STRUCT-TEST-58/13 STRUCT-TEST-58/14 STRUCT-TEST-58/15 +Test STRUCT-TEST-58/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-58)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-58 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-58/17 STRUCT-TEST-58/15A STRUCT-TEST-58/15B + STRUCT-TEST-58/18 STRUCT-TEST-58/19 STRUCT-TEST-58/20 STRUCT-TEST-59/1 + STRUCT-TEST-59/2 STRUCT-TEST-59/ERROR.1 STRUCT-TEST-59/ERROR.2 + STRUCT-TEST-59/3 STRUCT-TEST-59/4 STRUCT-TEST-59/5 + STRUCT-TEST-59/ERROR.3 STRUCT-TEST-59/ERROR.4 STRUCT-TEST-59/6 + STRUCT-TEST-59/7 STRUCT-TEST-59/8 STRUCT-TEST-59/ERROR.5 + STRUCT-TEST-59/ERROR.6 STRUCT-TEST-59/9 STRUCT-TEST-59/13 + STRUCT-TEST-59/14 STRUCT-TEST-59/15 +Test STRUCT-TEST-59/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-59)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-59 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-59/17 STRUCT-TEST-59/15A STRUCT-TEST-59/15B + STRUCT-TEST-59/18 STRUCT-TEST-59/19 STRUCT-TEST-59/20 STRUCT-TEST-60/1 + STRUCT-TEST-60/2 STRUCT-TEST-60/ERROR.1 STRUCT-TEST-60/ERROR.2 + STRUCT-TEST-60/3 STRUCT-TEST-60/4 STRUCT-TEST-60/5 + STRUCT-TEST-60/ERROR.3 STRUCT-TEST-60/ERROR.4 STRUCT-TEST-60/6 + STRUCT-TEST-60/7 STRUCT-TEST-60/8 STRUCT-TEST-60/ERROR.5 + STRUCT-TEST-60/ERROR.6 STRUCT-TEST-60/9 STRUCT-TEST-60/13 + STRUCT-TEST-60/14 STRUCT-TEST-60/15 +Test STRUCT-TEST-60/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-60)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-60 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). + STRUCT-TEST-60/17 STRUCT-TEST-60/15A STRUCT-TEST-60/15B + STRUCT-TEST-60/20 +Test STRUCTURE-60-1 failed +Form: (LET ((*ST-60* 10)) + (LET ((S (MAKE-STRUCT-TEST-60 :*ST-60* 200))) + (VALUES (STRUCT-TEST-60-A60 S) (STRUCT-TEST-60-*ST-60* S) + (STRUCT-TEST-60-B60 S)))) +Expected values: 10 + 200 + 10 +Actual values: 10 + 200 + 200. + STRUCTURE-61-1 STRUCTURE-62-1 STRUCTURE-62-2 STRUCT-TEST-63/1 + STRUCT-TEST-63/2 STRUCT-TEST-63/ERROR.1 STRUCT-TEST-63/ERROR.2 + STRUCT-TEST-63/3 STRUCT-TEST-63/4 STRUCT-TEST-63/5 + STRUCT-TEST-63/ERROR.3 STRUCT-TEST-63/ERROR.4 STRUCT-TEST-63/6 + STRUCT-TEST-63/7 STRUCT-TEST-63/8 STRUCT-TEST-63/ERROR.5 + STRUCT-TEST-63/ERROR.6 STRUCT-TEST-63/9 +Test STRUCT-TEST-63/13 failed +Form: (NOTNOT-MV + (TYPEP (MAKE-STRUCT-TEST-63) (FIND-CLASS ':STRUCT-TEST-63))) +Expected value: T +Actual value: #. +Test STRUCT-TEST-63/14 failed +Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) + (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) +Expected value: T +Actual value: #. + STRUCT-TEST-63/15 +Test STRUCT-TEST-63/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE ':STRUCT-TEST-63)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* ':STRUCT-TEST-63 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). +Test STRUCT-TEST-63/17 failed +Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) + (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) + '(NIL T))) + COLLECT + TYPE)) +Expected value: NIL +Actual value: #. +Test STRUCT-TEST-63/15A failed +Form: (LET ((CLASS (FIND-CLASS ':STRUCT-TEST-63))) + (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) +Expected values: T + T +Actual value: #. + STRUCT-TEST-63/15B STRUCT-TEST-63/20 +Test STRUCT-TEST-64/1 failed +Form: (AND (FBOUNDP 'MAKE-STRUCT-TEST-64) + (FUNCTIONP #'MAKE-STRUCT-TEST-64) + (SYMBOL-FUNCTION 'MAKE-STRUCT-TEST-64) + (TYPEP (MAKE-STRUCT-TEST-64) 'STRUCT-TEST-64) T) +Expected value: T +Actual value: #. +Test STRUCT-TEST-64/2 failed +Form: (LET ((S (MAKE-STRUCT-TEST-64))) + (AND (FBOUNDP 'STRUCT-TEST-64-P) (FUNCTIONP #'STRUCT-TEST-64-P) + (SYMBOL-FUNCTION 'STRUCT-TEST-64-P) + (NOTNOT (FUNCALL #'STRUCT-TEST-64-P S)) + (NOTNOT-MV (STRUCT-TEST-64-P S)))) +Expected value: T +Actual value: #. + STRUCT-TEST-64/ERROR.1 STRUCT-TEST-64/ERROR.2 STRUCT-TEST-64/3 + STRUCT-TEST-64/4 +Test STRUCT-TEST-64/5 failed +Form: (LET ((STRUCT-TEST-64-TEMP-5 + (MAKE-STRUCT-TEST-64 :C63 'STRUCT-TEST-64-SLOTTEMP-3 + :B63 'STRUCT-TEST-64-SLOTTEMP-2 :A63 + 'STRUCT-TEST-64-SLOTTEMP-1))) + (AND (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-3 + (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-5)) + (EQLT 'STRUCT-TEST-64-SLOTTEMP-3 + (FUNCALL #'STRUCT-TEST-64-C63 + STRUCT-TEST-64-TEMP-5))) + (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-2 + (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-5)) + (EQLT 'STRUCT-TEST-64-SLOTTEMP-2 + (FUNCALL #'STRUCT-TEST-64-B63 + STRUCT-TEST-64-TEMP-5))) + (AND (EQLT 'STRUCT-TEST-64-SLOTTEMP-1 + (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-5)) + (EQLT 'STRUCT-TEST-64-SLOTTEMP-1 + (FUNCALL #'STRUCT-TEST-64-A63 + STRUCT-TEST-64-TEMP-5))) + T)) +Expected value: T +Actual value: #. + STRUCT-TEST-64/ERROR.3 STRUCT-TEST-64/ERROR.4 +Test STRUCT-TEST-64/6 failed +Form: (EQT (MAKE-STRUCT-TEST-64) (MAKE-STRUCT-TEST-64)) +Expected value: NIL +Actual value: #. +Test STRUCT-TEST-64/7 failed +Form: (LET ((STRUCT-TEST-64-TEMP-7-1 (MAKE-STRUCT-TEST-64))) + (AND (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-1)) + (SETF (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2) + (EQLT (STRUCT-TEST-64-A63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2)) + (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-2)) + (SETF (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2) + (EQLT (STRUCT-TEST-64-B63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2)) + (LET ((STRUCT-TEST-64-TEMP-7-2 'STRUCT-TEST-64-SLOTTEMP-3)) + (SETF (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2) + (EQLT (STRUCT-TEST-64-C63 STRUCT-TEST-64-TEMP-7-1) + STRUCT-TEST-64-TEMP-7-2)) + T)) +Expected value: T +Actual value: #. + STRUCT-TEST-64/8 STRUCT-TEST-64/ERROR.5 STRUCT-TEST-64/ERROR.6 +Test STRUCT-TEST-64/9 failed +Form: (LET ((XTEMP-9 (MAKE-STRUCT-TEST-64 :A63 + 'STRUCT-TEST-64-SLOTTEMP-1 :B63 + 'STRUCT-TEST-64-SLOTTEMP-2 :C63 + 'STRUCT-TEST-64-SLOTTEMP-3))) + (LET ((YTEMP-9 (COPY-STRUCT-TEST-64 XTEMP-9)) + (ZTEMP-9 (FUNCALL #'COPY-STRUCT-TEST-64 XTEMP-9))) + (AND (NOT (EQLT XTEMP-9 YTEMP-9)) + (NOT (EQLT XTEMP-9 ZTEMP-9)) + (NOT (EQLT YTEMP-9 ZTEMP-9)) + (AND (EQLT (STRUCT-TEST-64-A63 XTEMP-9) + (STRUCT-TEST-64-A63 YTEMP-9)) + (EQLT (STRUCT-TEST-64-A63 XTEMP-9) + (STRUCT-TEST-64-A63 ZTEMP-9))) + (AND (EQLT (STRUCT-TEST-64-B63 XTEMP-9) + (STRUCT-TEST-64-B63 YTEMP-9)) + (EQLT (STRUCT-TEST-64-B63 XTEMP-9) + (STRUCT-TEST-64-B63 ZTEMP-9))) + (AND (EQLT (STRUCT-TEST-64-C63 XTEMP-9) + (STRUCT-TEST-64-C63 YTEMP-9)) + (EQLT (STRUCT-TEST-64-C63 XTEMP-9) + (STRUCT-TEST-64-C63 ZTEMP-9))) + T))) +Expected value: T +Actual value: #. +Test STRUCT-TEST-64/13 failed +Form: (NOTNOT-MV + (TYPEP (MAKE-STRUCT-TEST-64) (FIND-CLASS 'STRUCT-TEST-64))) +Expected value: T +Actual value: #. +Test STRUCT-TEST-64/14 failed +Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) + (NOTNOT-MV (TYPEP CLASS 'STRUCTURE-CLASS))) +Expected value: T +Actual value: #. +Test STRUCT-TEST-64/15 failed +Form: (NOTNOT-MV (TYPEP (MAKE-STRUCT-TEST-64) 'STRUCTURE-OBJECT)) +Expected value: T +Actual value: #. +Test STRUCT-TEST-64/16 failed +Form: (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* TYPE 'STRUCT-TEST-64)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST + (SUBTYPEP* 'STRUCT-TEST-64 TYPE)) + '(NIL T))) + COLLECT + TYPE) +Expected value: NIL +Actual value: (CONDITION). +Test STRUCT-TEST-64/17 failed +Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) + (LOOP + FOR + TYPE + IN + *DISJOINT-TYPES-LIST* + UNLESS + (AND (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* TYPE CLASS)) + '(NIL T)) + (EQUALT (MULTIPLE-VALUE-LIST (SUBTYPEP* CLASS TYPE)) + '(NIL T))) + COLLECT + TYPE)) +Expected value: NIL +Actual value: #. +Test STRUCT-TEST-64/15A failed +Form: (LET ((CLASS (FIND-CLASS 'STRUCT-TEST-64))) + (NOTNOT-MV (SUBTYPEP CLASS 'STRUCTURE-OBJECT))) +Expected values: T + T +Actual value: #. + STRUCT-TEST-64/15B +Test STRUCT-TEST-64/20 failed +Form: (LET ((XTEMP-20 + (MAKE-STRUCT-TEST-64 :A63 'STRUCT-TEST-64-SLOTTEMP-1 + :B63 'STRUCT-TEST-64-SLOTTEMP-2 :C63 + 'STRUCT-TEST-64-SLOTTEMP-3))) + (LET ((YTEMP-20 (COPY-STRUCTURE XTEMP-20))) + (AND (NOT (EQLT XTEMP-20 YTEMP-20)) + (EQLT (STRUCT-TEST-64-A63 XTEMP-20) + (STRUCT-TEST-64-A63 YTEMP-20)) + (EQLT (STRUCT-TEST-64-B63 XTEMP-20) + (STRUCT-TEST-64-B63 YTEMP-20)) + (EQLT (STRUCT-TEST-64-C63 XTEMP-20) + (STRUCT-TEST-64-C63 YTEMP-20)) + T))) +Expected value: T +Actual value: #. + COPY-STRUCTURE.ERROR.1 COPY-STRUCTURE.ERROR.2 STRUCTURE-BOA-TEST-01/1 + STRUCTURE-BOA-TEST-02/1 STRUCTURE-BOA-TEST-02/2 + STRUCTURE-BOA-TEST-02/3 STRUCTURE-BOA-TEST-03/1 + STRUCTURE-BOA-TEST-03/2 STRUCTURE-BOA-TEST-04/1 + STRUCTURE-BOA-TEST-04/2 STRUCTURE-BOA-TEST-05/1 + STRUCTURE-BOA-TEST-05/2 STRUCTURE-BOA-TEST-05/3 + STRUCTURE-BOA-TEST-05/4 STRUCTURE-BOA-TEST-06/1 + STRUCTURE-BOA-TEST-06/2 STRUCTURE-BOA-TEST-06/3 + STRUCTURE-BOA-TEST-06/4 STRUCTURE-BOA-TEST-07/1 + STRUCTURE-BOA-TEST-07/2 STRUCTURE-BOA-TEST-07/3 + STRUCTURE-BOA-TEST-07/4 +Test STRUCTURE-BOA-TEST-08/1 failed +Form: (SBT-SLOTS 'SBT-08 (SBT-08-CON :FOO 10) :A) +Expected value: (10) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/1 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON) :A :B :C :F :G) +Expected value: (P Q R S (NIL NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/2 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :D 1) :A :B :C :D :F :G) +Expected value: (P Q R 1 S (NIL NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/3 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :A 1) :A :B :C :F :G) +Expected value: (1 Q R S (T NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/4 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :X 1) :A :B :C :F :G) +Expected value: (P 1 R S (NIL NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/5 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :C 1) :A :B :C :F :G) +Expected value: (P Q 1 S (NIL NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/6 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :Y 1) :A :B :C :E :F :G) +Expected value: (P Q R 1 S (NIL NIL)) +Actual value: #. +Test STRUCTURE-BOA-TEST-09/7 failed +Form: (SBT-SLOTS 'SBT-09 (SBT-09-CON :Z 1) :A :B :C :F :G) +Expected value: (P Q R 1 (NIL T)) +Actual value: #. + STRUCTURE-BOA-TEST-10/1 STRUCTURE-BOA-TEST-11/1 STRUCTURE-BOA-12/1 + STRUCTURE-BOA-12/2 STRUCTURE-BOA-12/3 +Test STRUCTURE-BOA-TEST-13/1 failed +Form: (SBT-13-D (SBT-13-CON)) +Expected value: (1 2 NIL) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/2 failed +Form: (SBT-13-D (SBT-13-CON :A 10)) +Expected value: (10 2 NIL) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/3 failed +Form: (SBT-13-D (SBT-13-CON :B 10)) +Expected value: (1 10 NIL) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/4 failed +Form: (SBT-13-D (SBT-13-CON :C 10)) +Expected value: (1 2 10) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/5 failed +Form: (SBT-13-D (SBT-13-CON :C 10 :A 3)) +Expected value: (3 2 10) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/6 failed +Form: (SBT-13-D (SBT-13-CON :C 10 :B 3)) +Expected value: (1 3 10) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/7 failed +Form: (SBT-13-D (SBT-13-CON :A 10 :B 3)) +Expected value: (10 3 NIL) +Actual value: #. +Test STRUCTURE-BOA-TEST-13/8 failed +Form: (SBT-13-D (SBT-13-CON :A 10 :C 'A :B 3)) +Expected value: (10 3 A) +Actual value: #. +Test STRUCTURE-BOA-TEST-14/1 failed +Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON) :A :B :C) +Expected value: (1 2 3) +Actual value: #. +Test STRUCTURE-BOA-TEST-14/2 failed +Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :A 9) :A :B :C) +Expected value: (9 2 3) +Actual value: #. +Test STRUCTURE-BOA-TEST-14/3 failed +Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :B 9) :A :B :C) +Expected value: (1 9 3) +Actual value: #. +Test STRUCTURE-BOA-TEST-14/4 failed +Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :C 9) :A :B :C) +Expected value: (1 2 9) +Actual value: #. +Test STRUCTURE-BOA-TEST-14/5 failed +Form: (SBT-SLOTS 'SBT-14 (SBT-14-CON :D 9) :A :B :C) +Expected value: (1 2 3) +Actual value: #. +Test STRUCTURE-BOA-TEST-15/1 failed +Form: (SBT-SLOTS 'SBT-15 (SBT-15-CON :X 1 'Y 2 :C 3) :A :B :C) +Expected value: (1 2 3) +Actual value: #. +Test STRUCTURE-BOA-TEST-15/2 failed +Form: (CLASSIFY-ERROR (SBT-15-CON :A 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/3 failed +Form: (CLASSIFY-ERROR (SBT-15-CON :B 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/4 failed +Form: (CLASSIFY-ERROR (SBT-15-CON 'X 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/5 failed +Form: (CLASSIFY-ERROR (SBT-15-CON :Y 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/6 failed +Form: (CLASSIFY-ERROR (SBT-15-CON 'C 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/7 failed +Form: (CLASSIFY-ERROR (SBT-15-CON 'A 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. +Test STRUCTURE-BOA-TEST-15/8 failed +Form: (CLASSIFY-ERROR (SBT-15-CON 'B 1)) +Expected value: PROGRAM-ERROR +Actual value: UNDEFINED-FUNCTION. + STRUCTURE-BOA-TEST-16/1 STRUCTURE-BOA-TEST-16/2 + STRUCTURE-BOA-TEST-16/3 STRUCTURE-BOA-TEST-16/4 + STRUCTURE-BOA-TEST-16/5 STRUCTURE-BOA-TEST-16/6 + STRUCTURE-BOA-TEST-16/7 STRUCTURE-BOA-TEST-16/8 + STRUCTURE-BOA-TEST-16/10 STRUCTURE-BOA-TEST-16/11 BOOLEAN-TYPE.1 + BOOLEAN-TYPE.2 BOOLEAN-TYPE.3 +Test TYPES.3 failed +Form: (LOOP + FOR + (T1 T2) + IN + *SUBTYPE-TABLE* + FOR + M1 + = + (CHECK-SUBTYPEP T1 T2 T T) + FOR + M2 + = + (CHECK-SUBTYPEP (LIST 'AND T1 T2) T1 T) + FOR + M3 + = + (CHECK-SUBTYPEP (LIST 'AND T2 T1) T1 T) + FOR + M4 + = + (CHECK-SUBTYPEP (LIST 'AND T1 (LIST 'NOT T2)) NIL T) + FOR + M5 + = + (CHECK-SUBTYPEP (LIST 'AND (LIST 'NOT T2) T1) NIL T) + WHEN + M1 + COLLECT + M1 + WHEN + M2 + COLLECT + M2 + WHEN + M3 + COLLECT + M3 + WHEN + M4 + COLLECT + M4 + WHEN + M5 + COLLECT + M5) +Expected value: NIL +Actual value: ((((SUBTYPEP 'GENERIC-FUNCTION 'FUNCTION) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-GENERIC-FUNCTION + 'GENERIC-FUNCTION) + ==> NIL NIL)) + (((SUBTYPEP 'CLASS 'STANDARD-OBJECT) ==> NIL NIL)) + (((SUBTYPEP 'BUILT-IN-CLASS 'CLASS) ==> NIL NIL)) + (((SUBTYPEP 'STRUCTURE-CLASS 'CLASS) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-CLASS 'CLASS) ==> NIL NIL)) + (((SUBTYPEP 'METHOD 'STANDARD-OBJECT) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-METHOD 'METHOD) ==> NIL NIL)) + (((SUBTYPEP 'SERIOUS-CONDITION 'CONDITION) ==> NIL NIL)) + (((SUBTYPEP 'ERROR 'SERIOUS-CONDITION) ==> NIL NIL)) + (((SUBTYPEP 'TYPE-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'TYPE-ERROR) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-CONDITION 'CONDITION) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'SIMPLE-CONDITION) ==> + NIL NIL)) + (((SUBTYPEP 'PARSE-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'CELL-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'UNBOUND-SLOT 'CELL-ERROR) ==> NIL NIL)) + (((SUBTYPEP 'WARNING 'CONDITION) ==> NIL NIL)) + (((SUBTYPEP 'STYLE-WARNING 'WARNING) ==> NIL NIL)) + (((SUBTYPEP 'STORAGE-CONDITION 'SERIOUS-CONDITION) ==> + NIL NIL)) + (((SUBTYPEP 'SIMPLE-WARNING 'WARNING) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-WARNING 'SIMPLE-CONDITION) ==> NIL + NIL)) + (((SUBTYPEP 'UNBOUND-VARIABLE 'CELL-ERROR) ==> NIL NIL)) + (((SUBTYPEP 'CONTROL-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'PROGRAM-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'UNDEFINED-FUNCTION 'CELL-ERROR) ==> NIL + NIL)) + (((SUBTYPEP 'PACKAGE-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'ARITHMETIC-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'DIVISION-BY-ZERO 'ARITHMETIC-ERROR) ==> NIL + NIL)) + (((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION + 'ARITHMETIC-ERROR) + ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-INEXACT 'ARITHMETIC-ERROR) + ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-OVERFLOW 'ARITHMETIC-ERROR) + ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-UNDERFLOW 'ARITHMETIC-ERROR) + ==> NIL NIL)) + (((SUBTYPEP 'FILE-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'STRING-STREAM 'STREAM) ==> NIL NIL)) + (((SUBTYPEP 'STREAM-ERROR 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'END-OF-FILE 'STREAM-ERROR) ==> NIL NIL)) + (((SUBTYPEP 'PRINT-NOT-READABLE 'ERROR) ==> NIL NIL)) + (((SUBTYPEP 'READER-ERROR 'PARSE-ERROR) ==> NIL NIL)) + (((SUBTYPEP 'READER-ERROR 'STREAM-ERROR) ==> NIL NIL))). +Test TYPES.6 failed +Form: (TYPES.6-BODY) +Expected value: NIL +Actual value: ((((SUBTYPEP 'STANDARD-OBJECT 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'GENERIC-FUNCTION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-GENERIC-FUNCTION 'ATOM) ==> NIL + NIL)) + (((SUBTYPEP 'CLASS 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'BUILT-IN-CLASS 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STRUCTURE-CLASS 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-CLASS 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'METHOD 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STANDARD-METHOD 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'METHOD-COMBINATION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'CONDITION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SERIOUS-CONDITION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'TYPE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-CONDITION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-TYPE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'PARSE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'CELL-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'UNBOUND-SLOT 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'WARNING 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STYLE-WARNING 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STORAGE-CONDITION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-WARNING 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'SIMPLE-WARNING 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'UNBOUND-VARIABLE 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'CONTROL-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'PROGRAM-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'UNDEFINED-FUNCTION 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'PACKAGE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'ARITHMETIC-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'DIVISION-BY-ZERO 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-INVALID-OPERATION 'ATOM) ==> + NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-INEXACT 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-OVERFLOW 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'FLOATING-POINT-UNDERFLOW 'ATOM) ==> NIL + NIL)) + (((SUBTYPEP 'FILE-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STRING-STREAM 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'STREAM-ERROR 'ATOM) ==> NIL NIL)) + (((SUBTYPEP 'END-OF-FILE 'ATOM) ==> NIL NIL)) + (((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 @@ -28944,17 +28979,17 @@ '(NOT STRUCTURE-OBJECT)) ==> NIL T) ((SUBTYPEP 'ARITHMETIC-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # + # 'ARITHMETIC-ERROR) ==> NIL T) ((SUBTYPEP '(NOT ARITHMETIC-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT ARITHMETIC-ERROR)) ==> NIL T) ((SUBTYPEP 'SYMBOL @@ -28971,17 +29006,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 @@ -29050,17 +29085,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 @@ -29103,17 +29138,17 @@ '(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 @@ -29199,16 +29234,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 @@ -29239,17 +29274,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 @@ -29266,31 +29301,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 @@ -29347,17 +29382,17 @@ '(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 @@ -29401,29 +29436,29 @@ '(NOT FILE-ERROR)) ==> NIL T) ((SUBTYPEP 'RESTART - #) + #) ==> NIL T) ((SUBTYPEP - # 'RESTART) + # 'RESTART) ==> NIL T) ((SUBTYPEP '(NOT RESTART) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT RESTART)) ==> NIL T) ((SUBTYPEP 'TYPE-ERROR - #) + #) ==> NIL T) ((SUBTYPEP - # 'TYPE-ERROR) + # 'TYPE-ERROR) ==> NIL T) ((SUBTYPEP '(NOT TYPE-ERROR) - '(NOT #)) + '(NOT #)) ==> NIL T) ((SUBTYPEP - '(NOT #) + '(NOT #) '(NOT TYPE-ERROR)) ==> NIL T) ((SUBTYPEP 'LIST @@ -29485,17 +29520,17 @@ '(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 @@ -29527,58 +29562,58 @@ '(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 @@ -29651,17 +29686,17 @@ '(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 @@ -29902,7 +29937,7 @@ (LIST E TYPES)) Expected value: NIL Actual value: ((CONS (SYMBOL FUNCTION)) - ((SYSTEM:LAMBDA-CLOSURE () () () (X) X) (CONS FUNCTION))). + ((SYSTEM:L RENAME-FILE.1AMBDA-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 @@ -30450,7 +30485,8 @@ INTERACTIVE-STREAM-P.ERROR.3 OPEN-STREAM-P.1 OPEN-STREAM-P.2 OPEN-STREAM-P.3 OPEN-STREAM-P.4 OPEN-STREAM-P.5 OPEN-STREAM-P.ERROR.1 OPEN-STREAM-P.ERROR.2 OPEN-STREAM-P.ERROR.3 STREAM-ELEMENT-TYPE.1 - STREAM-ELEMENT-TYPE.2 STREAM-ELEMENT-TYPE.3 RENAME-FILE.5 RENAME-FILE.6 + STREAM-ELEMENT-TYPE.2 + RENAME-FILE.2 RENAME-FILE.3 RENAME-FILE.4 RENAME-FILE.5 RENAME-FILE.6 RENAME-FILE.7 RENAME-FILE.ERROR.1 DELETE-FILE.1 DELETE-FILE.2 DELETE-FILE.3 DELETE-FILE.4 DELETE-FILE.5 DELETE-FILE.ERROR.1 DELETE-FILE.ERROR.2 FILE-ERROR.1 FILE-ERROR-PATHNAME.1 @@ -30976,10 +31012,7 @@ CHAR-NOT-GREATERP.5 CHAR-NOT-GREATERP.6 CHAR-NOT-GREATERP.7 CHAR-NOT-GREATERP.8 CHAR-NOT-GREATERP.ORDER.1 CHAR-NOT-GREATERP.ORDER.2 CHAR-NOT-GREATERP.ORDER.3 - CHAR-NOT-GREATERP.ORDER.4 CHAR-LESSP.1 CHAR-LESSP.2 CHAR-LESSP.3 - CHAR-LESSP.4 CHAR-LESSP.5 CHAR-LESSP.6 CHAR-LESSP.7 CHAR-LESSP.8 - CHAR-LESSP.ORDER.1 CHAR-LESSP.ORDER.2 CHAR-LESSP.ORDER.3 - CHAR-LESSP.ORDER.4 CHAR-NOT-LESSP.1 CHAR-NOT-LESSP.2 STREAM-ELEMENT-TYPE.4 + CHAR-NOT-GREATERP.ORDER.4 CHAR-LESSP.1 CHAR-LESSP.2 STREAM-ELEMENT-TYPE.3 STREAM-ELEMENT-TYPE.4 STREAM-ELEMENT-TYPE.5 STREAM-ELEMENT-TYPE.6 STREAM-ELEMENT-TYPE.ERROR.1 STREAM-ELEMENT-TYPE.ERROR.2 STREAM-ELEMENT-TYPE.ERROR.3 STREAMP.1 STREAMP.2 STREAMP.3 STREAMP.4 @@ -31604,7 +31637,30 @@ cat debian/in.gcl-doc.doc-base.si | sed 's,@EXT@,,g' >debian/gcl-doc.doc-base.si cat debian/in.gcl-doc.doc-base.tk | sed 's,@EXT@,,g' >debian/gcl-doc.doc-base.tk cat debian/in.gcl-doc.doc-base.xgcl | sed 's,@EXT@,,g' >debian/gcl-doc.doc-base.xgcl - CHAR-NOT-LESSP.3 +cat debian/in.gcl-doc.docs | sed 's,@EXT@,,g' >debian/gcl-doc.docs +cat debian/in.gcl-doc.info | sed 's,@EXT@,,g' >debian/gcl-doc.info +cat debian/in.gcl-doc.install | sed 's,@EXT@,,g' >debian/gcl-doc.install +cat debian/in.gcl.config | sed 's,@EXT@,,g' >debian/gcl.config +cat debian/in.gcl.docs | sed 's,@EXT@,,g' >debian/gcl.docs +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 +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 +dh_prep +dh_installdirs +dh_installdirs: warning: Use of debian/compat is deprecated and will be removed in debhelper (>= 14~). +mkdir -p debian/tmp +cp -a debian/ansi/* debian/tmp/ + CHAR-LESSP.3 + CHAR-LESSP.4 CHAR-LESSP.5 CHAR-LESSP.6 CHAR-LESSP.7 CHAR-LESSP.8 + CHAR-LESSP.ORDER.1 CHAR-LESSP.ORDER.2 CHAR-LESSP.ORDER.3 + CHAR-LESSP.ORDER.4 CHAR-NOT-LESSP.1 CHAR-NOT-LESSP.2 CHAR-NOT-LESSP.3 CHAR-NOT-LESSP.4 CHAR-NOT-LESSP.5 CHAR-NOT-LESSP.6 CHAR-NOT-LESSP.7 CHAR-NOT-LESSP.8 CHAR-NOT-LESSP.ORDER.1 CHAR-NOT-LESSP.ORDER.2 CHAR-NOT-LESSP.ORDER.3 CHAR-NOT-LESSP.ORDER.4 CHAR-GREATERP.1 @@ -31706,27 +31762,7 @@ WITH-OUTPUT-TO-STRING.16, DIGIT-CHAR.ERROR.2, CODE-CHAR.ERROR.2.;; Finished loading "gclload.lsp" T ->cat debian/in.gcl-doc.docs | sed 's,@EXT@,,g' >debian/gcl-doc.docs -cat debian/in.gcl-doc.info | sed 's,@EXT@,,g' >debian/gcl-doc.info -cat debian/in.gcl-doc.install | sed 's,@EXT@,,g' >debian/gcl-doc.install -cat debian/in.gcl.config | sed 's,@EXT@,,g' >debian/gcl.config -cat debian/in.gcl.docs | sed 's,@EXT@,,g' >debian/gcl.docs -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 -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 -dh_prep -dh_installdirs -dh_installdirs: warning: Use of debian/compat is deprecated and will be removed in debhelper (>= 14~). -mkdir -p debian/tmp -cp -a debian/ansi/* debian/tmp/ -cp -a debian/trad/* debian/tmp/ +>cp -a debian/trad/* debian/tmp/ cp -a debian/gprof/* debian/tmp/ cp -a debian/ansi-gprof/* debian/tmp/ mv debian/tmp/usr/share/emacs/site-lisp debian/tmp/usr/share/emacs/foo @@ -31825,18 +31861,18 @@ dh_shlibdeps -a dh_shlibdeps: warning: Use of debian/compat is deprecated and will be removed in debhelper (>= 14~). dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-aarch64.so.1 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-aarch64.so.1.usr-is-merged -dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libtirpc3t64 from: /lib/aarch64-linux-gnu/libtirpc.so.3 dpkg-shlibdeps: warning: diversions involved - output may be incorrect diversion by libtirpc3t64 to: /lib/aarch64-linux-gnu/libtirpc.so.3.usr-is-merged +dpkg-shlibdeps: warning: diversions involved - output may be incorrect + diversion by libc6 from: /lib/ld-linux-aarch64.so.1 +dpkg-shlibdeps: warning: diversions involved - output may be incorrect + diversion by libc6 to: /lib/ld-linux-aarch64.so.1.usr-is-merged dh_gencontrol -a -u"-Vgcc=gcc" dh_md5sums -a dh_builddeb -a -dpkg-deb: building package 'gcl-dbgsym' in '../gcl-dbgsym_2.6.14-11_arm64.deb'. dpkg-deb: building package 'gcl' in '../gcl_2.6.14-11_arm64.deb'. +dpkg-deb: building package 'gcl-dbgsym' in '../gcl-dbgsym_2.6.14-11_arm64.deb'. dpkg-genbuildinfo --build=binary -O../gcl_2.6.14-11_arm64.buildinfo dpkg-genchanges --build=binary -O../gcl_2.6.14-11_arm64.changes dpkg-genchanges: info: binary-only upload (no source code included) @@ -31844,12 +31880,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/1973054/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/1973054/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/3902051 and its subdirectories -I: Current time: Mon Aug 19 16:32:59 -12 2024 -I: pbuilder-time-stamp: 1724128379 +I: removing directory /srv/workspace/pbuilder/1973054 and its subdirectories +I: Current time: Tue Sep 23 01:14:10 +14 2025 +I: pbuilder-time-stamp: 1758539650