Diff of the two buildlogs: -- --- b1/build.log 2024-11-13 04:43:38.889262021 +0000 +++ b2/build.log 2024-11-13 05:26:25.617498877 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Tue Nov 12 16:07:02 -12 2024 -I: pbuilder-time-stamp: 1731470822 +I: Current time: Wed Nov 13 18:44:29 +14 2024 +I: pbuilder-time-stamp: 1731473069 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -35,52 +35,84 @@ dpkg-source: info: applying pari-2.17-fixes.patch I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/21470/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/D01_modify_environment starting +debug: Running on ff4a. +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 Nov 13 04:45 /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/23608/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/23608/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='armhf' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=3 ' - DISTRIBUTION='unstable' - HOME='/root' - HOST_ARCH='armhf' + 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]="32" [3]="1" [4]="release" [5]="arm-unknown-linux-gnueabihf") + BASH_VERSION='5.2.32(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=armhf + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=4 ' + DIRSTACK=() + DISTRIBUTION=unstable + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=arm + HOST_ARCH=armhf IFS=' ' - INVOCATION_ID='d284fd34340048609b6cec56e901678a' - 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='21470' - PS1='# ' - PS2='> ' + INVOCATION_ID=9f79a393aac74d37aebaf701ffa9c87f + LANG=C + LANGUAGE=it_CH:it + LC_ALL=C + MACHTYPE=arm-unknown-linux-gnueabihf + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnueabihf + 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=23608 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.oLeylWTq/pbuilderrc_GV4b --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.oLeylWTq/b1 --logfile b1/build.log clisp_2.49.20241103.git386dcd7-3.dsc' - SUDO_GID='110' - SUDO_UID='103' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://10.0.0.15:3142/' + 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.oLeylWTq/pbuilderrc_BC7l --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.oLeylWTq/b2 --logfile b2/build.log clisp_2.49.20241103.git386dcd7-3.dsc' + SUDO_GID=113 + SUDO_UID=107 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://10.0.0.15:3142/ I: uname -a - Linux virt64z 6.1.0-27-arm64 #1 SMP Debian 6.1.115-1 (2024-11-01) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-27-armmp-lpae #1 SMP Debian 6.1.115-1 (2024-11-01) armv7l GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Aug 4 21:30 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/21470/tmp/hooks/D02_print_environment finished +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -286,7 +318,7 @@ Get: 126 http://deb.debian.org/debian unstable/main armhf libxext-dev armhf 2:1.3.4-1+b2 [100 kB] Get: 127 http://deb.debian.org/debian unstable/main armhf libxpm-dev armhf 1:3.5.17-1+b2 [124 kB] Get: 128 http://deb.debian.org/debian unstable/main armhf zlib1g-dev armhf 1:1.3.dfsg+really1.3.1-1+b1 [905 kB] -Fetched 71.5 MB in 3s (23.5 MB/s) +Fetched 71.5 MB in 9s (8047 kB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package poppler-data. (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 ... 19689 files and directories currently installed.) @@ -824,7 +856,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/ && 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 > ../clisp_2.49.20241103.git386dcd7-3_source.changes +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/ && 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 > ../clisp_2.49.20241103.git386dcd7-3_source.changes dpkg-buildpackage: info: source package clisp dpkg-buildpackage: info: source version 1:2.49.20241103.git386dcd7-3 dpkg-buildpackage: info: source distribution unstable @@ -873,8 +909,8 @@ checking whether make supports nested variables... yes checking xargs -n works... yes configure: ** check for host type -checking build system type... aarch64-unknown-linux-gnu -checking host system type... aarch64-unknown-linux-gnu +checking build system type... armv7l-unknown-linux-gnueabihf +checking host system type... armv7l-unknown-linux-gnueabihf configure: ** checks for programs checking for gcc... gcc checking whether the C compiler works... yes @@ -957,8 +993,8 @@ checking the name lister (/usr/bin/nm -B) interface... BSD nm checking whether ln -s works... yes checking the maximum length of command line arguments... 1572864 -checking how to convert aarch64-unknown-linux-gnu file names to aarch64-unknown-linux-gnu format... func_convert_file_noop -checking how to convert aarch64-unknown-linux-gnu file names to toolchain format... func_convert_file_noop +checking how to convert armv7l-unknown-linux-gnueabihf file names to armv7l-unknown-linux-gnueabihf format... func_convert_file_noop +checking how to convert armv7l-unknown-linux-gnueabihf file names to toolchain format... func_convert_file_noop checking for /usr/bin/ld option to reload object files... -r checking for file... file checking for objdump... objdump @@ -1429,9 +1465,9 @@ checking for netinet/tcp.h... yes checking for setsockopt declaration... extern int setsockopt (int, int, int, const void*, unsigned int); checking for the code address range... 0x00000000 -checking for the malloc address range... 0x02000000 -checking for the shared library address range... 0xF7000000 -checking for the stack address range... 0xFF000000 +checking for the malloc address range... 0x01000000 +checking for the shared library address range... 0xB6000000 +checking for the stack address range... 0xBE000000 checking for usable vadvise... no checking for vm_allocate... no checking for sys/mman.h... (cached) yes @@ -5856,8 +5892,8 @@ ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.lisp ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.lisp Bytes permanently allocated: 90,848 -Bytes currently in use: 5,422,888 -Bytes available until next GC: 2,711,444 +Bytes currently in use: 5,422,952 +Bytes available until next GC: 2,711,476 Bye. mv lispimag.mem interpreted.mem ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M interpreted.mem -q -c /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/compiler.lisp -o ./ @@ -6078,8 +6114,8 @@ ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.lisp ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.lisp Bytes permanently allocated: 90,848 -Bytes currently in use: 4,712,760 -Bytes available until next GC: 2,356,380 +Bytes currently in use: 4,712,824 +Bytes available until next GC: 2,356,412 Bye. mv lispimag.mem halfcompiled.mem ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/init.lisp -o ./ @@ -6740,10 +6776,10 @@ ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/deprecated.fas ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.fas ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/config.fas -;; Wrote the memory image into lispinit.mem (1,987,300 bytes) +;; Wrote the memory image into lispinit.mem (1,987,364 bytes) Bytes permanently allocated: 90,848 -Bytes currently in use: 1,894,936 -Bytes available until next GC: 944,984 +Bytes currently in use: 1,895,000 +Bytes available until next GC: 945,016 Bye. rm -f ANNOUNCE ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/ANNOUNCE ANNOUNCE @@ -6830,7 +6866,7 @@ /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/constobj.d:329:54: warning: macro "__TIME__" might prevent reproducible builds [-Wdate-time] 329 | LISPOBJ_S(lisp_implementation_version_built_string,__DATE__ __TIME__) | ^~~~~~~~ -./gen-clisp1 | grep -v '^ *$' | sed -e 's/\(.\)\.PP/\1\n.PP/p' | sed -e "s,@PLATFORM@,aarch64-unknown-linux-gnu,g" > clisp.1 +./gen-clisp1 | grep -v '^ *$' | sed -e 's/\(.\)\.PP/\1\n.PP/p' | sed -e "s,@PLATFORM@,armv7l-unknown-linux-gnueabihf,g" > clisp.1 rm -f gen-clisp1.c gen-clisp1 ./txt2c -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/ < /build/reproducible-path/clisp-2.49.20241103.git386dcd7/doc/_clisp.html > gen-clisphtml.c gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,-z,relro -O0 gen-clisphtml.c libgnu.a -o gen-clisphtml @@ -6849,7 +6885,7 @@ /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/constobj.d:329:54: warning: macro "__TIME__" might prevent reproducible builds [-Wdate-time] 329 | LISPOBJ_S(lisp_implementation_version_built_string,__DATE__ __TIME__) | ^~~~~~~~ -./gen-clisphtml | sed -e "s,@PLATFORM@,aarch64-unknown-linux-gnu,g" > clisp.html +./gen-clisphtml | sed -e "s,@PLATFORM@,armv7l-unknown-linux-gnueabihf,g" > clisp.html rm -f gen-clisphtml.c gen-clisphtml ./txt2c -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/ < /build/reproducible-path/clisp-2.49.20241103.git386dcd7/doc/_clisp-link.1 > gen-clisp-link1.c gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,-z,relro -O0 gen-clisp-link1.c libgnu.a -o gen-clisp-link1 @@ -6868,7 +6904,7 @@ /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/constobj.d:329:54: warning: macro "__TIME__" might prevent reproducible builds [-Wdate-time] 329 | LISPOBJ_S(lisp_implementation_version_built_string,__DATE__ __TIME__) | ^~~~~~~~ -./gen-clisp-link1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,aarch64-unknown-linux-gnu,g" > clisp-link.1 +./gen-clisp-link1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,armv7l-unknown-linux-gnueabihf,g" > clisp-link.1 rm -f gen-clisp-link1.c gen-clisp-link1 ./txt2c -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/ < /build/reproducible-path/clisp-2.49.20241103.git386dcd7/doc/_clisp-link.html > gen-clisp-linkhtml.c gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,-z,relro -O0 gen-clisp-linkhtml.c libgnu.a -o gen-clisp-linkhtml @@ -6887,7 +6923,7 @@ /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/constobj.d:329:54: warning: macro "__TIME__" might prevent reproducible builds [-Wdate-time] 329 | LISPOBJ_S(lisp_implementation_version_built_string,__DATE__ __TIME__) | ^~~~~~~~ -./gen-clisp-linkhtml | sed -e "s,@PLATFORM@,aarch64-unknown-linux-gnu,g" > clisp-link.html +./gen-clisp-linkhtml | sed -e "s,@PLATFORM@,armv7l-unknown-linux-gnueabihf,g" > clisp-link.html rm -f gen-clisp-linkhtml.c gen-clisp-linkhtml rm -f LISP-tutorial.txt ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/doc/LISP-tutorial.txt LISP-tutorial.txt @@ -6980,9 +7016,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f i18n/Makefile || test -n "`find $m/Makefile -prune -newer i18n/Makefile`"; } ; then \ @@ -6992,7 +7028,7 @@ cd i18n ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** I18N (Common) @@ -7100,9 +7136,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f syscalls/Makefile || test -n "`find $m/Makefile -prune -newer syscalls/Makefile`"; } ; then \ @@ -7112,7 +7148,7 @@ cd syscalls ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** System Calls (Common) @@ -7172,8 +7208,8 @@ checking for sys/statfs.h... yes checking for sys/param.h... (cached) yes checking for ftw.h... yes -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for gcc option to support large files... (cached) none needed checking size of off_t... (cached) 8 checking size of gid_t... 4 @@ -7406,9 +7442,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f regexp/Makefile || test -n "`find $m/Makefile -prune -newer regexp/Makefile`"; } ; then \ @@ -7418,7 +7454,7 @@ cd regexp ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Regexp (Common) @@ -7518,9 +7554,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \ @@ -7530,7 +7566,7 @@ cd readline ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Readline (Common) @@ -7566,8 +7602,8 @@ checking whether _XOPEN_SOURCE should be defined... (cached) no configure: ** Readline (Headers, Variables & Functions) checking for library containing tgetent... (cached) -lncurses -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -7798,16 +7834,16 @@ ;; Loaded file syscalls/preload.lisp ;; Loading file regexp/preload.lisp ... ;; Loaded file regexp/preload.lisp -;; Wrote the memory image into base/lispinit.mem (1,977,308 bytes) +;; Wrote the memory image into base/lispinit.mem (1,977,428 bytes) Bytes permanently allocated: 90,848 -Bytes currently in use: 1,885,448 -Bytes available until next GC: 939,484 -1885448 ; -939484 ; +Bytes currently in use: 1,885,568 +Bytes available until next GC: 939,544 +1885568 ; +939544 ; 90848 ; 1 ; -155992 ; -13969 +156160 ; +27207 base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem") ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n/i18n.fas ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n/i18n.fas @@ -7817,16 +7853,16 @@ ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp/regexp.fas ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline/readline.fas ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline/readline.fas -;; Wrote the memory image into base/lispinit.mem (2,251,736 bytes) +;; Wrote the memory image into base/lispinit.mem (2,251,856 bytes) Bytes permanently allocated: 94,560 -Bytes currently in use: 2,153,504 -Bytes available until next GC: 1,073,512 -2153504 ; -1073512 ; +Bytes currently in use: 2,153,624 +Bytes available until next GC: 1,073,572 +2153624 ; +1073572 ; 94560 ; 2 ; -898048 ; -33775 +898272 ; +66316 mkdir -p gdbm m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/gdbm; pwd`; \ if test -f $m/configure && { test ! -f gdbm/config.status || test -n "`find $m/configure -prune -newer gdbm/config.status`"; } ; then ( cd gdbm ;\ @@ -7842,9 +7878,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f gdbm/Makefile || test -n "`find $m/Makefile -prune -newer gdbm/Makefile`"; } ; then \ @@ -7854,7 +7890,7 @@ cd gdbm ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Gdbm (Common) @@ -7887,8 +7923,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -8021,9 +8057,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \ @@ -8033,7 +8069,7 @@ cd berkeley-db ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Berkeley-DB (Common) @@ -8066,8 +8102,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -8207,9 +8243,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f rawsock/Makefile || test -n "`find $m/Makefile -prune -newer rawsock/Makefile`"; } ; then \ @@ -8219,7 +8255,7 @@ cd rawsock ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Rawsock (Common) @@ -8255,8 +8291,8 @@ checking whether _XOPEN_SOURCE should be defined... (cached) no configure: ** Rawsock (Headers) checking for library containing setsockopt... (cached) none needed -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for IPv4 sockets... (cached) yes checking for IPv6 sockets... (cached) yes checking for setsockopt... (cached) yes @@ -8370,9 +8406,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f clx/new-clx/Makefile || test -n "`find $m/Makefile -prune -newer clx/new-clx/Makefile`"; } ; then \ @@ -8382,7 +8418,7 @@ cd clx/new-clx ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** NEW CLX @@ -8423,8 +8459,8 @@ checking for remove... (cached) yes checking for shmat... (cached) yes checking for IceConnectionNumber in -lICE... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for gcc option to support large files... (cached) none needed checking size of KeySym... 4 checking for XGetAtomNames... yes @@ -8571,9 +8607,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \ @@ -8646,9 +8682,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \ @@ -8658,7 +8694,7 @@ cd postgresql ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** PostgreSQL (Common) @@ -8692,8 +8728,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -8888,9 +8924,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \ @@ -8900,7 +8936,7 @@ cd zlib ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Zlib (Common) @@ -8934,8 +8970,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -8990,9 +9026,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \ @@ -9002,7 +9038,7 @@ cd dbus ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** Dbus (Common) @@ -9311,9 +9347,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f asdf/Makefile || test -n "`find $m/Makefile -prune -newer asdf/Makefile`"; } ; then \ @@ -9370,9 +9406,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \ @@ -9382,7 +9418,7 @@ cd fastcgi ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** FastCGI (Common) @@ -9419,8 +9455,8 @@ configure: ** FastCGI (Programs) checking whether ln -s works... yes checking whether make sets $(MAKE)... (cached) yes -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -9501,9 +9537,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \ @@ -9513,7 +9549,7 @@ cd libsvm ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** LibSVM (Common) @@ -9547,8 +9583,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -9624,9 +9660,9 @@ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ + /bin/sh $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ + /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \ @@ -9636,7 +9672,7 @@ cd pari ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache checking how to remove colons from paths... (cached) echo $x -checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888) +checking for CLISP version... (cached) 2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904) checking for CLISP libdir... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/ checking for CLISP linking set... (cached) /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build configure: ** PARI (Common) @@ -9670,8 +9706,8 @@ checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no -checking build system type... (cached) aarch64-unknown-linux-gnu -checking host system type... (cached) aarch64-unknown-linux-gnu +checking build system type... (cached) armv7l-unknown-linux-gnueabihf +checking host system type... (cached) armv7l-unknown-linux-gnueabihf checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done @@ -10043,16 +10079,16 @@ ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/preload.lisp ;; Loading file pari/preload.lisp ... ;; Loaded file pari/preload.lisp -;; Wrote the memory image into full/lispinit.mem (2,252,352 bytes) +;; Wrote the memory image into full/lispinit.mem (2,252,472 bytes) Bytes permanently allocated: 94,560 -Bytes currently in use: 2,154,120 -Bytes available until next GC: 1,073,820 -2154120 ; -1073820 ; +Bytes currently in use: 2,154,240 +Bytes available until next GC: 1,073,880 +2154240 ; +1073880 ; 94560 ; 1 ; -266832 ; -15369 +267056 ; +28406 full/lisp.run -B . -M full/lispinit.mem -norc -q -i gdbm/gdbm -i berkeley-db/dbi -i rawsock/sock -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i bindings/glibc/linux -i bindings/glibc/wrap -i postgresql/postgresql -i postgresql/sql -i zlib/zlib -i dbus/dbus -i asdf/asdf -i fastcgi/fastcgi -i libsvm/libsvm -i pari/pari -x (saveinitmem "full/lispinit.mem") ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm/gdbm.fas ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm/gdbm.fas @@ -10089,16 +10125,16 @@ ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/libsvm.fas ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari/pari.fas ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari/pari.fas -;; Wrote the memory image into full/lispinit.mem (5,739,404 bytes) +;; Wrote the memory image into full/lispinit.mem (5,739,508 bytes) Bytes permanently allocated: 111,328 -Bytes currently in use: 5,619,768 -Bytes available until next GC: 2,806,644 -5619768 ; -2806644 ; +Bytes currently in use: 5,619,872 +Bytes available until next GC: 2,806,696 +5619872 ; +2806696 ; 111328 ; 20 ; -37729080 ; -658185 +37729304 ; +1152201 make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build' dh_auto_test -O--builddirectory=debian/build -O--no-parallel cd debian/build && make -j1 check "TESTSUITEFLAGS=-j1 --verbose" VERBOSE=1 @@ -10726,14 +10762,14 @@ if ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (setq *error-output* *standard-output*) (error "myerror"))'; then exit 1; fi *** - myerror ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(truename (make-stream :output))' -#P"/proc/26873/fd/1" +#P"/proc/2639/fd/1" ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(truename (make-stream :output))'|cat -#P"/proc/26876/fd/1" +#P"/proc/2641/fd/1" mkdir tests cd tests && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/tests/Makefile . cd tests && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/tests/*.lisp . cd tests && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/tests/*.tst . -cd tests && make SHELL='/bin/bash' LEXE=.run +cd tests && make SHELL='/bin/sh' LEXE=.run make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests' rm -f *.erg LC_MESSAGES=en_US ../lisp.run -E utf-8 -norc -B ../ -N ../locale -M ../lispinit.mem -m 30MW -L english -c tests @@ -12111,16 +12147,16 @@ "CLISP" EQL-OK: T (STRINGP (SHOW (LISP-IMPLEMENTATION-VERSION))) -"2.49.95+ (2024-11-03) (built 3940049870) (memory 3940460888)" +"2.49.95+ (2024-11-03) (built 3940049870) (memory 3940462904)" EQL-OK: T (STRINGP (SHOW (MACHINE-INSTANCE))) -"virt64z [127.0.1.1]" +"i-capture-the-hostname [127.0.1.1]" EQL-OK: T (STRINGP (SHOW (MACHINE-TYPE))) -"AARCH64" +"ARMV7L" EQL-OK: T (STRINGP (SHOW (MACHINE-VERSION))) -"AARCH64" +"ARMV7L" EQL-OK: T (SYSTEM::FIXNUMP 10) EQL-OK: T @@ -14104,17 +14140,17 @@ (PROGN (DEFGENERIC TEST-MC05-1 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD MC05 ((X INTEGER)) 'INTEGER) (:METHOD MC05 ((X NUMBER)) 'NUMBER) (:METHOD-COMBINATION MC05)) (TEST-MC05-1 3)) EQUAL-OK: (INTEGER REAL NUMBER) (PROGN (DEFGENERIC TEST-MC05-2 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD MC05 ((X INTEGER)) 'INTEGER) (:METHOD MC05 ((X NUMBER)) 'NUMBER) (:METHOD-COMBINATION MC05 (INTERN "MOST-SPECIFIC-LAST" "KEYWORD"))) (TEST-MC05-2 3)) -[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-2: Invalid method-combination options (#1=(INTERN "MOST-SPECIFIC-LAST" "KEYWORD")) for #: The value of CLOS::ORDER is #1#, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. +[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-2: Invalid method-combination options (#1=(INTERN "MOST-SPECIFIC-LAST" "KEYWORD")) for #: The value of CLOS::ORDER is #1#, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC05-3 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD MC05 ((X INTEGER)) 'INTEGER) (:METHOD MC05 ((X NUMBER)) 'NUMBER) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-LAST)) (TEST-MC05-3 3)) EQUAL-OK: (NUMBER REAL INTEGER) (PROGN (DEFGENERIC TEST-MC05-4 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-LAST)) (TEST-MC05-4 3)) EQUAL-OK: (REAL) (PROGN (DEFGENERIC TEST-MC05-5 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 NIL))) -[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-5: Invalid method-combination options (NIL) for #: The value of CLOS::ORDER is NIL, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. +[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-5: Invalid method-combination options (NIL) for #: The value of CLOS::ORDER is NIL, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC05-6 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-FIRST JUNK))) -[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-6: Invalid method-combination options (:MOST-SPECIFIC-FIRST JUNK) for #: APPLY: too many arguments given to # +[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-6: Invalid method-combination options (:MOST-SPECIFIC-FIRST JUNK) for #: APPLY: too many arguments given to # EQL-OK: ERROR (DEFINE-METHOD-COMBINATION MC06 :IDENTITY-WITH-ONE-ARGUMENT T :OPERATOR LIST :DOCUMENTATION "test") @@ -14123,7 +14159,7 @@ EQL-OK: REAL (PROGN (DEFUN POSITIVE-INTEGER-QUALIFIER-P (METHOD-QUALIFIERS) (AND (= (LENGTH METHOD-QUALIFIERS) 1) (TYPEP (FIRST METHOD-QUALIFIERS) '(INTEGER 0 *)))) (DEFINE-METHOD-COMBINATION EXAMPLE-METHOD-COMBINATION NIL ((METHOD-LIST POSITIVE-INTEGER-QUALIFIER-P)) `(PROGN ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) (STABLE-SORT METHOD-LIST #'< :KEY #'(LAMBDA (METHOD) (FIRST (METHOD-QUALIFIERS METHOD))))))) (DEFGENERIC MC-TEST-PIQ (P1 P2 S) (:METHOD-COMBINATION EXAMPLE-METHOD-COMBINATION) (:METHOD 1 ((P1 T) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 1 P1 P2) S)) (:METHOD 4 ((P1 T) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 4 P1 P2) S)) (:METHOD 2 ((P1 T) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 2 P1 P2) S)) (:METHOD 3 ((P1 T) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 3 P1 P2) S))) (LET ((S (MAKE-ARRAY 10 :ADJUSTABLE T :FILL-POINTER 0))) (MC-TEST-PIQ 1 2 S) S)) [SIMPLE-ERROR]: For function #1=# applied to argument list NIL: -While computing the effective method through #: +While computing the effective method through #: Impossible to combine the methods: Method #2=# #3# #3#)> has the same specializers and different qualifiers than other methods in method group METHOD-LIST, and is actually used in the effective method. EQL-OK: ERROR @@ -14187,7 +14223,7 @@ (DEFINE-METHOD-COMBINATION MC50 (OPT1 OPT2) ((ALL *)) (:ARGUMENTS &WHOLE WHOLE ARG1 ARG2 &REST MORE-ARGS) `(LIST ',OPT1 ',OPT2 'RESULT ,WHOLE ,ARG1 ,ARG2 ,MORE-ARGS)) EQL-OK: MC50 (DEFGENERIC TEST-MC50-1 (X) (:METHOD-COMBINATION MC50 XYZ)) -[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC50-1: Invalid method-combination options (XYZ) for #: EVAL/APPLY: Too few arguments (1 instead of at least 2) given to CLOS::METHOD-COMBINATION-OPTION-CHECKER +[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC50-1: Invalid method-combination options (XYZ) for #: EVAL/APPLY: Too few arguments (1 instead of at least 2) given to CLOS::METHOD-COMBINATION-OPTION-CHECKER EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC50-2 (X) (:METHOD-COMBINATION MC50 XYZ "foo") (:METHOD ((X INTEGER)) (/ 0))) (TEST-MC50-2 7)) @@ -14197,7 +14233,7 @@ (DEFINE-METHOD-COMBINATION MC51 (OPT1 &OPTIONAL OPT2 &REST MORE-OPTS) ((ALL *)) (:ARGUMENTS &WHOLE WHOLE ARG1 &KEY TEST TEST-NOT) `(LIST ',OPT1 ',OPT2 ',MORE-OPTS 'RESULT ,WHOLE ,ARG1 ,TEST ,TEST-NOT)) EQL-OK: MC51 (DEFGENERIC TEST-MC51-1 (X) (:METHOD-COMBINATION MC51)) -[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC51-1: Invalid method-combination options NIL for #: EVAL/APPLY: Too few arguments (0 instead of at least 1) given to CLOS::METHOD-COMBINATION-OPTION-CHECKER +[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC51-1: Invalid method-combination options NIL for #: EVAL/APPLY: Too few arguments (0 instead of at least 1) given to CLOS::METHOD-COMBINATION-OPTION-CHECKER EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC51-2 (X) (:METHOD-COMBINATION MC51 "xyz") (:METHOD ((X INTEGER)) (/ 0))) (TEST-MC51-2 7)) @@ -15350,11 +15386,11 @@ Creating directory: /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp 29 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2024-11-13 04:39:19 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp 29 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2024-11-13 05:21:38 removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp" removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/" @@ -15368,11 +15404,11 @@ Creating directory: /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot 29 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/ 4096 2024-11-13 04:39:19 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2024-11-13 04:39:19 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot 29 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/ 4096 2024-11-13 05:21:38 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2024-11-13 05:21:38 removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/zot" removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/ext-clisp-tst/foo/bar/" @@ -15465,9 +15501,10 @@ (MULTIPLE-VALUE-BIND (CMD ARGS) (CMD-ARGS) (WITH-OPEN-STREAM (S (MAKE-PIPE-OUTPUT-STREAM (WITH-OUTPUT-TO-STRING (S) (PRINC CMD S) (DOLIST (A ARGS) (PRINC #\Space S) (PRINC A S))))) (WRITE-LINE "(quit)" S))) EQUAL-OK: "(quit)" (MULTIPLE-VALUE-BIND (CMD ARGS) (CMD-ARGS) (MULTIPLE-VALUE-BIND (PID IN OUT ERR) (EXT::LAUNCH CMD :ARGUMENTS ARGS :INPUT :PIPE :OUTPUT :PIPE :ERROR :PIPE) (UNWIND-PROTECT (LIST (INTEGERP (SHOW PID)) (OUTPUT-STREAM-P IN) (INPUT-STREAM-P OUT) (INPUT-STREAM-P ERR) (WRITE-LINE "(quit)" IN) (FORCE-OUTPUT IN) (READ-LINE OUT)) (CLOSE IN) (CLOSE OUT) (CLOSE ERR)))) -26957 +8459 EQUAL-OK: (T T T T "(quit)" NIL "[1]> ") -(LET ((ARGS (LIST (CODE-CHAR (RANDOM CHAR-CODE-LIMIT)) (USER-HOMEDIR-PATHNAME) 'ARGS))) (LOOP :FOR L :IN '((LAMBDA (A B C) (CONCATENATE 'STRING "[" (SYMBOL-NAME C) " " (NAMESTRING B) " " (CHAR-NAME A) "]"))) :FOR C = (COMPILE NIL L) :DO (DISASSEMBLE C) :ALWAYS (STRING= (APPLY (COERCE L 'FUNCTION) ARGS) (SHOW (APPLY C ARGS))))) +[1]> (LET ((ARGS (LIST (CODE-CHAR (RANDOM CHAR-CODE-LIMIT)) + (USER-HOMEDIR-PATHNAME) 'ARGS))) (LOOP :FOR L :IN '((LAMBDA (A B C) (CONCATENATE 'STRING "[" (SYMBOL-NAME C) " " (NAMESTRING B) " " (CHAR-NAME A) "]"))) :FOR C = (COMPILE NIL L) :DO (DISASSEMBLE C) :ALWAYS (STRING= (APPLY (COERCE L 'FUNCTION) ARGS) (SHOW (APPLY C ARGS))))) Disassembly of function NIL (CONST 0) = "[" @@ -15491,14 +15528,13 @@ 12 (CONST&PUSH 3) ; "]" 13 (CALLSR 7 19) ; STRING-CONCAT 16 (SKIP&RET 4) -"[ARGS /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/.debhelper/generated/_source/home/ U000B5AFC]" +"[ARGS /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/.debhelper/generated/_source/home/ U000E5CBE]" EQL-OK: T (TYPE-OF (LAMBDA (X) (DECLARE (COMPILE IDENT)) X)) EQL-OK: COMPILED-FUNCTION (SYSTEM::CLOSURE-NAME (LAMBDA (X) (DECLARE (COMPILE IDENT)) X)) EQL-OK: IDENT -(LET ((L (LET ((X 12)) (DECLARE (COMPILE INCREMENT)) (LIST (LAMBDA NIL (INCF X)) (LAMBDA NIL (DECF [1]> X)))))) (LIST (EVERY #'COMPILED-FUNCTION-P L) (MAPCAR #'SYSTEM -::CLOSURE-NAME L) (MAPCAR #'FUNCALL L))) +(LET ((L (LET ((X 12)) (DECLARE (COMPILE INCREMENT)) (LIST (LAMBDA NIL (INCF X)) (LAMBDA NIL (DECF X)))))) (LIST (EVERY #'COMPILED-FUNCTION-P L) (MAPCAR #'SYSTEM::CLOSURE-NAME L) (MAPCAR #'FUNCALL L))) EQUAL-OK: (T (INCREMENT-1 INCREMENT-2) (13 12)) (MULTIPLE-VALUE-BIND (MYPUSH MYPOP) (LET ((ACC NIL)) (VALUES (LAMBDA (X) (PUSH X ACC)) (LAMBDA NIL (POP ACC)))) (LIST (LIST (FUNCALL MYPOP) (FUNCALL MYPUSH 1) (FUNCALL MYPOP) (FUNCALL MYPOP) (FUNCALL MYPUSH 2) (FUNCALL MYPUSH 3) (FUNCALL MYPOP) (FUNCALL MYPOP) (FUNCALL MYPOP)) (LET ((PAIR (READ-FROM-STRING (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-CLOSURE* T)) (PRIN1-TO-STRING (CONS MYPUSH MYPOP))))))) (LIST (FUNCALL (CDR PAIR)) (FUNCALL (CAR PAIR) 1) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)) (FUNCALL (CAR PAIR) 2) (FUNCALL (CAR PAIR) 3) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)))))) EQUAL-OK: ((NIL (1) 1 NIL (2) (3 2) 3 2 NIL) (NIL (1) 1 NIL (2) (3 2) 3 2 NIL)) @@ -15648,8 +15684,8 @@ (EQUALP (MYHOSTNAME2) (MYHOSTNAME4)) EQL-OK: T (LET ((N1 (SHOW (MYHOSTNAME1))) (MI (SHOW (MACHINE-INSTANCE)))) (OR (AND (>= (LENGTH MI) (LENGTH N1)) (STRING= N1 MI :END2 (LENGTH N1))) (PROGN (DEF-CALL-OUT GETHOSTBYNAME (:NAME "gethostbyname") (:ARGUMENTS (NAME C-STRING)) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT) (:RETURN-TYPE (C-PTR (C-STRUCT LIST (NAME C-STRING))))) (SETQ N1 (FIRST (SHOW (GETHOSTBYNAME N1)))) (STRING= N1 MI :END2 (LENGTH N1))))) -"virt64z" -"virt64z [127.0.1.1]" +"i-capture-the-hostname" +"i-capture-the-hostname [127.0.1.1]" EQL-OK: T (STRING= (MYHOSTNAME1) (CONVERT-STRING-FROM-BYTES (MYHOSTNAME2) CHARSET:UTF-8)) EQL-OK: T @@ -15659,7 +15695,7 @@ EQUALP-OK: #(1 0 NIL NIL NIL NIL) (DESCRIBE #'C-SELF) -# is a foreign function of foreign +# is a foreign function of foreign type (C-FUNCTION (:ARGUMENTS ((:|arg1| C-POINTER :IN :NONE))) (:RETURN-TYPE C-POINTER :NONE) (:LANGUAGE :STDC)) . @@ -15743,7 +15779,7 @@ (WITH-FOREIGN-OBJECT (X 'SHORT -19635) (C-SELF (FOREIGN-ADDRESS X))) EQL-OK: -19635 (WITH-FOREIGN-OBJECT (X 'CHARACTER #\t) (C-SELF X)) -[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: # cannot be converted to the foreign type SHORT +[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: # cannot be converted to the foreign type SHORT EQL-OK: ERROR (TYPE-OF (FOREIGN-FUNCTION #'C-SELF (PARSE-C-TYPE '(C-FUNCTION (:ARGUMENTS (OBJ (C-POINTER SHORT))) (:RETURN-TYPE (C-PTR-NULL SHORT)) (:LANGUAGE :STDC))))) @@ -15781,7 +15817,7 @@ (TYPEP (FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE 'C-POINTER) NIL NIL NIL) 'FOREIGN-VARIABLE) EQL-OK: T (FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE 'UINT) NIL NIL NIL) -[SIMPLE-ERROR]: FFI::FIND-FOREIGN-VARIABLE: type specifications for foreign variable # conflict: C-POINTER and UINT +[SIMPLE-ERROR]: FFI::FIND-FOREIGN-VARIABLE: type specifications for foreign variable # conflict: C-POINTER and UINT EQL-OK: ERROR (TYPEP (FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE '(C-ARRAY-PTR SINT8)) NIL NIL NIL) 'FOREIGN-VARIABLE) @@ -15790,7 +15826,7 @@ EQL-OK: USER-POINTER (DESCRIBE (GET 'USER-POINTER 'FOREIGN-VARIABLE)) -# is a foreign variable of +# is a foreign variable of foreign type C-POINTER. EQL-OK: NIL (PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR-NULL (C-ARRAY CHARACTER 3)))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 3))) (:LANGUAGE :STDC)) (C-SELF "@A0")) @@ -15908,7 +15944,7 @@ (WITH-FOREIGN-OBJECT (X 'UINT->UINT *CALLBACKF*)) EQL-OK: NIL (WITH-FOREIGN-OBJECT (X '(C-FUNCTION (:ARGUMENTS (X INT)) (:RETURN-TYPE UINT) (:LANGUAGE :STDC)) *CALLBACKF*)) -[SIMPLE-ERROR]: # cannot be converted to a foreign function with another calling convention. +[SIMPLE-ERROR]: # cannot be converted to a foreign function with another calling convention. EQL-OK: ERROR (PROGN (FOREIGN-FREE *CALLBACKF*) (MAKUNBOUND '*CALLBACKF*)) @@ -15924,7 +15960,7 @@ (FOREIGN-FREE *FPCALLBACK*) EQL-OK: NIL (FUNCALL *FPCALLBACK* -7.5d0) -[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: # comes from a previous Lisp session and is invalid +[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: # comes from a previous Lisp session and is invalid EQL-OK: ERROR (MAKUNBOUND '*FPCALLBACK*) @@ -15978,7 +16014,7 @@ (VALIDP FM) EQL-OK: NIL (FOREIGN-VALUE FM) -[SIMPLE-ERROR]: FOREIGN-VALUE: # comes from a previous Lisp session and is invalid +[SIMPLE-ERROR]: FOREIGN-VALUE: # comes from a previous Lisp session and is invalid EQL-OK: ERROR (WITH-C-VAR (X '(C-ARRAY-MAX CHARACTER 32) "") X) @@ -15990,7 +16026,7 @@ (WITH-C-PLACE (X FM) X) EQUAL-OK: "abc" (WITH-C-PLACE (X FM) (SETF X "xyz")) -[SIMPLE-ERROR]: FFI::SET-FOREIGN-VALUE: foreign variable # may not be modified +[SIMPLE-ERROR]: FFI::SET-FOREIGN-VALUE: foreign variable # may not be modified EQL-OK: ERROR (FOREIGN-VALUE (FFI::%CAST FM (PARSE-C-TYPE '(C-PTR (C-ARRAY-MAX CHARACTER 20))))) @@ -16012,7 +16048,7 @@ EQL-OK: ERROR (FOREIGN-VARIABLE #'C-SELF (PARSE-C-TYPE 'C-POINTER)) -[SIMPLE-TYPE-ERROR]: FOREIGN-VARIABLE: #1=# is not of type #2=(OR FOREIGN-VARIABLE FOREIGN-ADDRESS) +[SIMPLE-TYPE-ERROR]: FOREIGN-VARIABLE: #1=# is not of type #2=(OR FOREIGN-VARIABLE FOREIGN-ADDRESS) EQL-OK: ERROR (PROGN (FOREIGN-FREE FM) 0) @@ -16046,7 +16082,7 @@ (LET ((RESTARTS (LIST (UNSIGNED-FOREIGN-ADDRESS 123450)))) (FOREIGN-ADDRESS-UNSIGNED (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C &AUX (RETRY (POP RESTARTS))) (DECLARE (IGNORE C)) (WHEN RETRY (USE-VALUE RETRY))))) (FOREIGN-VARIABLE "abc" (PARSE-C-TYPE 'CHAR))))) EQL-OK: 123450 (LET ((RESTARTS (LIST #'C-SELF))) (FOREIGN-ADDRESS-UNSIGNED (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C &AUX (RETRY (POP RESTARTS))) (DECLARE (IGNORE C)) (WHEN RETRY (USE-VALUE RETRY))))) (FOREIGN-FUNCTION "abc" (PARSE-C-TYPE '(C-FUNCTION (:LANGUAGE :STDC))))))) -EQL-OK: 7364012 +EQL-OK: 6430124 (WITH-FOREIGN-OBJECT (P 'OPAQUE) (EQUALP (SET-FOREIGN-POINTER (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED P)) P) (FOREIGN-ADDRESS P))) EQL-OK: T (EQUALP (SET-FOREIGN-POINTER (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED #'C-SELF)) #'C-SELF) (FOREIGN-ADDRESS #'C-SELF)) @@ -16072,7 +16108,7 @@ (FOREIGN-VALUE FM) EQUAL-OK: "aZc" (WITH-C-PLACE (X FM) (CAST X '(C-ARRAY CHARACTER 3))) -[SIMPLE-ERROR]: FFI::%CAST: # cannot be converted to the foreign type #(C-ARRAY CHARACTER 3) +[SIMPLE-ERROR]: FFI::%CAST: # cannot be converted to the foreign type #(C-ARRAY CHARACTER 3) EQL-OK: ERROR (WITH-C-PLACE (X FM) (OFFSET X 1 '(C-ARRAY CHARACTER 2))) @@ -16118,7 +16154,7 @@ (FOREIGN-VALUE FM) EQUALP-OK: #(0 0) (WITH-C-PLACE (A FM) (DOTIMES (I 3) (SETF (ELEMENT A I) (+ 100000000 I)))) -[SIMPLE-ERROR]: FFI::%ELEMENT: subscripts (2) for # are out of range +[SIMPLE-ERROR]: FFI::%ELEMENT: subscripts (2) for # are out of range EQL-OK: ERROR (WITH-C-PLACE (A FM) A) @@ -19708,12 +19744,12 @@ (LOOP FOR NIL ON NIL DO (RETURN T)) EQL-OK: NIL (HANDLER-CASE (MACROEXPAND '(LOOP :FOR I :FROM 1 :TO 20 :SUM I :MAXIMIZE I)) (PROGRAM-ERROR (C) (PRINC-ERROR C) (VALUES '(CORRECT PROGRAM-ERROR)))) -[SIMPLE-SOURCE-PROGRAM-ERROR]: #1=(LOOP :FOR I :FROM 1 :TO 20 :SUM I :MAXIMIZE I): variable #:ACCUNUM-VAR-480834 is used in incompatible clauses MAXIMIZE I and SUM I +[SIMPLE-SOURCE-PROGRAM-ERROR]: #1=(LOOP :FOR I :FROM 1 :TO 20 :SUM I :MAXIMIZE I): variable #:ACCUNUM-VAR-490593 is used in incompatible clauses MAXIMIZE I and SUM I EQUAL-OK: (CORRECT PROGRAM-ERROR) (HANDLER-CASE (MACROEXPAND '(LOOP :FOR I :FROM 1 :TO 20 :SUM I :ALWAYS (EVENP I))) (PROGRAM-ERROR (C) (PRINC-ERROR C) (VALUES '(CORRECT PROGRAM-ERROR)))) [SIMPLE-SOURCE-PROGRAM-ERROR]: #1=(LOOP :FOR I :FROM 1 :TO 20 :SUM I :ALWAYS #2=(EVENP I)): ambiguous result: T from ALWAYS #2# -#:ACCUNUM-VAR-480844 from SUM I +#:ACCUNUM-VAR-490603 from SUM I EQUAL-OK: (CORRECT PROGRAM-ERROR) (HANDLER-CASE (MACROEXPAND '(LOOP :FOR I :DO (PRINT I))) (PROGRAM-ERROR (C) (PRINC-ERROR C) (VALUES '(CORRECT PROGRAM-ERROR)))) [SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: invalid keyword DO after FOR @@ -20061,7 +20097,7 @@ (LET ((F (GENSYM "FUNC-")) (A (GENSYM "A-")) (B (GENSYM "B-"))) (EVAL `(DEFUN ,F NIL (LET ((,A 1) (,B 2)) (SYMBOL-MACROLET ((,A 5)) (SYMBOL-MACROLET ((,B ,A)) ,B))))) (FUNCALL F)) EQL-OK: 5 (LET ((F (GENSYM "FUNC-")) (A (GENSYM "A-")) (B (GENSYM "B-"))) (EVAL `(PROGN (DEFVAR ,A 2) (SETQ ,B 3) (DEFUN ,F NIL ,B) (COMPILE ',F) (DEFINE-SYMBOL-MACRO ,B ,A) (,F)))) -WARNING: in #:FUNC-481125 : #:B-481127 is neither declared nor bound, +WARNING: in #:FUNC-490884 : #:B-490886 is neither declared nor bound, it will be treated as if it were declared SPECIAL. EQL-OK: 3 (PROGN (DEFINE-SYMBOL-MACRO FOO137 (SYMBOL-VALUE 'FOO137)) (SETQ FOO137 73) FOO137) @@ -21159,7 +21195,7 @@ already called generic function # [SIMPLE-ERROR]: CLASS-PROTOTYPE: Extending a standardized method is only allowed if it returns the same values as the next method. -Original values: #1=# +Original values: #1=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from @@ -21433,7 +21469,7 @@ to an already called generic function # [SIMPLE-ERROR]: ACCESSOR-METHOD-SLOT-DEFINITION: Extending a standardized method is only allowed if it returns the same values as the next method. -Original values: #1=# +Original values: #1=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#)>))> @@ -21442,89 +21478,89 @@ EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS23 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-ALLOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-ALLOCATION *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS24 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-ALLOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-ALLOCATION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-ALLOCATION BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-ALLOCATION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: :INSTANCE Values returned by the extending method: :INSTANCE, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS25 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITARGS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITARGS *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS26 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITARGS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITARGS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITARGS BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITARGS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS27 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITFORM ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFORM *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS28 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITFORM ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITFORM *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITFORM BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITFORM: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS29 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS30 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITFUNCTION BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITFUNCTION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS31 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-NAME ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-NAME *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS32 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-NAME ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-NAME *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-NAME BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-NAME: Extending a standardized method is only allowed if it returns the same values as the next method. @@ -21539,39 +21575,39 @@ EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS33 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-TYPE ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-TYPE *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS34 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-TYPE ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-TYPE *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-TYPE BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-TYPE: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: T Values returned by the extending method: T, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS35 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-READERS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-READERS *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS36 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-READERS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-READERS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-READERS BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-READERS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR @@ -21590,39 +21626,39 @@ EQL-OK: NIL (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS37 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-WRITERS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-WRITERS *SAMPSLOT*) T) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS38 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-WRITERS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-WRITERS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-WRITERS BADMETHOD)))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-WRITERS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-LOCATION *SAMPSLOT*) T)) WARNING: Adding method - #))> + #))> to an already called generic function # EQL-OK: T (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-LOCATION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-LOCATION BADMETHOD))))) WARNING: Adding method - #))> + #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-LOCATION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: 1 Values returned by the extending method: 1, T WARNING: Removing method - #1=#))> + #1=#))> from an already called generic function # EQL-OK: ERROR @@ -21679,7 +21715,7 @@ (PROGN (DEFCLASS PERSON NIL ((NAME :INITARG :NAME :ALLOCATION :HASH :ACCESSOR PERSON-NAME) (ADDRESS :INITARG :ADDRESS :ALLOCATION :HASH :ACCESSOR PERSON-ADDRESS)) (:METACLASS HASH-CLASSES:HASH-CLASS)) (LET ((DILBERT (MAKE-INSTANCE 'PERSON :NAME "Dilbert"))) (LIST (STRING= (PERSON-NAME DILBERT) "Dilbert") (SLOT-BOUNDP DILBERT 'NAME) (SLOT-BOUNDP DILBERT 'ADDRESS) (SLOT-EXISTS-P DILBERT 'FOO) (STRING= (GETHASH 'NAME (SLOT-VALUE DILBERT 'HASH-CLASSES::HASH-SLOTS)) "Dilbert") (PROGN (REMHASH 'NAME (SLOT-VALUE DILBERT 'HASH-CLASSES::HASH-SLOTS)) (SLOT-BOUNDP DILBERT 'NAME)) (SYMBOLS-CLEANUP '(PERSON PERSON-NAME PERSON-ADDRESS))))) EQUAL-OK: (T T NIL NIL T NIL NIL) (PROGN (DEFCLASS CLASS-BAD-SLOT NIL ((BAD-SLOT :ALLOCATION :BAD-ALLOCATION))) (MAKE-INSTANCE 'CLASS-BAD-SLOT)) -[SIMPLE-ERROR]: CLOS::%INITIALIZE-INSTANCE: Invalid location NIL of slot #1=# in # (check the :ALLOCATION slot option) +[SIMPLE-ERROR]: CLOS::%INITIALIZE-INSTANCE: Invalid location NIL of slot #1=# in # (check the :ALLOCATION slot option) EQL-OK: ERROR (LET (CONSTRUCTOR) (DEFCLASS CONSTRUCTOR NIL ((NAME :INITARG :NAME :ACCESSOR CONSTRUCTOR-NAME) (FIELDS :INITARG :FIELDS :ACCESSOR CONSTRUCTOR-FIELDS)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((C CONSTRUCTOR) &KEY) (WITH-SLOTS (NAME FIELDS) C (SET-FUNCALLABLE-INSTANCE-FUNCTION C #'(LAMBDA NIL (LET ((NEW (MAKE-ARRAY (1+ (LENGTH FIELDS))))) (SETF (AREF NEW 0) NAME) NEW))))) (SETQ CONSTRUCTOR (MAKE-INSTANCE 'CONSTRUCTOR :NAME 'POSITION :FIELDS '(X Y))) (LIST (STRINGP (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (DESCRIBE CONSTRUCTOR))) (FUNCALL CONSTRUCTOR) (SYMBOLS-CLEANUP '(CONSTRUCTOR CONSTRUCTOR-NAME CONSTRUCTOR-FIELDS)))) @@ -30620,21 +30656,21 @@ (LET* ((D "path-tst-my-dir/") (DIRS** (CONCATENATE 'STRING D "**/")) (DIRS* (CONCATENATE 'STRING D "*/")) (FILES** (CONCATENATE 'STRING D "**/*")) (FILES* (CONCATENATE 'STRING D "*/*"))) (UNWIND-PROTECT (FLET ((MKDIR (S) (MAKE-DIRECTORY (CONCATENATE 'STRING D S)) (OPEN (CONCATENATE 'STRING D S "f") :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (CMP (L1 L2) (LIST (LENGTH L1) (EQUALP L1 (MAPCAR #'FIRST L2))))) (MKDIR "") (MKDIR "d1/") (MKDIR "d1/s1/") (MKDIR "d1/s2/") (MKDIR "d2/") (MKDIR "d2/s1/") (MKDIR "d2/s2/") (LIST (CMP (DIRECTORY DIRS*) (DIRECTORY DIRS* :FULL T)) (CMP (PRINT (DIRECTORY DIRS**)) (PRINT (DIRECTORY DIRS** :FULL T))) (CMP (DIRECTORY FILES*) (DIRECTORY FILES* :FULL T)) (CMP (DIRECTORY FILES**) (DIRECTORY FILES** :FULL T)))) (RMRF D))) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/") -((#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/" (50 39 4 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/" (50 39 4 13 11 2024) 4096)) -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/f 0 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/ 4096 2024-11-13 04:39:50 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/ 4096 2024-11-13 04:39:50 +((#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/" (9 23 5 13 11 2024) 4096) (#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/" (9 23 5 13 11 2024) 4096)) +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/f 0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s1/ 4096 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d2/s2/ 4096 2024-11-13 05:23:09 removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s2/f" removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/s1/f" removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/d1/f" @@ -30651,20 +30687,20 @@ removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-my-dir/" EQUAL-OK: ((2 T) (7 T) (2 T) (7 T)) (CONSP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/")))) -(#P"/" #P"/" 3940459649 4096) +(#P"/" #P"/" 3940461896 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/")))) -(#P"/etc/" #P"/etc/" 3940459795 4096) -(#P"/etc/" #P"/etc/" 3940459795 4096) +(#P"/etc/" #P"/etc/" 3940461993 4096) +(#P"/etc/" #P"/etc/" 3940461993 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME (DEFAULT-DIRECTORY)))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "")))) -(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" 3940461591 4096) -(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" 3940461591 4096) +(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" 3940464189 4096) +(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/" 3940464189 4096) EQL-OK: T (LET* ((PATH "test-pathname") (S1 (OPEN PATH :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (S2 (OPEN PATH :DIRECTION :INPUT))) (UNWIND-PROTECT (LET ((P-P (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME PATH)))) (P-C (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME S1)))) (P-O (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME S2))))) (LIST (EQUALP P-P P-C) (EQUALP P-P P-O) (EQUALP P-C P-O))) (CLOSE S2) (DELETE-FILE S1))) -(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940461591 0) -(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940461591 0) -(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940461591 0) +(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940464189 0) +(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940464189 0) +(#P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/test-pathname" 3940464189 0) EQUAL-OK: (T T T) (BLOCK TEST-WEIRD-PATHNAMES (HANDLER-BIND ((PARSE-ERROR (HANDLER-RETURN TEST-WEIRD-PATHNAMES '(T NIL T T)))) (LETF* ((*PATHNAME-ENCODING* CHARSET:ISO-8859-1) (WEIRD (CONCATENATE 'STRING "weird" (STRING (CODE-CHAR 160)))) (DIR (LIST (MAKE-PATHNAME :VERSION :NEWEST :DEFAULTS (ABSOLUTE-PATHNAME WEIRD))))) (OPEN WEIRD :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (CONS (EQUAL (DIRECTORY "weird*") DIR) (LETF ((*PATHNAME-ENCODING* CHARSET:ASCII)) (LIST (APPEASE-CERRORS (DIRECTORY "weird*")) (HANDLER-BIND ((SIMPLE-CHARSET-TYPE-ERROR (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE CHARSET:ISO-8859-1)))) (EQUAL (DIRECTORY "weird*") DIR)) (EQ *PATHNAME-ENCODING* CHARSET:ISO-8859-1)))) (DELETE-FILE WEIRD))))) WARNING: DIRECTORY: Invalid byte #xA0 in CHARSET:ASCII conversion @@ -30676,9 +30712,9 @@ (LETF* ((*PATHNAME-ENCODING* CHARSET:ISO-8859-1) (WEIRD (CONCATENATE 'STRING "weird" (STRING (CODE-CHAR 160)))) (GOOD "path-tst-good-file") (DIR "path-tst-load-weird-dir/") (*LOAD-PATHS* (LIST (CONCATENATE 'STRING DIR "**")))) (RMRF DIR) (MAKE-DIRECTORY DIR) (OPEN (CONCATENATE 'STRING DIR WEIRD) :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (WITH-OPEN-FILE (OS (CONCATENATE 'STRING DIR GOOD ".lisp") :DIRECTION :OUTPUT) (FORMAT OS "(defparameter *load-var* 1234)~%")) (UNWIND-PROTECT (LIST (LETF ((*PATHNAME-ENCODING* CHARSET:ASCII)) (LOAD GOOD) *LOAD-VAR*) (EQ *PATHNAME-ENCODING* CHARSET:ISO-8859-1)) (RMRF DIR))) ;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp ... ;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp 31 2024-11-13 04:39:51 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/weird  0 2024-11-13 04:39:51 -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/ 4096 2024-11-13 04:39:51 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp 31 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/weird  0 2024-11-13 05:23:09 +/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/ 4096 2024-11-13 05:23:09 removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/weird " removing file #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp" removing directory #P"/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/path-tst-load-weird-dir/" @@ -31264,12 +31300,12 @@ (WITH-OPEN-FILE (*S* *FILE* :DIRECTION :INPUT) (MULTIPLE-VALUE-LIST (READ-LINE *S*))) EQUAL-OK: ("ABCDEFGH" NIL) (DEFPARAMETER *SERVER* (SHOW (SOCKET-SERVER))) -# +# EQL-OK: *SERVER* (MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0)) EQUAL-OK: (NIL 0) (DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "localhost" :TIMEOUT 0))) -# +# EQL-OK: *SOCKET-1* (DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-1* :IO))) EQL-OK: *STATUS-ARG* @@ -31280,7 +31316,7 @@ (CDDR (ASSOC *SOCKET-1* *STATUS-ARG*)) EQL-OK: :OUTPUT (DEFPARAMETER *SOCKET-2* (SHOW (SOCKET-ACCEPT *SERVER*))) -# +# EQL-OK: *SOCKET-2* (PROGN (PUSH (LIST *SOCKET-2* :IO) *STATUS-ARG*) (EQ *STATUS-ARG* (SOCKET-STATUS *STATUS-ARG* 0))) EQL-OK: T @@ -31311,7 +31347,7 @@ (MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0)) EQUAL-OK: (NIL 0) (DEFPARAMETER *SOCKET-3* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "localhost" :TIMEOUT 0 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) -# +# EQL-OK: *SOCKET-3* (DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-3* :IO))) EQL-OK: *STATUS-ARG* @@ -31322,7 +31358,7 @@ (CDDR (ASSOC *SOCKET-3* *STATUS-ARG*)) EQL-OK: :OUTPUT (DEFPARAMETER *SOCKET-4* (SHOW (SOCKET-ACCEPT *SERVER* :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) -# +# EQL-OK: *SOCKET-4* (PROGN (PUSH (LIST *SOCKET-4* :IO) *STATUS-ARG*) (EQ *STATUS-ARG* (SOCKET-STATUS *STATUS-ARG* 0))) EQL-OK: T @@ -31360,8 +31396,8 @@ # EQL-OK: #\a (LISTP (SHOW (LIST (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCKET-1*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCKET-1*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCKET-2*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCKET-2*))) :PRETTY T)) -(("127.0.0.1 (virt64z)" 59044) ("127.0.0.1 (localhost)" 9090) - ("127.0.0.1 (virt64z)" 9090) ("127.0.0.1 (localhost)" 59044)) +(("127.0.0.1 (i-capture-the-hostname)" 53850) ("127.0.0.1 (localhost)" 9090) + ("127.0.0.1 (i-capture-the-hostname)" 9090) ("127.0.0.1 (localhost)" 53850)) EQL-OK: T (SEARCH " (" (SOCKET-STREAM-LOCAL *SOCKET-1* T)) EQL-OK: NIL @@ -31401,19 +31437,17 @@ ")) :INPUT NIL :OUTPUT :STREAM)) LOCAL REMOTE) (LOOP :UNTIL (DIGIT-CHAR-P (PEEK-CHAR NIL IS)) :DO (READ-LINE IS)) (WITH-OPEN-STREAM (SO (SOCKET-CONNECT (READ IS) "localhost" :TIMEOUT 10)) (OR (STRING= (SETQ LOCAL (LISP-IMPLEMENTATION-VERSION)) (SETQ REMOTE (READ-LINE SO))) (LIST :LOCAL LOCAL :REMOTE REMOTE))))) EQL-OK: T (LET ((INTERFACES '(NIL "localhost" "0.0.0.0" "127.0.0.1"))) (MAPCAR (LAMBDA (I) (LET ((S (SOCKET-SERVER 0 :INTERFACE I))) (UNWIND-PROTECT (SOCKET-SERVER-HOST (SHOW S)) (SOCKET-SERVER-CLOSE S)))) INTERFACES)) -# -# -# -# +# +# +# +# EQUAL-OK: ("0.0.0.0" "127.0.0.1" "0.0.0.0" "127.0.0.1") (MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (LET ((SE (SOCKET-SERVER))) (RUN-PROGRAM RUN :ARGUMENTS (APPEND ARGS (LIST "-q" "-q" "-x" (FORMAT NIL "(close (prog1 (socket:socket-connect ~D) (sleep 0.01s0)))" (SOCKET-SERVER-PORT SE)))) :WAIT NIL :INPUT NIL :OUTPUT NIL) (UNWIND-PROTECT (WITH-OPEN-STREAM (SO (SOCKET-ACCEPT SE)) (LIST (SOCKET-STATUS SO) (WRITE-LINE "foo" SO) (SLEEP 0.02s0) (HANDLER-CASE (SOCKET-STATUS SO) (OS-ERROR (C) (PRINC 'SOCKET-STATUS-2) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) :APPEND) (T (OS-ERROR-CODE C))))) (CHECK-OS-ERROR (PROGN (WRITE-LINE "bar" SO) T) (:EPIPE 32 :ECONNRESET 104)) (HANDLER-CASE (READ-CHAR SO) (OS-ERROR (C) (PRINC 'READ-CHAR) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) T) (T (OS-ERROR-CODE C)))) (END-OF-FILE (C) (PRINC 'READ-CHAR) (PRINC-ERROR C) T)) (HANDLER-CASE (SOCKET-STATUS SO) (OS-ERROR (C) (PRINC 'SOCKET-STATUS-3) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) :APPEND) (T (OS-ERROR-CODE C))))))) (SOCKET-SERVER-CLOSE SE)))) -SOCKET-STATUS-2 -[OS-STREAM-ERROR]: OS-STREAM-ERROR(104): Connection reset by peer -[OS-ERROR]: OS-ERROR(32): Broken pipe +[OS-ERROR]: OS-ERROR(104): Connection reset by peer READ-CHAR -[SIMPLE-END-OF-FILE]: READ: input stream #1=# has reached its end +[SIMPLE-END-OF-FILE]: READ: input stream #1=# has reached its end -EQUAL-OK: (:OUTPUT "foo" NIL :APPEND T T :APPEND) +ERROR!! (:OUTPUT "foo" NIL :OUTPUT T T :APPEND) should be (:OUTPUT "foo" NIL :APPEND T T :APPEND) ! (CHECK-OS-ERROR (SOCKET-CONNECT 0) (:ECONNREFUSED 111)) [OS-ERROR]: OS-ERROR(111): Connection refused EQL-OK: T @@ -31422,7 +31456,8 @@ EQL-OK: T (PROGN (MAKUNBOUND '*OS*) (UNINTERN '*OS*) (MAKUNBOUND '*SERVER*) (UNINTERN '*SERVER*) (DELETE-FILE *FILE*) (MAKUNBOUND '*FILE*) (UNINTERN '*FILE*) (MAKUNBOUND '*S*) (UNINTERN '*S*) (MAKUNBOUND '*SOCKET-1*) (UNINTERN '*SOCKET-1*) (MAKUNBOUND '*SOCKET-2*) (UNINTERN '*SOCKET-2*) (MAKUNBOUND '*SOCKET-3*) (UNINTERN '*SOCKET-3*) (MAKUNBOUND '*SOCKET-4*) (UNINTERN '*SOCKET-4*)) EQL-OK: T -RUN-TEST: finished "socket" (0 errors out of 92 tests) +RUN-TEST: finished "socket" (1 error out of 92 tests) +RUN-TEST: see /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/socket.erg RUN-TEST: started # (LET ((F '+)) (APPLY F '(1 2))) EQL-OK: 3 @@ -33953,31 +33988,31 @@ EQL-OK: T (TIME-LOOP 100000 5000000000 5000) (:GOOD 100000 NIL) -Real time: 22.956104 sec. -Run time: 17.02827 sec. +Real time: 59.495956 sec. +Run time: 37.155624 sec. Space: 146550232 Bytes -GC: 80, GC time: 2.080306 sec. +GC: 80, GC time: 3.590195 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300181201 10) (:GOOD 4300066700 NIL) -Real time: 0.257461 sec. -Run time: 0.205487 sec. +Real time: 0.843349 sec. +Run time: 0.447136 sec. Space: 1981800 Bytes -GC: 1, GC time: 0.024882 sec. +GC: 1, GC time: 0.045552 sec. EQL-OK: NIL (TIME-LOOP 100000 5000000000 5000 0) (:GOOD 100000 NIL) -Real time: 17.383326 sec. -Run time: 14.352226 sec. +Real time: 55.874184 sec. +Run time: 31.541386 sec. Space: 146550232 Bytes -GC: 79, GC time: 2.041596 sec. +GC: 79, GC time: 3.544204 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300081201 10 0) (:GOOD 4300066700 NIL) -Real time: 0.044759 sec. -Run time: 0.044455 sec. +Real time: 0.079238 sec. +Run time: 0.078575 sec. Space: 251128 Bytes -GC: 1, GC time: 0.025476 sec. +GC: 1, GC time: 0.041201 sec. EQL-OK: NIL (LET ((TOTAL 10000)) (LOOP :WITH BAD = 0 :REPEAT TOTAL :FOR TIME = (RANDOM 10000000000) :FOR CHECK = (CHECK-UNIVERSAL-TIME TIME) :WHEN CHECK :COLLECT (PROGN (INCF BAD) CHECK) :FINALLY (FORMAT T "~&~:D out of ~:D bad: ~5F%~%" BAD TOTAL (/ BAD TOTAL 0.01d0)))) WARNING: LOOP: FOR clauses should occur before the loop's main body @@ -35836,24 +35871,24 @@ (LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETQ A NIL) (GC) (SETF (FREAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W))))) EQUAL-OK: ((NIL NIL NIL) (NIL)) (PROGN (DEFUN TEST-WEAK-MAPPING-CHAIN (N) (LET (WM0) (LET ((SYM (MAKE-ARRAY N))) (DOTIMES (I N) (SETF (AREF SYM I) (MAKE-SYMBOL (PRIN1-TO-STRING I)))) (LET ((WM (MAKE-ARRAY N))) (DOTIMES (I N) (SETF (AREF WM I) (MAKE-FREAK-MAPPING 'A 'B))) (SETQ WM0 (AREF WM 0)) (DO ((I 1 (1+ I))) ((>= I N)) (SETF (GETHASH (AREF SYM (- I 1)) (AREF WM (- I 1))) (AREF WM I)))) (TIME (GC)) (DO ((I 0 (1+ I)) (W WM0 (GETHASH (AREF SYM I) W))) ((>= I N))) (SETQ SYM NIL) (TIME (GC)) (GETHASH 'A WM0)))) (TEST-WEAK-MAPPING-CHAIN 10000)) -Real time: 0.03989 sec. -Run time: 0.039888 sec. +Real time: 0.063262 sec. +Run time: 0.063038 sec. Space: 32 Bytes -GC: 1, GC time: 0.039847 sec. -Real time: 0.029278 sec. -Run time: 0.029274 sec. +GC: 1, GC time: 0.062994 sec. +Real time: 0.083933 sec. +Run time: 0.05071 sec. Space: 32 Bytes -GC: 1, GC time: 0.029234 sec. +GC: 1, GC time: 0.050672 sec. EQL-OK: B (PROGN (DEFUN TEST-WEAK-MAPPING-CHAIN-REVERSE (N) (LET (WM0) (LET ((SYM (MAKE-ARRAY N))) (DOTIMES (I N) (SETF (AREF SYM I) (MAKE-SYMBOL (PRIN1-TO-STRING I)))) (LET ((WM (MAKE-ARRAY N))) (DOTIMES (I N) (SETF (AREF WM (- N 1 I)) (MAKE-FREAK-MAPPING 'A 'B))) (SETQ WM0 (AREF WM 0)) (DO ((I 1 (1+ I))) ((>= I N)) (SETF (GETHASH (AREF SYM (- I 1)) (AREF WM (- I 1))) (AREF WM I)))) (TIME (GC)) (DO ((I 0 (1+ I)) (W WM0 (GETHASH (AREF SYM I) W))) ((>= I N))) (SETQ SYM NIL) (TIME (GC)) (GETHASH 'A WM0)))) (TEST-WEAK-MAPPING-CHAIN-REVERSE 10000)) -Real time: 0.039658 sec. -Run time: 0.039655 sec. +Real time: 0.080262 sec. +Run time: 0.060198 sec. Space: 32 Bytes -GC: 1, GC time: 0.039613 sec. -Real time: 0.028726 sec. -Run time: 0.028725 sec. +GC: 1, GC time: 0.06016 sec. +Real time: 0.048536 sec. +Run time: 0.048462 sec. Space: 32 Bytes -GC: 1, GC time: 0.028674 sec. +GC: 1, GC time: 0.048421 sec. EQL-OK: B (LET ((TAB (MAKE-HASH-TABLE :TEST 'EQ :WEAK :VALUE))) (SETF (GETHASH 'FOO TAB) 1) (SETF (GETHASH 1 TAB) (COPY-SEQ "bar")) (SETF (GETHASH 'ZOO TAB) (COPY-SEQ "zot")) (GC) (LIST (GETHASH 'FOO TAB) (GETHASH 1 TAB) (GETHASH 'ZOO TAB))) EQUAL-OK: (1 NIL NIL) @@ -36801,7 +36836,7 @@ BAR EQL-OK: 41 (PROGN (DEFCLASS ZOT NIL (ZOT-FOO)) (SETQ BAR (MAKE-INSTANCE 'ZOT)) (HANDLER-BIND ((UNBOUND-SLOT (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 41)))) (1+ (SLOT-VALUE BAR 'ZOT-FOO)))) -[SIMPLE-UNBOUND-SLOT]: SLOT-VALUE: The slot ZOT-FOO of #1=# has no value +[SIMPLE-UNBOUND-SLOT]: SLOT-VALUE: The slot ZOT-FOO of #1=# has no value EQL-OK: 42 (SLOT-VALUE BAR 'ZOT-FOO) EQL-OK: 41 @@ -38238,7 +38273,7 @@ (PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST)) EQL-OK: T RUN-TEST: finished "weakptr" (0 errors out of 13 tests) -finished 56 files: 0 errors out of 11,914 tests +finished 56 files: 1 error out of 11,914 tests 1 alltest: 0 errors out of 636 tests 2 array: 0 errors out of 290 tests 3 backquot: 0 errors out of 89 tests @@ -38275,7 +38310,7 @@ 34 path: 0 errors out of 180 tests 35 readtable: 0 errors out of 27 tests 36 setf: 0 errors out of 210 tests - 37 socket: 0 errors out of 92 tests + 37 socket: 1 error out of 92 tests 38 steele7: 0 errors out of 86 tests 39 streams: 0 errors out of 387 tests 40 streamslong: 0 errors out of 25 tests @@ -38295,21311 +38330,36 @@ 54 restarts: 0 errors out of 71 tests 55 excepsit: 0 errors out of 395 tests 56 weakptr: 0 errors out of 260 tests -Real time: 166.65796 sec. -Run time: 112.26245 sec. -Space: 1077439720 Bytes -GC: 938, GC time: 23.104052 sec. -0 +Real time: 387.35355 sec. +Run time: 235.79433 sec. +Space: 1079531392 Bytes +GC: 939, GC time: 41.38853 sec. +1 Bye. (echo *.erg | grep '*' >/dev/null) || (echo "Test failed:" ; ls -l *erg; echo "To see which tests failed, type" ; echo " cat "`pwd`"/*.erg" ; exit 1) -echo "Test passed." -Test passed. +Test failed: +-rw-r--r-- 1 pbuilder2 pbuilder2 1430 Nov 13 05:23 socket.erg +To see which tests failed, type + cat /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/*.erg +make[2]: *** [Makefile:34: compare] Error 1 make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests' -mkdir sacla-tests -cd sacla-tests && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/sacla-tests/*.lisp . -cd sacla-tests && ../lisp.run -ansi -B .. -M ../lispinit.mem -N ../locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -i tests.lisp -x '(ext:exit (plusp (run-all-tests)))' - i i i i i i i ooooo o ooooooo ooooo ooooo - I I I I I I I 8 8 8 8 8 o 8 8 - I \ `+' / I 8 8 8 8 8 8 - \ `-+-' / 8 8 8 ooooo 8oooo - `-__|__-' 8 8 8 8 8 - | 8 o 8 8 o 8 8 - ------+------ ooooo 8oooooo ooo8ooo ooooo 8 - -Welcome to GNU CLISP 2.49.95+ (2024-11-03) - -Copyright (c) Bruno Haible, Michael Stoll 1992-1993 -Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 -Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 -Copyright (c) Bruno Haible, Sam Steingold 1999-2000 -Copyright (c) Sam Steingold, Bruno Haible 2001-2018 - -Type :h and hit Enter for context help. +make[1]: *** [Makefile:2234: check-tests] Error 2 +make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build' +dh_auto_test: error: cd debian/build && make -j1 check "TESTSUITEFLAGS=-j1 --verbose" VERBOSE=1 returned exit code 2 +make: *** [debian/rules:17: binary] Error 25 +dpkg-buildpackage: error: debian/rules binary subprocess returned exit status 2 +I: copying local configuration +E: Failed autobuilding of package +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/C01_cleanup starting +debug output: disk usage on i-capture-the-hostname at Wed Nov 13 05:25:59 UTC 2024 +Filesystem Size Used Avail Use% Mounted on +tmpfs 2.0G 0 2.0G 0% /dev/shm -;; Loading file tests.lisp ... -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/tests.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/tests/tests.fas -;; Loaded file tests.lisp -RUN-TEST: started # -(NOT (EQ (SIGNAL "test signal") NIL)) -EQL-OK: NIL -(NOT (EQ (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "simple-error" :FORMAT-ARGUMENTS NIL) NIL)) -EQL-OK: NIL -(NOT (EQ (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "simple-warning" :FORMAT-ARGUMENTS NIL) NIL)) -EQL-OK: NIL -(NOT (HANDLER-CASE (SIGNAL "test simple-condition") (SIMPLE-CONDITION NIL T) (CONDITION NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "simple warning" :FORMAT-ARGUMENTS NIL) (SIMPLE-WARNING NIL T) (WARNING NIL NIL) (CONDITION NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((*BREAK-ON-SIGNALS* 'ARITHMETIC-ERROR)) (HANDLER-CASE (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (ERROR "simple-error test") (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (ERROR 'NO-SUCH-ERROR!!) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (ERROR 'SIMPLE-CONDITION :FORMAT-CONTROL "simple-condition test") (SIMPLE-CONDITION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (ERROR 'SIMPLE-WARNING :FORMAT-CONTROL "simple-warning test") (SIMPLE-WARNING NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (CERROR "Continue." "error test") (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (CERROR "Continue." 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-BIND ((SIMPLE-ERROR #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (EQ (CERROR "Continue." "error test") NIL))) -EQL-OK: NIL -(NOT (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (EQ (CERROR "Continue." 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) NIL))) -EQL-OK: NIL -(NOT (LET ((*ERROR-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))) (AND (EQ (WARN "I warn you!") NIL) (GET-OUTPUT-STREAM-STRING *ERROR-OUTPUT*)))) -EQL-OK: NIL -(NOT (HANDLER-BIND ((WARNING #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'MUFFLE-WARNING)))) (EQ (WARN "I warn you!") NIL))) -EQL-OK: NIL -(NOT (LET ((*ERROR-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))) (HANDLER-BIND ((WARNING #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'MUFFLE-WARNING)))) (AND (EQ (WARN "I warn you!") NIL) (STRING= (GET-OUTPUT-STREAM-STRING *ERROR-OUTPUT*) ""))))) -EQL-OK: NIL -(NOT (BLOCK TAG (HANDLER-CASE (WARN 'SIMPLE-ERROR :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-ERROR NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (BLOCK TAG (HANDLER-CASE (WARN 'SIMPLE-CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-CONDITION NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL T) (SIMPLE-CONDITION NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL T) (SIMPLE-ERROR NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL NIL) (SIMPLE-WARNING NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-WARNING NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (NULL (HANDLER-BIND NIL))) -EQL-OK: NIL -(NOT (HANDLER-BIND NIL T)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-BIND NIL 1 2 3 (VALUES 4 5 6))) '(4 5 6))) -EQL-OK: NIL -(NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (EQ 'OUTER-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OUTER-HANDLER)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (ERROR C))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'INNER-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) -EQL-OK: NIL -(NOT (EQ 'OUTER-HANDLER (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OUTER-HANDLER)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (ERROR C))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'INNER-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) -EQL-OK: NIL -(NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) -EQL-OK: NIL -(NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (SETQ HANDLER-DECLINED T)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)) NIL) HANDLER-DECLINED))) -EQL-OK: NIL -(NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER INNER))))) -EQL-OK: NIL -(NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-RIGHT-HANDLER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-RIGHT-HANDLER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-RIGHT-HANDLER INNER-LEFT-HANDLER))))) -EQL-OK: NIL -(NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-RIGHT-HANDLER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (SIGNAL C) (PUSH 'INNER-RIGHT-HANDLER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-RIGHT-HANDLER OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-LEFT-HANDLER))))) -EQL-OK: NIL -(NOT (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG *DYNAMIC-VAR*)))) (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) -EQL-OK: NIL -(NOT (LET ((DECLINED NIL)) (AND (EQ NIL (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'SPECIFIC DECLINED)))) (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'GENERAL DECLINED)))) (SIGNAL "error")))) (EQUAL DECLINED '(SPECIFIC GENERAL))))) -EQL-OK: NIL -(NOT (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (TYPEP C 'ERROR))))) (ERROR "error")))) -EQL-OK: NIL -(NOT (EQ 'OK (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OK)))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (ERROR "error3")))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (ERROR "error2")))) (ERROR "error"))))))) -EQL-OK: NIL -(NOT (EQ 'OK (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OK)))) (ERROR "error2"))))) (ERROR "error1"))))) (ERROR "error0"))))) -EQL-OK: NIL -(NOT (HANDLER-CASE T)) -EQL-OK: NIL -(NOT (HANDLER-CASE NIL (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) T))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 0 1 2 3 4))) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (HANDLER-CASE (VALUES 0 1 2 3 4) (:NO-ERROR (&REST REST) REST)) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 0 1 2 3 4) (:NO-ERROR (&REST REST) (VALUES REST 5 6 7 8)))) '((0 1 2 3 4) 5 6 7 8))) -EQL-OK: NIL -(NOT (EQ T (HANDLER-CASE T (TYPE-ERROR NIL 'TYPE-ERROR) (ERROR NIL 'ERROR)))) -EQL-OK: NIL -(NOT (EQ 'SIMPLE-ERROR (HANDLER-CASE (ERROR "error!") (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) -EQL-OK: NIL -(NOT (EQ 'ERROR (HANDLER-CASE (ERROR "error!") (ERROR NIL 'ERROR) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) -EQL-OK: NIL -(NOT (EQ 'ERROR (HANDLER-CASE (ERROR "error!") (ERROR NIL 'ERROR) (CONDITION NIL 'CONDITION) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) -EQL-OK: NIL -(NOT (EQ 'CONDITION (HANDLER-CASE (ERROR "error!") (CONDITION NIL 'CONDITION) (ERROR NIL 'ERROR) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) -EQL-OK: NIL -(NOT (EQ 'SIMPLE-ERROR (HANDLER-CASE (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error!" :FORMAT-ARGUMENTS NIL) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) -EQL-OK: NIL -(NOT (EQ 'SIMPLE-ERROR-LEFT (HANDLER-CASE (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error!" :FORMAT-ARGUMENTS NIL) (SIMPLE-ERROR NIL 'SIMPLE-ERROR-LEFT) (SIMPLE-ERROR NIL 'SIMPLE-ERROR-RIGHT)))) -EQL-OK: NIL -(NOT (EQ 'NO-ONE-HANDLED (HANDLER-CASE (PROGN (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "warning!" :FORMAT-ARGUMENTS NIL) 'NO-ONE-HANDLED) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) -EQL-OK: NIL -(NOT (EQUAL (HANDLER-CASE (PROGN (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "warning!" :FORMAT-ARGUMENTS NIL) 'NO-ONE-HANDLED) (:NO-ERROR (&REST REST) (CONS 'NO-ERROR REST)) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)) '(NO-ERROR NO-ONE-HANDLED))) -EQL-OK: NIL -(NOT (LET ((WHERE 'OUT)) (EQ (HANDLER-CASE (LET ((WHERE 'IN)) (DECLARE (IGNORABLE WHERE)) (ERROR "error!")) (ERROR NIL WHERE)) 'OUT))) -EQL-OK: NIL -(NOT (LET ((WHERE 'OUT)) (DECLARE (SPECIAL WHERE)) (EQ (HANDLER-CASE (LET ((WHERE 'IN)) (DECLARE (SPECIAL WHERE)) (ERROR "~S" WHERE)) (ERROR NIL WHERE)) 'OUT))) -EQL-OK: NIL -(NOT (TYPEP (HANDLER-CASE (ERROR "error!") (ERROR (C) C)) 'SIMPLE-ERROR)) -EQL-OK: NIL -(NOT (TYPEP (HANDLER-CASE (ERROR "error!") (CONDITION (C) C)) 'SIMPLE-ERROR)) -EQL-OK: NIL -(NOT (TYPEP (HANDLER-CASE (SIGNAL "condition") (CONDITION (C) C)) 'SIMPLE-CONDITION)) -EQL-OK: NIL -(NOT (TYPEP (HANDLER-CASE (WARN "warning") (CONDITION (C) C)) 'SIMPLE-WARNING)) -EQL-OK: NIL -(NOT (NULL (RESTART-BIND NIL))) -EQL-OK: NIL -(NOT (RESTART-BIND NIL T)) -EQL-OK: NIL -(NOT (= (RESTART-BIND NIL 0 1 2) 2)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (RESTART-BIND NIL 0 1 2 (VALUES 3 4 5))) '(3 4 5))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (SIGNAL "testing simple-condition"))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG NIL)))) (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (SIGNAL "testing simple-condition")))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T))) (CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG NIL)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) -EQL-OK: NIL -(NOT (EQ 'OK (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE 'OK))))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION #'(LAMBDA (C) (OR (NULL C) (TYPEP C 'SIMPLE-CONDITION))))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((TB-CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY NIL) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")))) (NOT (FIND-RESTART 'TB-CONTINUE))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((TB-CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'TB-CONTINUE)))))) -EQL-OK: NIL -(NOT (NULL (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (DECLARE (IGNORE X)) (RETURN-FROM TAG *DYNAMIC-VAR*)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-CASE (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL "testing simple-signal")) (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))))) -EQL-OK: NIL -(NOT (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (DECLARE (IGNORE X)) (RETURN-FROM TAG *DYNAMIC-VAR*)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))) (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL "testing simple-signal"))))))) -EQL-OK: NIL -(NOT (BLOCK TAG (RESTART-BIND ((IGNORE-SIMPLE-SIGNAL #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'IGNORE-SIMPLE-SIGNAL)))))) -EQL-OK: NIL -(NOT (RESTART-CASE T)) -EQL-OK: NIL -(NOT (RESTART-CASE T (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (RESTART-CASE (VALUES 0 1 2 3 4))) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQ 'CONTINUED (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUED)))) -EQL-OK: NIL -(NOT (EQ NIL (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)))))) -EQL-OK: NIL -(NOT (EQ 'CONTINUE-LEFT (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUE-LEFT) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUE-RIGHT)))) -EQL-OK: NIL -(NOT (NULL (RESTART-CASE (INVOKE-RESTART 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) REST)))) -EQL-OK: NIL -(NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) REST)) '(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) :REPORT "continue" REST)) '(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) :REPORT "continue" :TEST (LAMBDA (C) (DECLARE (IGNORE C)) T) REST)) '(0 1 2 3))) -EQL-OK: NIL -(NOT (= (RESTART-CASE (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'MY-RESTART 7)))) (ERROR "Foo.")) (MY-RESTART (&OPTIONAL V) V)) 7)) -EQL-OK: NIL -(NOT (EQ (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'MY-RESTART 'RESTARTED)))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V))) 'RESTARTED)) -EQL-OK: NIL -(NOT (EQ (HANDLER-BIND ((ERROR #'(LAMBDA (C) (INVOKE-RESTART (FIND-RESTART 'MY-RESTART C) 'RESTARTED)))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V))) 'RESTARTED)) -EQL-OK: NIL -(NOT (> (LENGTH (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (COMPUTE-RESTARTS C))))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V) (MY-RESTART (&OPTIONAL V) V))))) 1)) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (INVOKE-RESTART 'JUST-A-RESTART) (JUST-A-RESTART (&REST REST) (DECLARE (IGNORE REST)) 'OK)))) -EQL-OK: NIL -(NOT (LISTP (MAPCAR #'RESTART-NAME (COMPUTE-RESTARTS)))) -EQL-OK: NIL -(NOT (LISTP (MAPCAR #'RESTART-NAME (COMPUTE-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))))) -EQL-OK: NIL -(NOT (RESTART-CASE (LET ((LIST (COMPUTE-RESTARTS))) (AND (MEMBER 'MY-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME) (MEMBER 'YOUR-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME))) (MY-RESTART NIL) (YOUR-RESTART NIL))) -EQL-OK: NIL -(NOT (RESTART-CASE (LET ((LIST (COMPUTE-RESTARTS))) (MEMBER 'MY-RESTART (CDR (MEMBER 'MY-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME)) :TEST #'STRING= :KEY #'RESTART-NAME)) (MY-RESTART NIL) (MY-RESTART NIL))) -EQL-OK: NIL -(NOT (OR (FIND-RESTART 'CONTINUE) T)) -EQL-OK: NIL -(NOT (RESTART-CASE (FIND-RESTART 'MY-RESTART) (MY-RESTART NIL))) -EQL-OK: NIL -(NOT (RESTART-CASE (FIND-RESTART (FIND-RESTART 'MY-RESTART)) (MY-RESTART NIL))) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (AND (EQ C CONDITION) (FIND-RESTART 'MY-RESTART C)))))) (RESTART-CASE (ERROR CONDITION) (MY-RESTART NIL)))))) -EQL-OK: NIL -(NOT (STRING= "MY-RESTART" (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (RESTART-NAME (FIND-RESTART 'MY-RESTART C)))))) (RESTART-CASE (ERROR "error!") (MY-RESTART NIL)))))) -EQL-OK: NIL -(NOT (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (RESTART-NAME (FIND-RESTART 'YET-ANOTHER-RESTART C)))))) (RESTART-CASE (ERROR "error!") (YET-ANOTHER-RESTART NIL))))) -EQL-OK: NIL -(NOT (NULL (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL))) -EQL-OK: NIL -(NOT (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL T)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL 0 1 2 (VALUES 3 4 5))) '(3 4 5))) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL)) (OTHER (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (AND (FIND-RESTART 'MY-RESTART C) (NULL (WITH-CONDITION-RESTARTS OTHER (COMPUTE-RESTARTS) (FIND-RESTART 'MY-RESTART C)))))))) (RESTART-CASE (PROGN 3 2 1 'GO (ERROR CONDITION)) (MY-RESTART NIL)))))) -EQL-OK: NIL -(NOT (NULL (WITH-SIMPLE-RESTART (CONTINUE "continue")))) -EQL-OK: NIL -(NOT (WITH-SIMPLE-RESTART (CONTINUE "continue") T)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") 0 1 (VALUES 2 3 4))) '(2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") (CONTINUE))) '(NIL T))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") (HANDLER-CASE (ERROR "boo") (ERROR (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'CONTINUE))))) '(NIL T))) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (ABORT) (ABORT NIL 'OK)))) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'ABORT CONDITION) (EQ 'HANDLED (HANDLER-CASE (ABORT CONDITION) (CONTROL-ERROR NIL 'HANDLED) (CONDITION NIL NIL)))))) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (MUFFLE-WARNING) (MUFFLE-WARNING NIL 'OK)))) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "warning" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'MUFFLE-WARNING CONDITION) (EQ 'HANDLED (HANDLER-CASE (MUFFLE-WARNING CONDITION) (CONTROL-ERROR NIL 'HANDLED) (CONDITION NIL NIL)))))) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (CONTINUE) (CONTINUE NIL 'OK)))) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'CONTINUE CONDITION) (NULL (CONTINUE CONDITION))))) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (STORE-VALUE 'OK) (STORE-VALUE (VALUE) VALUE)))) -WARNING: RESTART-CASE: restart cannot be invoked interactively because it is - missing a :INTERACTIVE option: (STORE-VALUE (VALUE) VALUE) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'STORE-VALUE CONDITION) (NULL (STORE-VALUE T CONDITION))))) -EQL-OK: NIL -(NOT (EQ 'OK (RESTART-CASE (USE-VALUE 'OK) (USE-VALUE (VALUE) VALUE)))) -WARNING: RESTART-CASE: restart cannot be invoked interactively because it is - missing a :INTERACTIVE option: (USE-VALUE (VALUE) VALUE) -EQL-OK: NIL -(NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'USE-VALUE CONDITION) (NULL (USE-VALUE T CONDITION))))) -EQL-OK: NIL -(NOT (EQ (ASSERT T) NIL)) -EQL-OK: NIL -(NOT (HANDLER-CASE (ASSERT NIL) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (AND (EQ (ASSERT (INCF COUNT)) NIL) (= COUNT 1)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((VAR NIL)) (ASSERT VAR (VAR) "VAR should be true.")) (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "ABC")) (COUNT 0)) (AND (EQ (ASSERT (CHAR= (AREF STR 0) #\A) ((AREF (PROGN (INCF COUNT) STR) 0))) NIL) (ZEROP COUNT)))) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "ABC")) (COUNT 0)) (AND (EQ (ASSERT (AND (CHAR= (AREF STR 0) #\A) (CHAR= (AREF STR 1) #\B)) ((AREF (PROGN (INCF COUNT) STR) 0) (AREF (PROGN (INCF COUNT) STR) 1))) NIL) (ZEROP COUNT)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((VAR NIL)) (ASSERT VAR (VAR) 'TYPE-ERROR :EXPECTED-TYPE 'ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (NULL (LET ((VAR NIL)) (CHECK-TYPE VAR NULL)))) -EQL-OK: NIL -(NOT (NULL (LET ((VAR '(A B C))) (CHECK-TYPE VAR CONS)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG NIL)))) (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR) VAR))))) -EQL-OK: NIL -(NOT (STRING= (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'STORE-VALUE "eat this"))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG NIL)))) (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR) VAR))) "eat this")) -EQL-OK: NIL -(NOT (NULL (IGNORE-ERRORS))) -EQL-OK: NIL -(NOT (IGNORE-ERRORS T)) -EQL-OK: NIL -(NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (ERROR "error"))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'SIMPLE-ERROR)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (IGNORE-ERRORS 'A 'B 'C (VALUES 'D 'E))) '(D E))) -EQL-OK: NIL -(NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'SIMPLE-ERROR)))) -EQL-OK: NIL -(NOT (EQ (IGNORE-ERRORS (SIGNAL "only signal") 'OK) 'OK)) -EQL-OK: NIL -(NOT (EQ (BLOCK TAG (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (IGNORE-ERRORS (ERROR 'SIMPLE-CONDITION :FORMAT-CONTROL "only condition" :FORMAT-ARGUMENTS NIL)))) 'HANDLED)) -EQL-OK: NIL -(NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (WARN 'SIMPLE-ERROR :FORMAT-CONTROL "an error, not a warning" :FORMAT-ARGUMENTS NIL))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'TYPE-ERROR)))) -EQL-OK: NIL -RUN-TEST: finished "must-condition" (0 errors out of 147 tests) -RUN-TEST: started # -(NOT (ARRAYP (MAKE-ARRAY NIL))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY 10))) -EQL-OK: NIL -(NOT (VECTORP (MAKE-ARRAY 10))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(1 2)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(1 2 3)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(1 2 3 4)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(1 2 3 4 5)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(3 3 3)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(3 0 3)))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '5 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "array"))) -EQL-OK: NIL -(NOT (ARRAYP "")) -EQL-OK: NIL -(NOT (ARRAYP "array")) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY '(2 3 4) :ADJUSTABLE T))) -EQL-OK: NIL -(NOT (ARRAYP (MAKE-ARRAY 6))) -EQL-OK: NIL -(NOT (ARRAYP #*1011)) -EQL-OK: NIL -(NOT (ARRAYP "hi")) -EQL-OK: NIL -(NOT (NOT (ARRAYP 'HI))) -EQL-OK: NIL -(NOT (NOT (ARRAYP 12))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (AND (EQL (AREF ARRAY 0 0) 0) (EQL (AREF ARRAY 0 1) 1) (EQL (AREF ARRAY 0 2) 2) (EQL (AREF ARRAY 1 0) 3) (EQL (AREF ARRAY 1 1) 4) (EQL (AREF ARRAY 1 2) 5)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL (AREF ARRAY 0 0 0) 0) (EQL (AREF ARRAY 0 1 0) 1) (EQL (AREF ARRAY 1 0 0) 2) (EQL (AREF ARRAY 1 1 0) 3) (EQL (AREF ARRAY 2 0 0) 4) (EQL (AREF ARRAY 2 1 0) 5)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 2 2 2) :INITIAL-CONTENTS '((((0 1) (2 3)) ((4 5) (6 7))) (((8 9) (10 11)) ((12 13) (14 15))))))) (AND (EQL (AREF ARRAY 0 0 0 0) 0) (EQL (AREF ARRAY 0 0 0 1) 1) (EQL (AREF ARRAY 0 0 1 0) 2) (EQL (AREF ARRAY 0 0 1 1) 3) (EQL (AREF ARRAY 0 1 0 0) 4) (EQL (AREF ARRAY 0 1 0 1) 5) (EQL (AREF ARRAY 0 1 1 0) 6) (EQL (AREF ARRAY 0 1 1 1) 7) (EQL (AREF ARRAY 1 0 0 0) 8) (EQL (AREF ARRAY 1 0 0 1) 9) (EQL (AREF ARRAY 1 0 1 0) 10) (EQL (AREF ARRAY 1 0 1 1) 11) (EQL (AREF ARRAY 1 1 0 0) 12) (EQL (AREF ARRAY 1 1 0 1) 13) (EQL (AREF ARRAY 1 1 1 0) 14) (EQL (AREF ARRAY 1 1 1 1) 15)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 3 3 3 3 3) :INITIAL-ELEMENT NIL))) (DOTIMES (I 729) (SETF (ROW-MAJOR-AREF ARRAY I) I)) (DOTIMES (I 729 T) (UNLESS (= (AREF ARRAY (FLOOR I (* 3 3 3 3 3)) (FLOOR (MOD I (* 3 3 3 3 3)) (* 3 3 3 3)) (FLOOR (MOD I (* 3 3 3 3)) (* 3 3 3)) (FLOOR (MOD I (* 3 3 3)) (* 3 3)) (FLOOR (MOD I (* 3 3)) (* 3)) (MOD I 3)) I) (RETURN NIL))))) -EQL-OK: NIL -(NOT (ZEROP (AREF (MAKE-ARRAY 'NIL :INITIAL-CONTENTS 0)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9))) (OK T)) (DOTIMES (I 10) (UNLESS (EQL (AREF ARRAY I) I) (SETQ OK NIL) (RETURN))) OK)) -EQL-OK: NIL -(NOT (LET ((ARRAY (VECTOR 0 1 2 3 4 5 6 7 8 9)) (OK T)) (DOTIMES (I 10) (UNLESS (EQL (AREF ARRAY I) I) (SETQ OK NIL) (RETURN))) OK)) -EQL-OK: NIL -(NOT (LET ((ARRAY "0123456789") (OK T)) (DOTIMES (I 10) (UNLESS (CHAR= (AREF ARRAY I) (CHAR "0123456789" I)) (SETQ OK NIL) (RETURN))) OK)) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3)))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY 4)) '(4))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY '(2 3))) '(2 3))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY 4 :FILL-POINTER 2)) '(4))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY '(2 3 4 5 6))) '(2 3 4 5 6))) -EQL-OK: NIL -(NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY 4) 0) 4)) -EQL-OK: NIL -(NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY '(2 3)) 1) 3)) -EQL-OK: NIL -(NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY '(2 3 4)) 2) 4)) -EQL-OK: NIL -(NOT (EQ (ARRAY-ELEMENT-TYPE (MAKE-ARRAY 4)) T)) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-ELEMENT-TYPE (MAKE-ARRAY 12 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))) (UPGRADED-ARRAY-ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 'NIL))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '10))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET* ((SOURCE (MAKE-ARRAY '(2 5) :INITIAL-CONTENTS '((1 2 3 4 5) (11 12 13 14 15)))) (ARRAY (MAKE-ARRAY 10 :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET* ((SOURCE (MAKE-ARRAY '10 :INITIAL-ELEMENT 0)) (ARRAY (MAKE-ARRAY '(5 2) :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET* ((E0-0 (LIST 0 0)) (E0-1 (LIST 0 1)) (E1-0 (LIST 1 0)) (E1-1 (LIST 1 1)) (SOURCE (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS (LIST (LIST E0-0 E0-1) (LIST E1-0 E1-1)))) (ARRAY (MAKE-ARRAY 4 :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET) (EQ (AREF ARRAY 0) E0-0) (EQ (AREF ARRAY 1) E0-1) (EQ (AREF ARRAY 2) E1-0) (EQ (AREF ARRAY 3) E1-1))))) -EQL-OK: NIL -(NOT (LET* ((E0-0 (LIST 0 0)) (E0-1 (LIST 0 1)) (E1-0 (LIST 1 0)) (E1-1 (LIST 1 1)) (SOURCE (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS (LIST (LIST E0-0 E0-1) (LIST E1-0 E1-1)))) (ARRAY (MAKE-ARRAY 2 :DISPLACED-TO SOURCE :DISPLACED-INDEX-OFFSET 1))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (EQL DISPLACED-INDEX-OFFSET 1) (EQ (AREF ARRAY 0) E0-1) (EQ (AREF ARRAY 1) E1-0))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 4 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "0123456789" :DISPLACED-INDEX-OFFSET 6))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (STRING= DISPLACED-TO "0123456789") (EQL DISPLACED-INDEX-OFFSET 6) (EQL (AREF ARRAY 0) #\6) (EQL (AREF ARRAY 1) #\7) (EQL (AREF ARRAY 2) #\8) (EQL (AREF ARRAY 3) #\9))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(1 2 5) :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "0123456789"))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (STRING= DISPLACED-TO "0123456789") (EQL DISPLACED-INDEX-OFFSET 0) (EQL (AREF ARRAY 0 0 0) #\0) (EQL (AREF ARRAY 0 0 1) #\1) (EQL (AREF ARRAY 0 0 2) #\2) (EQL (AREF ARRAY 0 0 3) #\3) (EQL (AREF ARRAY 0 0 4) #\4) (EQL (AREF ARRAY 0 1 0) #\5) (EQL (AREF ARRAY 0 1 1) #\6) (EQL (AREF ARRAY 0 1 2) #\7) (EQL (AREF ARRAY 0 1 3) #\8) (EQL (AREF ARRAY 0 1 4) #\9))))) -EQL-OK: NIL -(NOT (LET* ((SOURCE (MAKE-ARRAY '(2 5) :INITIAL-CONTENTS '("love&" "peace") :ELEMENT-TYPE 'CHARACTER)) (ARRAY (MAKE-ARRAY 10 :DISPLACED-TO SOURCE :ELEMENT-TYPE 'CHARACTER))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (EQL DISPLACED-INDEX-OFFSET 0) (STRING= ARRAY "love&peace"))))) -EQL-OK: NIL -(NOT (ARRAY-IN-BOUNDS-P (MAKE-ARRAY 5) 4)) -EQL-OK: NIL -(NOT (NOT (ARRAY-IN-BOUNDS-P (MAKE-ARRAY 5) -1))) -EQL-OK: NIL -(NOT (LET ((A (MAKE-ARRAY '(7 11) :ELEMENT-TYPE 'STRING-CHAR))) (AND (ARRAY-IN-BOUNDS-P A 0 0) (ARRAY-IN-BOUNDS-P A 6 10) (NOT (ARRAY-IN-BOUNDS-P A 0 -1)) (NOT (ARRAY-IN-BOUNDS-P A 0 11)) (NOT (ARRAY-IN-BOUNDS-P A 7 0))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQL (ARRAY-RANK ARRAY) 2))) -EQL-OK: NIL -(NOT (ZEROP (ARRAY-RANK (MAKE-ARRAY 'NIL)))) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK (MAKE-ARRAY 10)) 1)) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10))) 2)) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10 1))) 3)) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10 1 3))) 4)) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK "") 1)) -EQL-OK: NIL -(NOT (EQL (ARRAY-RANK "a") 1)) -EQL-OK: NIL -(NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY 'NIL)))) -EQL-OK: NIL -(NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '5) 0))) -EQL-OK: NIL -(NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '5) 4) 4)) -EQL-OK: NIL -(NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '10) 3) 3)) -EQL-OK: NIL -(NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4)) 0 0))) -EQL-OK: NIL -(NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4)) 2 3) 11)) -EQL-OK: NIL -(NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4 5)) 0 0 0))) -EQL-OK: NIL -(NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4 5)) 2 3 4) 59)) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQL (ARRAY-TOTAL-SIZE ARRAY) 6))) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 4)) 4)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 4 :FILL-POINTER 2)) 4)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 0)) 0)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(4 2))) 8)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(4 0))) 0)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 'NIL)) 1)) -EQL-OK: NIL -(NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(2 3 4 5))) (* 2 3 4 5))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9) :FILL-POINTER 0))) (DOTIMES (I 10 T) (UNLESS (EQL (AREF ARRAY I) I) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(10 10) :ELEMENT-TYPE 'NUMBER :INITIAL-ELEMENT 0))) (DOTIMES (I 10) (DOTIMES (J 10) (UNLESS (ZEROP (AREF ARRAY I J)) (RETURN NIL)) (SETF (AREF ARRAY I J) (+ (* I 10) J)))) (DOTIMES (I 100 T) (UNLESS (EQL (ROW-MAJOR-AREF ARRAY I) I) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 'NIL))) (SETF (AREF ARRAY) 100) (EQL (AREF ARRAY) 100))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(A B C D E F G H I J)))) (SETF (AREF ARRAY 0) #\a) (SETF (AREF ARRAY 2) #\c) (SETF (AREF ARRAY 4) #\e) (SETF (AREF ARRAY 6) #\g) (SETF (AREF ARRAY 8) #\i) (AND (EQL (AREF ARRAY 0) #\a) (EQL (AREF ARRAY 1) 'B) (EQL (AREF ARRAY 2) #\c) (EQL (AREF ARRAY 3) 'D) (EQL (AREF ARRAY 4) #\e) (EQL (AREF ARRAY 5) 'F) (EQL (AREF ARRAY 6) #\g) (EQL (AREF ARRAY 7) 'H) (EQL (AREF ARRAY 8) #\i) (EQL (AREF ARRAY 9) 'J)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (VECTOR 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J))) (SETF (AREF ARRAY 0) #\a) (SETF (AREF ARRAY 2) #\c) (SETF (AREF ARRAY 4) #\e) (SETF (AREF ARRAY 6) #\g) (SETF (AREF ARRAY 8) #\i) (AND (EQL (AREF ARRAY 0) #\a) (EQL (AREF ARRAY 1) 'B) (EQL (AREF ARRAY 2) #\c) (EQL (AREF ARRAY 3) 'D) (EQL (AREF ARRAY 4) #\e) (EQL (AREF ARRAY 5) 'F) (EQL (AREF ARRAY 6) #\g) (EQL (AREF ARRAY 7) 'H) (EQL (AREF ARRAY 8) #\i) (EQL (AREF ARRAY 9) 'J)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 4 5) :INITIAL-ELEMENT 0 :ELEMENT-TYPE 'NUMBER))) (SETF (AREF ARRAY 0 0 0) 0) (SETF (AREF ARRAY 1 1 1) 1) (SETF (AREF ARRAY 2 2 2) 2) (DOTIMES (I 3 T) (UNLESS (EQL (AREF ARRAY I I I) I) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY (MAKE-ARRAY '(3 4 5 6 7) :INITIAL-ELEMENT 0 :ELEMENT-TYPE 'NUMBER)) (ARRAY2 (MAKE-ARRAY (* 3 4 5 6 7) :DISPLACED-TO ARRAY))) (SETF (AREF ARRAY 2 3 4 5 6) 100) (SETF (AREF ARRAY 0 0 0 0 0) 200) (EQL (REDUCE #'+ ARRAY2) 300))) -EQL-OK: NIL -(NOT (ADJUSTABLE-ARRAY-P (MAKE-ARRAY 5 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T :FILL-POINTER 3))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (AND (EQL (AREF ARRAY 0 0) 0) (EQL (AREF ARRAY 0 1) 1) (EQL (AREF ARRAY 1 0) 3) (EQL (AREF ARRAY 1 1) 4) (EQL (AREF ARRAY 2 0) 'UNDEFINED) (EQL (AREF ARRAY 2 1) 'UNDEFINED)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3 2)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (NOT (ARRAY-HAS-FILL-POINTER-P ARRAY)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (NOT (ARRAY-HAS-FILL-POINTER-P ARRAY)))) -EQL-OK: NIL -(NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY 10 :FILL-POINTER 0))) -EQL-OK: NIL -(NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY 8 :FILL-POINTER 0 :INITIAL-ELEMENT 8))) -EQL-OK: NIL -(NOT (NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY '(2 3 4))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQL (ARRAY-RANK ARRAY) 2))) -EQL-OK: NIL -(NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQL (ARRAY-TOTAL-SIZE ARRAY) 6))) -EQL-OK: NIL -(NOT (EQL (FILL-POINTER (MAKE-ARRAY 8 :FILL-POINTER 4)) 4)) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY 8 :FILL-POINTER 4 :INITIAL-ELEMENT NIL))) (AND (EQL (LENGTH ARRAY) 4) (SETF (FILL-POINTER ARRAY) 3) (EQL (FILL-POINTER ARRAY) 3) (EQL (LENGTH ARRAY) 3)))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER 0 :INITIAL-ELEMENT #\ :ELEMENT-TYPE 'CHARACTER))) (AND (EQL (VECTOR-PUSH #\a VECTOR) 0) (EQL (VECTOR-PUSH #\b VECTOR) 1) (EQL (VECTOR-PUSH #\c VECTOR) 2) (STRING= VECTOR "abc")))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (EQL (ARRAY-DIMENSION VECTOR 0) (FILL-POINTER VECTOR)) (EQUAL (CONCATENATE 'LIST VECTOR) '(A B C)) (ZEROP (SETF (FILL-POINTER VECTOR) 0)) (NULL (CONCATENATE 'LIST VECTOR)) (EQL (VECTOR-PUSH 'X VECTOR) 0) (EQUAL (CONCATENATE 'LIST VECTOR) '(X)) (EQ (VECTOR-POP VECTOR) 'X) (ZEROP (LENGTH VECTOR))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER 0 :INITIAL-ELEMENT NIL))) (AND (EQL (LENGTH VECTOR) 0) (SETF (FILL-POINTER VECTOR) 10) (EQL (LENGTH VECTOR) 10) (SETF (FILL-POINTER VECTOR) 5) (EQL (LENGTH VECTOR) 5)))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL (AREF ARRAY 0 0 0) (ROW-MAJOR-AREF ARRAY 0)) (EQL (AREF ARRAY 0 1 0) (ROW-MAJOR-AREF ARRAY 1)) (EQL (AREF ARRAY 1 0 0) (ROW-MAJOR-AREF ARRAY 2)) (EQL (AREF ARRAY 1 1 0) (ROW-MAJOR-AREF ARRAY 3)) (EQL (AREF ARRAY 2 0 0) (ROW-MAJOR-AREF ARRAY 4)) (EQL (AREF ARRAY 2 1 0) (ROW-MAJOR-AREF ARRAY 5))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL 0 (ROW-MAJOR-AREF ARRAY 0)) (EQL 1 (ROW-MAJOR-AREF ARRAY 1)) (EQL 2 (ROW-MAJOR-AREF ARRAY 2)) (EQL 3 (ROW-MAJOR-AREF ARRAY 3)) (EQL 4 (ROW-MAJOR-AREF ARRAY 4)) (EQL 5 (ROW-MAJOR-AREF ARRAY 5))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5))))) (ARRAY1 (MAKE-ARRAY 6 :DISPLACED-TO ARRAY0))) (AND (EQL (AREF ARRAY1 0) (ROW-MAJOR-AREF ARRAY0 0)) (EQL (AREF ARRAY1 1) (ROW-MAJOR-AREF ARRAY0 1)) (EQL (AREF ARRAY1 2) (ROW-MAJOR-AREF ARRAY0 2)) (EQL (AREF ARRAY1 3) (ROW-MAJOR-AREF ARRAY0 3)) (EQL (AREF ARRAY1 4) (ROW-MAJOR-AREF ARRAY0 4)) (EQL (AREF ARRAY1 5) (ROW-MAJOR-AREF ARRAY0 5))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY 6 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdef")) (ARRAY1 (MAKE-ARRAY '(3 2 1) :DISPLACED-TO ARRAY0 :ELEMENT-TYPE 'CHARACTER))) (AND (EQL (AREF ARRAY0 0) (ROW-MAJOR-AREF ARRAY1 0)) (EQL (AREF ARRAY0 1) (ROW-MAJOR-AREF ARRAY1 1)) (EQL (AREF ARRAY0 2) (ROW-MAJOR-AREF ARRAY1 2)) (EQL (AREF ARRAY0 3) (ROW-MAJOR-AREF ARRAY1 3)) (EQL (AREF ARRAY0 4) (ROW-MAJOR-AREF ARRAY1 4)) (EQL (AREF ARRAY0 5) (ROW-MAJOR-AREF ARRAY1 5))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY 6 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdef")) (ARRAY1 (MAKE-ARRAY '(3 2 1) :DISPLACED-TO ARRAY0 :ELEMENT-TYPE 'CHARACTER))) (AND (EQL #\a (ROW-MAJOR-AREF ARRAY1 0)) (EQL #\b (ROW-MAJOR-AREF ARRAY1 1)) (EQL #\c (ROW-MAJOR-AREF ARRAY1 2)) (EQL #\d (ROW-MAJOR-AREF ARRAY1 3)) (EQL #\e (ROW-MAJOR-AREF ARRAY1 4)) (EQL #\f (ROW-MAJOR-AREF ARRAY1 5))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-ELEMENT NIL))) (SETF (ROW-MAJOR-AREF ARRAY 0) 'A) (SETF (ROW-MAJOR-AREF ARRAY 1) 'B) (SETF (ROW-MAJOR-AREF ARRAY 2) 'C) (SETF (ROW-MAJOR-AREF ARRAY 3) 'D) (SETF (ROW-MAJOR-AREF ARRAY 4) 'E) (AND (EQL (AREF ARRAY 0 0 0) 'A) (EQL (AREF ARRAY 0 1 0) 'B) (EQL (AREF ARRAY 1 0 0) 'C) (EQL (AREF ARRAY 1 1 0) 'D) (EQL (AREF ARRAY 2 0 0) 'E) (EQL (AREF ARRAY 2 1 0) 'NIL)))) -EQL-OK: NIL -(NOT (LET ((STR "abcdefg")) (DOTIMES (I 7 T) (UNLESS (EQL (CHAR STR 0) (ROW-MAJOR-AREF STR 0)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-ARRAY 5 :INITIAL-CONTENTS "abcde"))) (DOTIMES (I 3) (SETF (ROW-MAJOR-AREF STR I) (ROW-MAJOR-AREF STR (- 4 I)))) (AND (CHAR= (ROW-MAJOR-AREF STR 0) #\e) (CHAR= (ROW-MAJOR-AREF STR 1) #\d) (CHAR= (ROW-MAJOR-AREF STR 2) #\c) (CHAR= (ROW-MAJOR-AREF STR 3) #\d) (CHAR= (ROW-MAJOR-AREF STR 4) #\e)))) -EQL-OK: NIL -(NOT (EQ (UPGRADED-ARRAY-ELEMENT-TYPE T) T)) -EQL-OK: NIL -(NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'BIT) 'BIT) (SUBTYPEP 'BIT (UPGRADED-ARRAY-ELEMENT-TYPE 'BIT)))) -EQL-OK: NIL -(NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'BASE-CHAR) 'BASE-CHAR) (SUBTYPEP 'BASE-CHAR (UPGRADED-ARRAY-ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'CHARACTER) 'CHARACTER) (SUBTYPEP 'CHARACTER (UPGRADED-ARRAY-ELEMENT-TYPE 'CHARACTER)))) -EQL-OK: NIL -(NOT (SIMPLE-VECTOR-P (MAKE-ARRAY 6))) -EQL-OK: NIL -(NOT (NOT (SIMPLE-VECTOR-P "aaaaaa"))) -EQL-OK: NIL -(NOT (LET ((SV (MAKE-ARRAY 10))) (DOTIMES (I 10) (SETF (SVREF SV I) (* I I))) (DOTIMES (I 10 T) (UNLESS (EQL (SVREF SV I) (* I I)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((SV (VECTOR 'A 'B 'C 'D 'E 'F))) (AND (EQ (SVREF SV 0) 'A) (EQ (SVREF SV 1) 'B) (EQ (SVREF SV 2) 'C) (EQ (SVREF SV 3) 'D) (EQ (SVREF SV 4) 'E) (EQ (SVREF SV 5) 'F)))) -EQL-OK: NIL -(NOT (LET ((SV (MAKE-ARRAY 3 :INITIAL-CONTENTS '(1 2 LAST)))) (AND (SIMPLE-VECTOR-P SV) (EQ (SVREF SV 2) 'LAST) (EQL (SVREF SV 1) 2) (EQL (SVREF SV 0) 1) (EQL (SETF (SVREF SV 1) 'LAST-BUT-ONE) 'LAST-BUT-ONE) (EQ (SVREF SV 1) 'LAST-BUT-ONE)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 1 2 'LAST))) (AND (ARRAYP VEC) (VECTORP VEC) (SIMPLE-VECTOR-P VEC) (EQL (LENGTH VEC) 3) (EQUAL (CONCATENATE 'LIST VEC) '(1 2 LAST))))) -EQL-OK: NIL -(NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER T)) 'C)) -EQL-OK: NIL -(NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 3)) 'C)) -EQL-OK: NIL -(NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 2)) 'B)) -EQL-OK: NIL -(NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 1)) 'A)) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER 0))) (AND (EQL (VECTOR-PUSH 'A VEC) 0) (EQL (VECTOR-PUSH 'B VEC) 1) (EQL (VECTOR-PUSH 'C VEC) 2) (EQ (VECTOR-POP VEC) 'C) (EQ (VECTOR-POP VEC) 'B) (EQ (VECTOR-POP VEC) 'A)))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (SETF (FILL-POINTER VEC) 1) (EQL (VECTOR-PUSH 'Y VEC) 1) (EQL (VECTOR-PUSH 'Z VEC) 2) (EQ (VECTOR-POP VEC) 'Z) (EQ (VECTOR-POP VEC) 'Y) (EQ (VECTOR-POP VEC) 'A) (EQL (FILL-POINTER VEC) 0)))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (NOT (VECTOR-PUSH 'X VEC)) (NOT (VECTOR-PUSH 'Y VEC)) (EQL (SETF (FILL-POINTER VEC) 0) 0) (EQL (VECTOR-PUSH 'X VEC) 0) (EQL (VECTOR-PUSH 'Y VEC) 1) (EQL (VECTOR-PUSH 'Z VEC) 2) (NOT (VECTOR-PUSH 'L VEC))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER 2 :INITIAL-CONTENTS '(A B L) :ADJUSTABLE T))) (AND (EQL (LENGTH VEC) 2) (EQL (VECTOR-PUSH-EXTEND 'C VEC) 2) (EQL (LENGTH VEC) 3) (EQ (VECTOR-POP VEC) 'C) (EQL (VECTOR-PUSH-EXTEND 'C VEC) 2) (EQL (VECTOR-PUSH-EXTEND 'X VEC) 3) (EQL (VECTOR-PUSH-EXTEND 'Y VEC) 4) (EQL (VECTOR-PUSH-EXTEND 'Z VEC) 5) (EQL (LENGTH VEC) 6)))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 0 :FILL-POINTER T :ADJUSTABLE T))) (DOTIMES (I 50) (VECTOR-PUSH-EXTEND (* I I) VEC)) (DOTIMES (I 50 T) (UNLESS (EQL (VECTOR-POP VEC) (* (- 49 I) (- 49 I))) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij" :ADJUSTABLE T :FILL-POINTER T))) (AND (EQL (VECTOR-PUSH-EXTEND #\x VEC) 10) (EQL (VECTOR-PUSH-EXTEND #\y VEC) 11) (EQL (VECTOR-PUSH-EXTEND #\z VEC) 12) (STRING= VEC "abcdefghijxyz")))) -EQL-OK: NIL -(NOT (VECTORP "aaaaaa")) -EQL-OK: NIL -(NOT (VECTORP (MAKE-ARRAY 6 :FILL-POINTER T))) -EQL-OK: NIL -(NOT (NOT (VECTORP (MAKE-ARRAY '(2 3 4))))) -EQL-OK: NIL -(NOT (VECTORP #*11)) -EQL-OK: NIL -(NOT (NOT (VECTORP 3))) -EQL-OK: NIL -(NOT (VECTORP (MAKE-ARRAY 3 :DISPLACED-TO "abc" :ELEMENT-TYPE 'CHARACTER))) -EQL-OK: NIL -(NOT (EQL (BIT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1) 3) 1)) -EQL-OK: NIL -(NOT (EQL (SBIT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1) 3) 1)) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1)))) (DOTIMES (I 8 T) (UNLESS (OR (AND (EVENP I) (ZEROP (BIT BA I))) (AND (ODDP I) (EQL (BIT BA I) 1))) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1)))) (DOTIMES (I 8 T) (UNLESS (OR (AND (EVENP I) (ZEROP (SBIT BA I))) (AND (ODDP I) (EQL (SBIT BA I) 1))) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(3 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 1 0) (1 0 1) (0 1 0))))) (AND (ZEROP (BIT BA 0 0)) (EQL (BIT BA 0 1) 1) (ZEROP (BIT BA 0 2)) (EQL (BIT BA 1 0) 1) (ZEROP (BIT BA 1 1)) (EQL (BIT BA 1 2) 1) (ZEROP (BIT BA 2 0)) (EQL (BIT BA 2 1) 1) (ZEROP (BIT BA 2 2))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(3 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 1 0) (1 0 1) (0 1 0))))) (AND (ZEROP (SBIT BA 0 0)) (EQL (SBIT BA 0 1) 1) (ZEROP (SBIT BA 0 2)) (EQL (SBIT BA 1 0) 1) (ZEROP (SBIT BA 1 1)) (EQL (SBIT BA 1 2) 1) (ZEROP (SBIT BA 2 0)) (EQL (SBIT BA 2 1) 1) (ZEROP (SBIT BA 2 2))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(3 3 3) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 3 3 3)) (SETF (BIT BA (FLOOR I 9) (FLOOR (MOD I 9) 3) (MOD I 3)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 3 3 3) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(3 3 3) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 3 3 3)) (SETF (SBIT BA (FLOOR I 9) (FLOOR (MOD I 9) 3) (MOD I 3)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 3 3 3) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(1 2 3 4 5) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 1 2 3 4 5)) (SETF (BIT BA (FLOOR I (* 1 2 3 4 5)) (FLOOR (MOD I (* 2 3 4 5)) (* 3 4 5)) (FLOOR (MOD I (* 3 4 5)) (* 4 5)) (FLOOR (MOD I (* 4 5)) 5) (MOD I 5)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 1 2 3 4 5) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY '(1 2 3 4 5) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 1 2 3 4 5)) (SETF (SBIT BA (FLOOR I (* 1 2 3 4 5)) (FLOOR (MOD I (* 2 3 4 5)) (* 3 4 5)) (FLOOR (MOD I (* 3 4 5)) (* 4 5)) (FLOOR (MOD I (* 4 5)) 5) (MOD I 5)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 1 2 3 4 5) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1))) (AND (EQL (SETF (BIT BA 3) 0) 0) (EQL (BIT BA 3) 0) (EQL (SBIT BA 5) 1) (EQL (SETF (SBIT BA 5) 0) 0) (EQL (SBIT BA 5) 0)))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 10) (VECTOR-PUSH (IF (ODDP I) 0 1) BA)) (DOTIMES (I 10 T) (UNLESS (AND (EQL (BIT BA I) (IF (ODDP I) 0 1)) (OR (NOT (SIMPLE-VECTOR-P BA)) (EQL (SBIT BA I) (IF (ODDP I) 0 1))) (EQL (AREF BA I) (IF (ODDP I) 0 1))) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((BA (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 10) (VECTOR-PUSH (IF (ODDP I) 0 1) BA)) (DOTIMES (J 10 T) (LET ((I (- 9 J))) (UNLESS (AND (EQL (BIT BA I) (IF (ODDP I) 0 1)) (OR (NOT (SIMPLE-VECTOR-P BA)) (EQL (SBIT BA I) (IF (ODDP I) 0 1))) (EQL (AREF BA I) (IF (ODDP I) 0 1)) (EQL (VECTOR-POP BA) (IF (ODDP I) 0 1))) (RETURN NIL)))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-AND #*11101010 #*01101011) #*01101010)) -EQL-OK: NIL -(NOT (EQUAL (BIT-AND #*11101010 #*01101011 NIL) #*01101010)) -EQL-OK: NIL -(NOT (EQUAL (BIT-AND (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01101010)) -EQL-OK: NIL -(NOT (EQUAL (BIT-AND #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01101010)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-AND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01101010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-AND BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-AND BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00110000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-AND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*00110000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-AND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-AND BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-AND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011) #*00000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011 NIL) #*00000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*00000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00000001)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ANDC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*00000001)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ANDC1 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ANDC1 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00001110)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*00001110) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC1 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011) #*10000000)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011 NIL) #*10000000)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10000000)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10000000)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ANDC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10000000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ANDC2 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01010101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ANDC2 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01000001)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01000001) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC2 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-EQV #*11101010 #*01101011) #*01111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-EQV #*11101010 #*01101011 NIL) #*01111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-EQV (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-EQV #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01111110)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-EQV BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01111110)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-EQV BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-EQV BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10110000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-EQV BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10110000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-EQV BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-EQV BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-EQV BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-IOR #*11101010 #*01101011) #*11101011)) -EQL-OK: NIL -(NOT (EQUAL (BIT-IOR #*11101010 #*01101011 NIL) #*11101011)) -EQL-OK: NIL -(NOT (EQUAL (BIT-IOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*11101011)) -EQL-OK: NIL -(NOT (EQUAL (BIT-IOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*11101011)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-IOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*11101011)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-IOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-IOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01111111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-IOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01111111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-IOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-IOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-IOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-NAND #*11101010 #*01101011) #*10010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NAND #*11101010 #*01101011 NIL) #*10010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NAND (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NAND #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10010101)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-NAND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10010101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NAND BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NAND BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11001111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NAND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*11001111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NAND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NAND BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NAND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOR #*11101010 #*01101011) #*00010100)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOR #*11101010 #*01101011 NIL) #*00010100)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*00010100)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00010100)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-NOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*00010100)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10000000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10000000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011) #*01111111)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011 NIL) #*01111111)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01111111)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01111111)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ORC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01111111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ORC1 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ORC1 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10111110)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10111110) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC1 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011) #*11111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011 NIL) #*11111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*11111110)) -EQL-OK: NIL -(NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*11111110)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ORC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*11111110)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ORC2 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01010101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ORC2 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11110001)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*11110001) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC2 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-XOR #*11101010 #*01101011) #*10000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-XOR #*11101010 #*01101011 NIL) #*10000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-XOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10000001)) -EQL-OK: NIL -(NOT (EQUAL (BIT-XOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10000001)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-XOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10000001)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-XOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-XOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01001111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-XOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01001111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-XOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-XOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-XOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOT #*11101010) #*00010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOT #*11101010 NIL) #*00010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) T) #*00010101)) -EQL-OK: NIL -(NOT (EQUAL (BIT-NOT #*11101010 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00010101)) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA (BIT-NOT BA1))) (AND (NOT (EQ BA1 BA)) (EQUAL BA #*00010101)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10001110)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA3 (BIT-NOT BA1 BA2))) (AND (EQ BA2 BA3) (EQUAL BA2 #*10001110) (NOT (EQ BA1 BA2)) (NOT (EQ BA1 BA3))))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA (BIT-NOT BA1))) (AND (NOT (EQ BA1 BA)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) -EQL-OK: NIL -(NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOT BA1 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4))))) -EQL-OK: NIL -(NOT (BIT-VECTOR-P (MAKE-ARRAY 6 :ELEMENT-TYPE 'BIT :FILL-POINTER T))) -EQL-OK: NIL -(NOT (BIT-VECTOR-P #*)) -EQL-OK: NIL -(NOT (NOT (BIT-VECTOR-P (MAKE-ARRAY 6)))) -EQL-OK: NIL -(NOT (NOT (SIMPLE-BIT-VECTOR-P (MAKE-ARRAY 6)))) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P #*)) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P #*0101)) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P #*0)) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P #*1)) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P (MAKE-ARRAY 6 :ELEMENT-TYPE 'BIT))) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST (ADJUST-ARRAY (MAKE-ARRAY 5 :INITIAL-CONTENTS '(0 1 2 3 4)) 10 :INITIAL-ELEMENT -1)) '(0 1 2 3 4 -1 -1 -1 -1 -1))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((E0-0 E0-1) (E1-0 E1-1) (E2-0 E2-1)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(4 3) :INITIAL-ELEMENT 0))) (AND (EQ (AREF ARRAY 0 0) 'E0-0) (EQ (AREF ARRAY 0 1) 'E0-1) (EQL (AREF ARRAY 0 2) '0) (EQ (AREF ARRAY 1 0) 'E1-0) (EQ (AREF ARRAY 1 1) 'E1-1) (EQL (AREF ARRAY 1 2) 0) (EQ (AREF ARRAY 2 0) 'E2-0) (EQ (AREF ARRAY 2 1) 'E2-1) (EQL (AREF ARRAY 2 2) 0)))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((E0-0 E0-1) (E1-0 E1-1) (E2-0 E2-1)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(1 1) :INITIAL-ELEMENT 0))) (EQ (AREF ARRAY 0 0) 'E0-0))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-ELEMENT 0)) (ARRAY1 (MAKE-ARRAY 6 :INITIAL-ELEMENT 1)) (ARRAY (ADJUST-ARRAY ARRAY1 3 :DISPLACED-TO ARRAY0))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3)) (EVERY #'ZEROP ARRAY)))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((0 1) (2 3) (4 5)))) (ARRAY1 (MAKE-ARRAY 6 :INITIAL-ELEMENT 1)) (ARRAY (ADJUST-ARRAY ARRAY1 3 :DISPLACED-TO ARRAY0 :DISPLACED-INDEX-OFFSET 3))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3)) (EQL (AREF ARRAY 0) 3) (EQL (AREF ARRAY 1) 4) (EQL (AREF ARRAY 2) 5)))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((0 1) (2 3) (4 5)))) (ARRAY1 (MAKE-ARRAY 6 :DISPLACED-TO ARRAY0)) (ARRAY (ADJUST-ARRAY ARRAY1 9 :INITIAL-ELEMENT '-1))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(9)) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NULL DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))) (EQL (AREF ARRAY 0) 0) (EQL (AREF ARRAY 1) 1) (EQL (AREF ARRAY 2) 2) (EQL (AREF ARRAY 3) 3) (EQL (AREF ARRAY 4) 4) (EQL (AREF ARRAY 5) 5) (EQL (AREF ARRAY 6) -1) (EQL (AREF ARRAY 7) -1) (EQL (AREF ARRAY 8) -1)))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY '(4 4) :ADJUSTABLE T :INITIAL-CONTENTS '((ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA MU) (NU XI OMICRON PI)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(3 5) :INITIAL-ELEMENT 'BAZ))) (EQUALP ARRAY #2A((ALPHA BETA GAMMA DELTA BAZ) (EPSILON ZETA ETA THETA BAZ) (IOTA KAPPA LAMBDA MU BAZ))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY0 (MAKE-ARRAY 3 :INITIAL-ELEMENT 0)) (ARRAY1 (MAKE-ARRAY 3 :ADJUSTABLE T :DISPLACED-TO ARRAY0)) (ARRAY2 (MAKE-ARRAY 3 :DISPLACED-TO ARRAY1))) (AND (ADJUSTABLE-ARRAY-P ARRAY1) (EQ ARRAY1 (ADJUST-ARRAY ARRAY1 6 :INITIAL-CONTENTS '(A B C D E F))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY1) (AND (NULL DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))) (EQ (AREF ARRAY1 0) 'A) (EQ (AREF ARRAY1 1) 'B) (EQ (AREF ARRAY1 2) 'C) (EQ (AREF ARRAY1 3) 'D) (EQ (AREF ARRAY1 4) 'E) (EQ (AREF ARRAY1 5) 'F) (EQ (AREF ARRAY2 0) 'A) (EQ (AREF ARRAY2 1) 'B) (EQ (AREF ARRAY2 2) 'C)))) -EQL-OK: NIL -(NOT (LET* ((STR0 (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij")) (STR1 (MAKE-ARRAY 7 :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO STR0 :DISPLACED-INDEX-OFFSET 3)) (STR2 (MAKE-ARRAY 3 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO STR1 :DISPLACED-INDEX-OFFSET 4))) (AND (STRING= STR0 "abcdefghij") (STRING= STR1 "defghij") (STRING= STR2 "hij") (ADJUSTABLE-ARRAY-P STR1) (EQ STR1 (ADJUST-ARRAY STR1 10 :INITIAL-CONTENTS "QRSTUVWXYZ")) (STRING= STR2 "UVW")))) -EQL-OK: NIL -(NOT (LET* ((BV (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*1010101010 :FILL-POINTER T))) (AND (DOTIMES (I 10 T) (UNLESS (EQL (VECTOR-POP BV) (IF (EVENP I) 0 1)) (RETURN NIL))) (ZEROP (LENGTH BV))))) -EQL-OK: NIL -(NOT (LET* ((BV (MAKE-ARRAY 10 :ADJUSTABLE T :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 100) (VECTOR-PUSH-EXTEND (IF (ODDP I) 0 1) BV)) (DOTIMES (I 100 T) (UNLESS (EQL (VECTOR-POP BV) (IF (ODDP I) 1 0)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET* ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghjk" :FILL-POINTER T))) (AND (DOTIMES (I 10 T) (UNLESS (CHAR= (VECTOR-POP STR) (AREF "kjhgfedcba" I)) (RETURN NIL))) (ZEROP (LENGTH STR))))) -EQL-OK: NIL -(NOT (LET* ((STR (MAKE-ARRAY 10 :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER :FILL-POINTER 0))) (DOTIMES (I 100) (VECTOR-PUSH-EXTEND (IF (ODDP I) #\a #\z) STR)) (DOTIMES (I 100 T) (UNLESS (CHAR= (VECTOR-POP STR) (IF (ODDP I) #\z #\a)) (RETURN NIL))))) -EQL-OK: NIL -RUN-TEST: finished "must-array" (0 errors out of 330 tests) -RUN-TEST: started # -(NOT (CHAR= #\d #\d)) -EQL-OK: NIL -(NOT (NOT (CHAR= #\A #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\d #\x))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\d #\D))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\d #\d))) -EQL-OK: NIL -(NOT (CHAR/= #\d #\x)) -EQL-OK: NIL -(NOT (CHAR/= #\d #\D)) -EQL-OK: NIL -(NOT (CHAR= #\d #\d #\d #\d)) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\d #\d #\d #\d))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\d #\d #\x #\d))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\d #\d #\x #\d))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\d #\y #\x #\c))) -EQL-OK: NIL -(NOT (CHAR/= #\d #\y #\x #\c)) -EQL-OK: NIL -(NOT (NOT (CHAR= #\d #\c #\d))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\d #\c #\d))) -EQL-OK: NIL -(NOT (CHAR< #\d #\x)) -EQL-OK: NIL -(NOT (CHAR<= #\d #\x)) -EQL-OK: NIL -(NOT (NOT (CHAR< #\d #\d))) -EQL-OK: NIL -(NOT (CHAR<= #\d #\d)) -EQL-OK: NIL -(NOT (CHAR< #\a #\e #\y #\z)) -EQL-OK: NIL -(NOT (CHAR<= #\a #\e #\y #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR< #\a #\e #\e #\y))) -EQL-OK: NIL -(NOT (CHAR<= #\a #\e #\e #\y)) -EQL-OK: NIL -(NOT (CHAR> #\e #\d)) -EQL-OK: NIL -(NOT (CHAR>= #\e #\d)) -EQL-OK: NIL -(NOT (CHAR> #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (CHAR>= #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\d #\d #\c #\a))) -EQL-OK: NIL -(NOT (CHAR>= #\d #\d #\c #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\e #\d #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\e #\d #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\A #\a)) -EQL-OK: NIL -(NOT (EQUAL (STABLE-SORT (LIST #\b #\A #\B #\a #\c #\C) #'CHAR-LESSP) '(#\A #\a #\b #\B #\c #\C))) -EQL-OK: NIL -(NOT (CHAR= #\a)) -EQL-OK: NIL -(NOT (CHAR= #\a #\a)) -EQL-OK: NIL -(NOT (CHAR= #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR= #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR= #\a #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR= #\a #\a #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (LET ((C #\z)) (AND (EQ C C) (CHAR= C C)))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\Z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\i #\z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\z #\Z #\z))) -EQL-OK: NIL -(NOT (CHAR/= #\a)) -EQL-OK: NIL -(NOT (CHAR/= #\a #\b)) -EQL-OK: NIL -(NOT (CHAR/= #\a #\b #\c)) -EQL-OK: NIL -(NOT (CHAR/= #\a #\b #\c #\d)) -EQL-OK: NIL -(NOT (CHAR/= #\a #\b #\c #\d #\e)) -EQL-OK: NIL -(NOT (CHAR/= #\a #\b #\c #\d #\e #\f)) -EQL-OK: NIL -(NOT (LET ((C #\z)) (AND (EQ C C) (NOT (CHAR/= C C))))) -EQL-OK: NIL -(NOT (CHAR/= #\Z #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\i #\z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\z #\Z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR/= #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR< #\a)) -EQL-OK: NIL -(NOT (CHAR< #\a #\z)) -EQL-OK: NIL -(NOT (CHAR< #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR< #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) -EQL-OK: NIL -(NOT (CHAR< #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR< #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) -EQL-OK: NIL -(NOT (CHAR< #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) -EQL-OK: NIL -(NOT (NOT (CHAR< #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) -EQL-OK: NIL -(NOT (OR (CHAR< #\9 #\A) (CHAR< #\Z #\0))) -EQL-OK: NIL -(NOT (OR (CHAR< #\9 #\a) (CHAR< #\z #\0))) -EQL-OK: NIL -(NOT (NOT (CHAR< #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR< #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR< #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR< #\9 #\0))) -EQL-OK: NIL -(NOT (CHAR> #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\a #\z))) -EQL-OK: NIL -(NOT (CHAR> #\z #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (CHAR> #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (CHAR> #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (NOT (CHAR> #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (CHAR> #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (OR (CHAR> #\A #\9) (CHAR> #\0 #\Z))) -EQL-OK: NIL -(NOT (OR (CHAR> #\a #\9) (CHAR> #\0 #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR> #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR> #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR> #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR> #\9 #\0)) -EQL-OK: NIL -(NOT (CHAR<= #\a)) -EQL-OK: NIL -(NOT (CHAR<= #\a #\z)) -EQL-OK: NIL -(NOT (CHAR<= #\a #\a)) -EQL-OK: NIL -(NOT (CHAR<= #\Z #\Z)) -EQL-OK: NIL -(NOT (CHAR<= #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) -EQL-OK: NIL -(NOT (CHAR<= #\a #\a #\b #\b #\c #\c #\d #\d #\e #\e #\f #\f #\g #\g #\h #\h #\i #\i #\j #\j #\k #\k #\l #\l #\m #\m #\n #\n #\o #\o #\p #\p #\q #\q #\r #\r #\s #\s #\t #\t #\u #\u #\v #\v #\w #\w #\x #\x #\y #\y #\z #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) -EQL-OK: NIL -(NOT (CHAR<= #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (CHAR<= #\A #\B #\B #\C #\D #\E #\E #\F #\G #\H #\I #\I #\J #\K #\L #\M #\N #\N #\O #\P #\Q #\R #\S #\T #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) -EQL-OK: NIL -(NOT (CHAR<= #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) -EQL-OK: NIL -(NOT (CHAR<= #\0 #\1 #\2 #\2 #\3 #\3 #\3 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\9)) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) -EQL-OK: NIL -(NOT (OR (CHAR<= #\9 #\A) (CHAR<= #\Z #\0))) -EQL-OK: NIL -(NOT (OR (CHAR<= #\9 #\a) (CHAR<= #\z #\0))) -EQL-OK: NIL -(NOT (CHAR<= #\a #\a #\b #\c)) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR<= #\9 #\0))) -EQL-OK: NIL -(NOT (CHAR>= #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\a #\z))) -EQL-OK: NIL -(NOT (CHAR>= #\z #\a)) -EQL-OK: NIL -(NOT (CHAR>= #\a #\a)) -EQL-OK: NIL -(NOT (CHAR>= #\Z #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (CHAR>= #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (CHAR>= #\z #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (CHAR>= #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (CHAR>= #\Z #\Y #\X #\W #\V #\U #\U #\T #\T #\S #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\H #\G #\G #\F #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (CHAR>= #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (CHAR>= #\9 #\8 #\8 #\8 #\7 #\6 #\5 #\4 #\3 #\3 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (OR (CHAR>= #\A #\9) (CHAR>= #\0 #\Z))) -EQL-OK: NIL -(NOT (OR (CHAR>= #\a #\9) (CHAR>= #\0 #\z))) -EQL-OK: NIL -(NOT (CHAR>= #\c #\b #\a #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\c #\b #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\c #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\c #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR>= #\9 #\0)) -EQL-OK: NIL -(NOT (NOT (CHAR>= #\0 #\9))) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a #\a #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\A)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\A #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\A #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a #\A #\a)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\a #\a #\a #\A #\a)) -EQL-OK: NIL -(NOT (LET ((C #\z)) (AND (EQ C C) (CHAR-EQUAL C C)))) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\Z #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR-EQUAL #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR-EQUAL #\a #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR-EQUAL #\z #\i #\z #\z))) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\z #\z #\Z #\z)) -EQL-OK: NIL -(NOT (CHAR-EQUAL #\a #\A #\a #\A #\a #\A #\a #\A #\a #\A)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a #\b)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a #\b #\c)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d #\e)) -EQL-OK: NIL -(NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d #\e #\f)) -EQL-OK: NIL -(NOT (LET ((C #\z)) (AND (EQ C C) (NOT (CHAR-NOT-EQUAL C C))))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\Z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\i #\z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR= #\z #\z #\Z #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-EQUAL #\a #\A #\a #\A))) -EQL-OK: NIL -(NOT (CHAR-LESSP #\a)) -EQL-OK: NIL -(NOT (CHAR-LESSP #\a #\z)) -EQL-OK: NIL -(NOT (CHAR-LESSP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) -EQL-OK: NIL -(NOT (CHAR-LESSP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) -EQL-OK: NIL -(NOT (CHAR-LESSP #\a #\B #\c #\D #\e #\F #\g #\H #\i #\J #\k #\L #\m #\N #\o #\P #\q #\R #\s #\T #\u #\V #\w #\X #\y #\Z)) -EQL-OK: NIL -(NOT (CHAR-LESSP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) -EQL-OK: NIL -(NOT (OR (CHAR-LESSP #\9 #\A) (CHAR-LESSP #\Z #\0))) -EQL-OK: NIL -(NOT (OR (CHAR-LESSP #\9 #\a) (CHAR-LESSP #\z #\0))) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR-LESSP #\9 #\0))) -EQL-OK: NIL -(NOT (AND (CHAR-LESSP #\a #\Z) (CHAR-LESSP #\A #\z))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\a #\z))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\z #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\z #\Y #\x #\W #\v #\U #\t #\S #\r #\Q #\p #\O #\n #\M #\l #\K #\j #\I #\h #\G #\f #\E #\d #\C #\b #\A)) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (OR (CHAR-GREATERP #\A #\9) (CHAR-GREATERP #\0 #\Z))) -EQL-OK: NIL -(NOT (OR (CHAR-GREATERP #\a #\9) (CHAR-GREATERP #\0 #\z))) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-GREATERP #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR-GREATERP #\9 #\0)) -EQL-OK: NIL -(NOT (AND (CHAR-GREATERP #\z #\A) (CHAR-GREATERP #\Z #\a))) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\z)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\Z #\Z)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\a #\b #\b #\c #\c #\d #\d #\e #\e #\f #\f #\g #\g #\h #\h #\i #\i #\j #\j #\k #\k #\l #\l #\m #\m #\n #\n #\o #\o #\p #\p #\q #\q #\r #\r #\s #\s #\t #\t #\u #\u #\v #\v #\w #\w #\x #\x #\y #\y #\z #\z)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\A #\b #\B #\c #\C #\d #\D #\e #\E #\f #\F #\g #\G #\h #\H #\i #\I #\j #\J #\k #\K #\l #\L #\m #\M #\n #\N #\o #\O #\p #\P #\q #\Q #\r #\R #\s #\S #\t #\T #\u #\U #\v #\V #\w #\W #\x #\X #\y #\Y #\z #\z)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\A #\B #\B #\C #\D #\E #\E #\F #\G #\H #\I #\I #\J #\K #\L #\M #\N #\N #\O #\P #\Q #\R #\S #\T #\T #\U #\V #\W #\X #\Y #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\0 #\1 #\2 #\2 #\3 #\3 #\3 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\9)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) -EQL-OK: NIL -(NOT (OR (CHAR-NOT-GREATERP #\9 #\A) (CHAR-NOT-GREATERP #\Z #\0))) -EQL-OK: NIL -(NOT (OR (CHAR-NOT-GREATERP #\9 #\a) (CHAR-NOT-GREATERP #\z #\0))) -EQL-OK: NIL -(NOT (CHAR-NOT-GREATERP #\a #\a #\b #\c)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\a #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\a #\b #\c #\a))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-GREATERP #\9 #\0))) -EQL-OK: NIL -(NOT (AND (CHAR-NOT-GREATERP #\A #\z) (CHAR-NOT-GREATERP #\a #\Z))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\a #\z))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\z #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\a #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\Z #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\z #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\Z #\Y #\X #\W #\V #\U #\U #\T #\T #\S #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\H #\G #\G #\F #\F #\E #\D #\C #\B #\A)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\z #\Z #\y #\x #\w #\V #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\M #\l #\k #\K #\j #\i #\h #\g #\f #\e #\d #\c #\b #\A #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\9 #\8 #\8 #\8 #\7 #\6 #\5 #\4 #\3 #\3 #\3 #\2 #\1 #\0)) -EQL-OK: NIL -(NOT (OR (CHAR-NOT-LESSP #\A #\9) (CHAR-NOT-LESSP #\0 #\Z))) -EQL-OK: NIL -(NOT (OR (CHAR-NOT-LESSP #\a #\9) (CHAR-NOT-LESSP #\0 #\z))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\c #\b #\a #\a)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\c #\b #\a #\a #\b #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\c #\b #\a #\c))) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\c #\b #\c #\a))) -EQL-OK: NIL -(NOT (CHAR-NOT-LESSP #\9 #\0)) -EQL-OK: NIL -(NOT (NOT (CHAR-NOT-LESSP #\0 #\9))) -EQL-OK: NIL -(NOT (AND (CHAR-NOT-LESSP #\z #\A) (CHAR-NOT-LESSP #\Z #\a))) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER #\a) #\a)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER #\b) #\b)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER #\ ) #\ )) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER "a") #\a)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER "X") #\X)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER "z") #\z)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER 'A) #\A)) -EQL-OK: NIL -(NOT (CHAR= (CHARACTER '|a|) #\a)) -EQL-OK: NIL -(NOT (ALPHA-CHAR-P #\a)) -EQL-OK: NIL -(NOT (EVERY #'ALPHA-CHAR-P '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (EVERY #'ALPHA-CHAR-P '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (NOTANY #'ALPHA-CHAR-P '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (NOT (ALPHA-CHAR-P #\Newline))) -EQL-OK: NIL -(NOT (ALPHANUMERICP #\Z)) -EQL-OK: NIL -(NOT (ALPHANUMERICP #\9)) -EQL-OK: NIL -(NOT (EVERY #'ALPHANUMERICP '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) -EQL-OK: NIL -(NOT (EVERY #'ALPHANUMERICP '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) -EQL-OK: NIL -(NOT (EVERY #'ALPHANUMERICP '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) -EQL-OK: NIL -(NOT (NOT (ALPHANUMERICP #\Newline))) -EQL-OK: NIL -(NOT (NOT (ALPHANUMERICP #\#))) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 0) #\0)) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 10 11) #\A)) -EQL-OK: NIL -(NOT (NULL (DIGIT-CHAR 10 10))) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 7) #\7)) -EQL-OK: NIL -(NOT (NULL (DIGIT-CHAR 12))) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 12 16) #\C)) -EQL-OK: NIL -(NOT (NULL (DIGIT-CHAR 6 2))) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 1 2) #\1)) -EQL-OK: NIL -(NOT (CHAR= (DIGIT-CHAR 35 36) #\Z)) -EQL-OK: NIL -(NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (CHAR= (DIGIT-CHAR I RADIX) (SVREF #(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z) I)) (RETURN NIL))) (RETURN NIL)))) -EQL-OK: NIL -(NOT (= (DIGIT-CHAR-P #\0) 0)) -EQL-OK: NIL -(NOT (= (DIGIT-CHAR-P #\5) 5)) -EQL-OK: NIL -(NOT (NOT (DIGIT-CHAR-P #\5 2))) -EQL-OK: NIL -(NOT (NOT (DIGIT-CHAR-P #\A))) -EQL-OK: NIL -(NOT (NOT (DIGIT-CHAR-P #\a))) -EQL-OK: NIL -(NOT (= (DIGIT-CHAR-P #\A 11) 10)) -EQL-OK: NIL -(NOT (= (DIGIT-CHAR-P #\a 11) 10)) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'(LAMBDA (RADIX) (MAP 'LIST #'(LAMBDA (X) (DIGIT-CHAR-P X RADIX)) "059AaFGZ")) '(2 8 10 16 36)) '((0 NIL NIL NIL NIL NIL NIL NIL) (0 5 NIL NIL NIL NIL NIL NIL) (0 5 9 NIL NIL NIL NIL NIL) (0 5 9 10 10 15 NIL NIL) (0 5 9 10 10 15 16 35)))) -EQL-OK: NIL -(NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (= (DIGIT-CHAR-P (SCHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" I) RADIX) I) (RETURN NIL))) (RETURN NIL)))) -EQL-OK: NIL -(NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (= (DIGIT-CHAR-P (SCHAR "0123456789abcdefghijklmnopqrstuvwxyz" I) RADIX) I) (RETURN NIL))) (RETURN NIL)))) -EQL-OK: NIL -(NOT (GRAPHIC-CHAR-P #\G)) -EQL-OK: NIL -(NOT (GRAPHIC-CHAR-P #\#)) -EQL-OK: NIL -(NOT (GRAPHIC-CHAR-P #\ )) -EQL-OK: NIL -(NOT (NOT (GRAPHIC-CHAR-P #\Newline))) -EQL-OK: NIL -(NOT (STANDARD-CHAR-P #\a)) -EQL-OK: NIL -(NOT (STANDARD-CHAR-P #\z)) -EQL-OK: NIL -(NOT (STANDARD-CHAR-P #\Newline)) -EQL-OK: NIL -(NOT (EVERY #'STANDARD-CHAR-P " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ -")) -EQL-OK: NIL -(NOT (CHAR= (CHAR-UPCASE #\a) #\A)) -EQL-OK: NIL -(NOT (CHAR= (CHAR-UPCASE #\A) #\A)) -EQL-OK: NIL -(NOT (CHAR= (CHAR-UPCASE #\-) #\-)) -EQL-OK: NIL -(NOT (CHAR= (CHAR-DOWNCASE #\A) #\a)) -EQL-OK: NIL -(NOT (CHAR= (CHAR-DOWNCASE #\a) #\a)) -EQL-OK: NIL -(NOT (CHAR= (CHAR-DOWNCASE #\-) #\-)) -EQL-OK: NIL -(NOT (NOT (UPPER-CASE-P #\a))) -EQL-OK: NIL -(NOT (UPPER-CASE-P #\A)) -EQL-OK: NIL -(NOT (NOT (UPPER-CASE-P #\-))) -EQL-OK: NIL -(NOT (NOT (LOWER-CASE-P #\A))) -EQL-OK: NIL -(NOT (LOWER-CASE-P #\a)) -EQL-OK: NIL -(NOT (NOT (LOWER-CASE-P #\-))) -EQL-OK: NIL -(NOT (BOTH-CASE-P #\a)) -EQL-OK: NIL -(NOT (BOTH-CASE-P #\A)) -EQL-OK: NIL -(NOT (NOT (BOTH-CASE-P #\-))) -EQL-OK: NIL -(NOT (LET ((CHARS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ -") C) (DOTIMES (I (LENGTH CHARS) T) (SETQ C (SCHAR CHARS I)) (COND ((UPPER-CASE-P C) (UNLESS (AND (BOTH-CASE-P C) (NOT (LOWER-CASE-P C)) (CHAR= (CHAR-UPCASE C) C) (NOT (CHAR= (CHAR-DOWNCASE C) C))) (RETURN NIL))) ((LOWER-CASE-P C) (UNLESS (AND (BOTH-CASE-P C) (CHAR= (CHAR-DOWNCASE C) C) (NOT (CHAR= (CHAR-UPCASE C) C))) (RETURN NIL))) (T (UNLESS (AND (NOT (UPPER-CASE-P C)) (NOT (LOWER-CASE-P C)) (NOT (BOTH-CASE-P C)) (CHAR= (CHAR-UPCASE C) C) (CHAR= (CHAR-DOWNCASE C) C)) (RETURN NIL))))))) -EQL-OK: NIL -(NOT (EVERY (COMPLEMENT #'MINUSP) (MAP 'LIST #'CHAR-CODE " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ -"))) -EQL-OK: NIL -(NOT (EVERY (COMPLEMENT #'MINUSP) (MAP 'LIST #'CHAR-INT " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ -"))) -EQL-OK: NIL -(NOT (EVERY #'CHARACTERP (MAP 'LIST #'CODE-CHAR (MAP 'LIST #'CHAR-CODE " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ -")))) -EQL-OK: NIL -(NOT (DOTIMES (I CHAR-CODE-LIMIT T) (UNLESS (OR (NULL (CODE-CHAR I)) (CHARACTERP (CODE-CHAR I))) (RETURN NIL)))) -EQL-OK: NIL -(NOT (CHAR= #\ (NAME-CHAR (CHAR-NAME #\ )))) -EQL-OK: NIL -(NOT (CHAR= #\ (NAME-CHAR (CHAR-NAME #\ )))) -EQL-OK: NIL -(NOT (CHAR= #\Newline (NAME-CHAR (CHAR-NAME #\Newline)))) -EQL-OK: NIL -RUN-TEST: finished "must-character" (0 errors out of 313 tests) -RUN-TEST: started # -(NOT (CONSP (CONS 'A 'B))) -EQL-OK: NIL -(NOT (CONSP '(1 . 2))) -EQL-OK: NIL -(NOT (CONSP (LIST NIL))) -EQL-OK: NIL -(NOT (NOT (CONSP 'A))) -EQL-OK: NIL -(NOT (NOT (CONSP NIL))) -EQL-OK: NIL -(NOT (NOT (CONSP 1))) -EQL-OK: NIL -(NOT (NOT (CONSP #\a))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (AND (EQL (CAR A) 1) (EQL (CDR A) 2)))) -EQL-OK: NIL -(NOT (EQUAL (CONS 1 NIL) '(1))) -EQL-OK: NIL -(NOT (EQUAL (CONS NIL NIL) '(NIL))) -EQL-OK: NIL -(NOT (EQUAL (CONS 'A (CONS 'B (CONS 'C 'NIL))) '(A B C))) -EQL-OK: NIL -(NOT (ATOM 'A)) -EQL-OK: NIL -(NOT (ATOM NIL)) -EQL-OK: NIL -(NOT (ATOM 1)) -EQL-OK: NIL -(NOT (ATOM #\a)) -EQL-OK: NIL -(NOT (NOT (ATOM (CONS 1 2)))) -EQL-OK: NIL -(NOT (NOT (ATOM '(A . B)))) -EQL-OK: NIL -(NOT (NOT (ATOM (LIST NIL)))) -EQL-OK: NIL -(NOT (LISTP NIL)) -EQL-OK: NIL -(NOT (LISTP '(A B C))) -EQL-OK: NIL -(NOT (LISTP '(A . B))) -EQL-OK: NIL -(NOT (LISTP (CONS 'A 'B))) -EQL-OK: NIL -(NOT (LISTP '#1=(1 2 . #1#))) -EQL-OK: NIL -(NOT (NOT (LISTP 1))) -EQL-OK: NIL -(NOT (NOT (LISTP 'T))) -EQL-OK: NIL -(NOT (NULL 'NIL)) -EQL-OK: NIL -(NOT (NULL 'NIL)) -EQL-OK: NIL -(NOT (NULL NIL)) -EQL-OK: NIL -(NOT (NOT (NULL T))) -EQL-OK: NIL -(NOT (NULL (CDR '(A)))) -EQL-OK: NIL -(NOT (NOT (NULL (CDR '(1 . 2))))) -EQL-OK: NIL -(NOT (NOT (NULL 'A))) -EQL-OK: NIL -(NOT (ENDP 'NIL)) -EQL-OK: NIL -(NOT (NOT (ENDP '(1)))) -EQL-OK: NIL -(NOT (NOT (ENDP '(1 2)))) -EQL-OK: NIL -(NOT (NOT (ENDP '(1 2 3)))) -EQL-OK: NIL -(NOT (NOT (ENDP (CONS 1 2)))) -EQL-OK: NIL -(NOT (ENDP (CDDR '(1 2)))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (AND (EQ (RPLACA A 0) A) (EQUAL A '(0 . 2))))) -EQL-OK: NIL -(NOT (LET ((A (LIST 1 2 3))) (AND (EQ (RPLACA A 0) A) (EQUAL A '(0 2 3))))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (AND (EQ (RPLACD A 0) A) (EQUAL A '(1 . 0))))) -EQL-OK: NIL -(NOT (LET ((A (LIST 1 2 3))) (AND (EQ (RPLACD A 0) A) (EQUAL A '(1 . 0))))) -EQL-OK: NIL -(NOT (EQ (CAR '(A . B)) 'A)) -EQL-OK: NIL -(NOT (NULL (CAR NIL))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (EQ (CAR (LIST A)) A))) -EQL-OK: NIL -(NOT (EQ (CAR '#1=(A . #1#)) 'A)) -EQL-OK: NIL -(NOT (EQ (CDR '(A . B)) 'B)) -EQL-OK: NIL -(NOT (EQ (REST '(A . B)) 'B)) -EQL-OK: NIL -(NOT (NULL (CDR NIL))) -EQL-OK: NIL -(NOT (NULL (REST NIL))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (EQ (CDR (CONS 1 A)) A))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (EQ (REST (CONS 1 A)) A))) -EQL-OK: NIL -(NOT (LET ((X '#1=(A . #1#))) (EQ (CDR X) X))) -EQL-OK: NIL -(NOT (LET ((X '#1=(A . #1#))) (EQ (REST X) X))) -EQL-OK: NIL -(NOT (EQ (CAAR '((A) B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (CADR '(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (CDAR '((A . AA) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CDDR '(A B . C)) 'C)) -EQL-OK: NIL -(NOT (EQ (CAAAR '(((A)) B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (CAADR '(A (B) C)) 'B)) -EQL-OK: NIL -(NOT (EQ (CADAR '((A AA) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CADDR '(A B C)) 'C)) -EQL-OK: NIL -(NOT (EQ (CDAAR '(((A . AA)) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CDADR '(A (B . BB) C)) 'BB)) -EQL-OK: NIL -(NOT (EQ (CDDAR '((A AA . AAA) B C)) 'AAA)) -EQL-OK: NIL -(NOT (EQ (CDDDR '(A B C . D)) 'D)) -EQL-OK: NIL -(NOT (EQ (CAAAAR '((((A))) B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (CAAADR '(A ((B)) C)) 'B)) -EQL-OK: NIL -(NOT (EQ (CAADAR '((A (AA)) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CAADDR '(A B (C))) 'C)) -EQL-OK: NIL -(NOT (EQ (CADAAR '(((A AA)) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CADADR '(A (B BB) C)) 'BB)) -EQL-OK: NIL -(NOT (EQ (CADDAR '((A AA AAA) B C)) 'AAA)) -EQL-OK: NIL -(NOT (EQ (CADDDR '(A B C D)) 'D)) -EQL-OK: NIL -(NOT (EQ (CDAAAR '((((A . AA))) B C)) 'AA)) -EQL-OK: NIL -(NOT (EQ (CDAADR '(A ((B . BB)) C)) 'BB)) -EQL-OK: NIL -(NOT (EQ (CDADAR '((A (AA . AAA)) B C)) 'AAA)) -EQL-OK: NIL -(NOT (EQ (CDADDR '(A B (C . CC))) 'CC)) -EQL-OK: NIL -(NOT (EQ (CDDAAR '(((A AA . AAA)) B C)) 'AAA)) -EQL-OK: NIL -(NOT (EQ (CDDADR '(A (B BB . BBB) C)) 'BBB)) -EQL-OK: NIL -(NOT (EQ (CDDDAR '((A AA AAA . AAAA) B C)) 'AAAA)) -EQL-OK: NIL -(NOT (EQ (CDDDDR '(A B C D . E)) 'E)) -EQL-OK: NIL -(NOT (LET ((X (CONS 1 2))) (AND (EQL (SETF (CAR X) 0) 0) (EQUAL X '(0 . 2))))) -EQL-OK: NIL -(NOT (LET ((X (CONS 1 2))) (AND (EQL (SETF (CDR X) 0) 0) (EQUAL X '(1 . 0))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A) B C)))) (AND (EQL (SETF (CAAR X) 0) 0) (EQUAL X '((0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (CADR X) 0) 0) (EQUAL X '(A 0 C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A . AA) B C)))) (AND (EQL (SETF (CDAR X) 0) 0) (EQUAL X '((A . 0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A B . C)))) (AND (EQL (SETF (CDDR X) 0) 0) (EQUAL X '(A B . 0))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(((A)) B C)))) (AND (EQL (SETF (CAAAR X) 0) 0) (EQUAL X '(((0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A (B) C)))) (AND (EQL (SETF (CAADR X) 0) 0) (EQUAL X '(A (0) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A AA) B C)))) (AND (EQL (SETF (CADAR X) 0) 0) (EQUAL X '((A 0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (CADDR X) 0) 0) (EQUAL X '(A B 0))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(((A . AA)) B C)))) (AND (EQL (SETF (CDAAR X) 0) 0) (EQUAL X '(((A . 0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A (B . BB) C)))) (AND (EQL (SETF (CDADR X) 0) 0) (EQUAL X '(A (B . 0) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A AA . AAA) B C)))) (AND (EQL (SETF (CDDAR X) 0) 0) (EQUAL X '((A AA . 0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A B C . D)))) (AND (EQL (SETF (CDDDR X) 0) 0) (EQUAL X '(A B C . 0))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((((A))) B C)))) (AND (EQL (SETF (CAAAAR X) 0) 0) (EQUAL X '((((0))) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A ((B)) C)))) (AND (EQL (SETF (CAAADR X) 0) 0) (EQUAL X '(A ((0)) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A (AA)) B C)))) (AND (EQL (SETF (CAADAR X) 0) 0) (EQUAL X '((A (0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A B (C))))) (AND (EQL (SETF (CAADDR X) 0) 0) (EQUAL X '(A B (0)))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(((A AA)) B C)))) (AND (EQL (SETF (CADAAR X) 0) 0) (EQUAL X '(((A 0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A (B BB) C)))) (AND (EQL (SETF (CADADR X) 0) 0) (EQUAL X '(A (B 0) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A AA AAA) B C)))) (AND (EQL (SETF (CADDAR X) 0) 0) (EQUAL X '((A AA 0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQL (SETF (CADDDR X) 0) 0) (EQUAL X '(A B C 0))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((((A . AA))) B C)))) (AND (EQL (SETF (CDAAAR X) 0) 0) (EQUAL X '((((A . 0))) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A ((B . BB)) C)))) (AND (EQL (SETF (CDAADR X) 0) 0) (EQUAL X '(A ((B . 0)) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A (AA . AAA)) B C)))) (AND (EQL (SETF (CDADAR X) 0) 0) (EQUAL X '((A (AA . 0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A B (C . CC))))) (AND (EQL (SETF (CDADDR X) 0) 0) (EQUAL X '(A B (C . 0)))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(((A AA . AAA)) B C)))) (AND (EQL (SETF (CDDAAR X) 0) 0) (EQUAL X '(((A AA . 0)) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A (B BB . BBB) C)))) (AND (EQL (SETF (CDDADR X) 0) 0) (EQUAL X '(A (B BB . 0) C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '((A AA AAA . AAAA) B C)))) (AND (EQL (SETF (CDDDAR X) 0) 0) (EQUAL X '((A AA AAA . 0) B C))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A B C D . E)))) (AND (EQL (SETF (CDDDDR X) 0) 0) (EQUAL X '(A B C D . 0))))) -EQL-OK: NIL -(NOT (EQ (COPY-TREE 'A) 'A)) -EQL-OK: NIL -(NOT (EQ (COPY-TREE NIL) NIL)) -EQL-OK: NIL -(NOT (LET* ((A (LIST 'A)) (B (LIST 'B)) (C (LIST 'C)) (X3 (CONS C NIL)) (X2 (CONS B X3)) (X (CONS A X2)) (Y (COPY-TREE X))) (AND (NOT (EQ X Y)) (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CDR X) (CDR Y))) (NOT (EQ (CADR X) (CADR Y))) (NOT (EQ (CDDR X) (CDDR Y))) (NOT (EQ (CADDR X) (CADDR Y))) (EQ (CDDDR X) (CDDDR Y)) (EQUAL X Y) (EQ (CAR X) A) (EQ (CAR A) 'A) (EQ (CDR A) NIL) (EQ (CDR X) X2) (EQ (CAR X2) B) (EQ (CAR B) 'B) (EQ (CDR B) NIL) (EQ (CDR X2) X3) (EQ (CAR X3) C) (EQ (CAR C) 'C) (EQ (CDR C) NIL) (EQ (CDR X3) NIL)))) -EQL-OK: NIL -(NOT (LET* ((X (LIST (LIST 'A 1) (LIST 'B 2) (LIST 'C 3))) (Y (COPY-TREE X))) (AND (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CADR X) (CADR Y))) (NOT (EQ (CADDR X) (CADDR Y)))))) -EQL-OK: NIL -(NOT (LET* ((X (LIST (LIST (LIST 1)))) (Y (COPY-TREE X))) (AND (NOT (EQ X Y)) (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CAAR X) (CAAR Y)))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) X) '(1 2 3 D)) (EQUAL X '(A B C D))))) -EQL-OK: NIL -(NOT (LET* ((N (CONS 'N NIL)) (M (CONS 'M N)) (L (CONS 'L M)) (X (SUBLIS '((A . 1) (B . 2) (C . 3)) L))) (AND (EQ X L) (EQ (CAR L) 'L) (EQ (CDR L) M) (EQ (CAR M) 'M) (EQ (CDR M) N) (EQ (CAR N) 'N) (EQ (CDR N) NIL)))) -EQL-OK: NIL -(NOT (EQ (SUBLIS 'NIL 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS 'NIL '(1 2 3)) '(1 2 3))) -EQL-OK: NIL -(NOT (EQ (SUBLIS '((A . 1) (B . 2)) 'NIL) NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '((A B C) (B C D) (C D E)) '(A B C)) '((B C) (C D) (D E)))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) '(((A)) (B) C)) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C))) '((((A))) ((B)) (C)))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :TEST #'EQUAL) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) '((((A))) ((B)) (C)) :KEY #'CAR) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :KEY #'CAR :TEST #'EQUAL) '((1) 2 . 3))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (LIST 'A 'B 'C 'D)) '(1 2 3 D))) -EQL-OK: NIL -(NOT (LET* ((X (LIST 'A 'B 'C 'D)) (Y (NSUBLIS '((A . 1) (B . 2) (C . 3)) X))) (AND (EQ X Y) (EQUAL X '(1 2 3 D))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'L 'M 'N))) (AND (EQ (NSUBLIS '((A . 1) (B . 2) (C . 3)) X) X) (EQUAL X '(L M N))))) -EQL-OK: NIL -(NOT (LET* ((N (CONS 'N NIL)) (M (CONS 'M N)) (L (CONS 'L M)) (X (NSUBLIS '((A . 1) (B . 2) (C . 3)) L))) (AND (EQ X L) (EQ (CAR L) 'L) (EQ (CDR L) M) (EQ (CAR M) 'M) (EQ (CDR M) N) (EQ (CAR N) 'N) (EQ (CDR N) NIL)))) -EQL-OK: NIL -(NOT (EQ (NSUBLIS 'NIL 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS 'NIL '(1 2 3)) '(1 2 3))) -EQL-OK: NIL -(NOT (EQ (NSUBLIS '((A . 1) (B . 2)) 'NIL) NIL)) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '((A B C) (B C D) (C D E)) (LIST 'A 'B 'C)) '((B C) (C D) (D E)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (COPY-TREE '(((A)) (B) C))) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C)))) '((((A))) ((B)) (C)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :TEST #'EQUAL) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (COPY-TREE '((((A))) ((B)) (C))) :KEY #'CAR) '(((1)) (2) 3))) -EQL-OK: NIL -(NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :KEY 'CAR :TEST #'EQUAL) '((1) 2 . 3))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST 'NEW 'OLD TREE) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (EQ (SUBST 'NEW 'OLD 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (SUBST 'NEW 'OLD 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (SUBST 'NEW '(B) '(A ((B))) :TEST #'EQUAL) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (SUBST 'NEW '(B) '(A ((B))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (SUBST 'X 3 '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (SUBST 'X "D" '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :TEST #'EQUALP :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) '(OLD OLD)) '(NEW NEW))) -EQL-OK: NIL -(NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) TREE) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQUAL X '(B))) '(A ((B)))) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQUALP X "D")) '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) '(OLD OLD)) '(NEW NEW))) -EQL-OK: NIL -(NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) TREE) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQUAL X '(B)))) '(A ((B)))) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQUALP X "D"))) '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST 'NEW 'OLD (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (LET* ((TREE (COPY-TREE '(OLD (OLD) ((OLD))))) (NEW-TREE (NSUBST 'NEW 'OLD TREE))) (AND (EQ TREE NEW-TREE) (EQUAL TREE '(NEW (NEW) ((NEW))))))) -EQL-OK: NIL -(NOT (EQ (NSUBST 'NEW 'OLD 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (NSUBST 'NEW 'OLD 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (NSUBST 'NEW '(B) (COPY-TREE '(A ((B)))) :TEST #'EQUAL) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST 'NEW '(B) (COPY-TREE '(A ((B)))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST 'X 3 (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST 'X "D" (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :TEST #'EQUALP :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) (LIST 'OLD 'OLD)) '(NEW NEW))) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (LET* ((X (COPY-TREE '(OLD (OLD) ((OLD)) (OLD) OLD))) (Y (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) X))) (AND (EQ X Y) (EQUAL X '(NEW (NEW) ((NEW)) (NEW) NEW))))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQUAL X '(B))) (COPY-TREE '(A ((B))))) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQUALP X "D")) (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) (LIST 'OLD 'OLD)) '(NEW NEW))) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (LET* ((X (COPY-TREE '(OLD (OLD) ((OLD)) (OLD) OLD))) (Y (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) X))) (AND (EQ X Y) (EQUAL X '(NEW (NEW) ((NEW)) (NEW) NEW))))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) -EQL-OK: NIL -(NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'NOT-OLD) 'NOT-OLD)) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQUAL X '(B)))) (COPY-TREE '(A ((B))))) '(A (NEW)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) -EQL-OK: NIL -(NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQUALP X "D"))) (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) -EQL-OK: NIL -(NOT (TREE-EQUAL 'A 'A)) -EQL-OK: NIL -(NOT (NOT (TREE-EQUAL 'A 'B))) -EQL-OK: NIL -(NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))))) -EQL-OK: NIL -(NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))) :TEST #'EQ)) -EQL-OK: NIL -(NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))) :TEST-NOT (COMPLEMENT #'EQ))) -EQL-OK: NIL -(NOT (NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c")))))) -EQL-OK: NIL -(NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c"))) :TEST #'EQUAL)) -EQL-OK: NIL -(NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c"))) :TEST-NOT (COMPLEMENT #'EQUAL))) -EQL-OK: NIL -(NOT (NOT (TREE-EQUAL '(A B) '(A (B))))) -EQL-OK: NIL -(NOT (EQ (COPY-LIST 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (COPY-LIST '(A B C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (COPY-LIST '(A . B)) '(A . B))) -EQL-OK: NIL -(NOT (LET* ((X '(A B C)) (Y (COPY-LIST X))) (AND (EQUAL X Y) (NOT (EQ X Y))))) -EQL-OK: NIL -(NOT (LET* ((A (LIST 'A)) (B (LIST 'B)) (C (LIST 'C)) (X (LIST A B C)) (Y (COPY-LIST X))) (AND (EQUAL X Y) (NOT (EQ X Y)) (EQ (CAR X) (CAR Y)) (EQ (CADR X) (CADR Y)) (EQ (CADDR X) (CADDR Y)) (EQ (CAAR X) 'A) (EQ (CAADR X) 'B) (EQ (CAADDR X) 'C)))) -EQL-OK: NIL -(NOT (NULL (LIST))) -EQL-OK: NIL -(NOT (EQUAL (LIST 1) '(1))) -EQL-OK: NIL -(NOT (EQUAL (LIST 1 2 3) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LIST* 1 2 '(3)) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LIST* 1 2 'X) '(1 2 . X))) -EQL-OK: NIL -(NOT (EQUAL (LIST* 1 2 '(3 4)) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQ (LIST* 'X) 'X)) -EQL-OK: NIL -(NOT (EQL (LIST-LENGTH 'NIL) 0)) -EQL-OK: NIL -(NOT (EQL (LIST-LENGTH '(1)) 1)) -EQL-OK: NIL -(NOT (EQL (LIST-LENGTH '(1 2)) 2)) -EQL-OK: NIL -(NOT (NULL (LIST-LENGTH '#1=(1 2 3 4 . #1#)))) -EQL-OK: NIL -(NOT (EQUAL (MAKE-LIST 5) '(NIL NIL NIL NIL NIL))) -EQL-OK: NIL -(NOT (EQUAL (MAKE-LIST 3 :INITIAL-ELEMENT 'RAH) '(RAH RAH RAH))) -EQL-OK: NIL -(NOT (EQUAL (MAKE-LIST 2 :INITIAL-ELEMENT '(1 2 3)) '((1 2 3) (1 2 3)))) -EQL-OK: NIL -(NOT (NULL (MAKE-LIST 0))) -EQL-OK: NIL -(NOT (NULL (MAKE-LIST 0 :INITIAL-ELEMENT 'NEW-ELEMENT))) -EQL-OK: NIL -(NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSH 0 PLACE) '(0)) (EQUAL PLACE '(0))))) -EQL-OK: NIL -(NOT (LET ((PLACE (LIST 1 2 3))) (AND (EQUAL (PUSH 0 PLACE) '(0 1 2 3)) (EQUAL PLACE '(0 1 2 3))))) -EQL-OK: NIL -(NOT (LET ((A (LIST (LIST 1 2 3) 9))) (AND (EQUAL (PUSH 0 (CAR A)) '(0 1 2 3)) (EQUAL A '((0 1 2 3) 9))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-TREE '(A (B C) D)))) (AND (EQUAL (PUSH 'AA (CADR X)) '(AA B C)) (EQUAL X '(A (AA B C) D))))) -EQL-OK: NIL -(NOT (LET ((PLACE (LIST 1 2 3))) (AND (EQL (POP PLACE) 1) (EQUAL PLACE '(2 3))))) -EQL-OK: NIL -(NOT (LET ((PLACE 'NIL)) (AND (EQL (POP PLACE) NIL) (EQUAL PLACE 'NIL)))) -EQL-OK: NIL -(NOT (LET ((A (LIST (LIST 1 2 3) 9))) (AND (EQL (POP (CAR A)) 1) (EQUAL A '((2 3) 9))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (POP (CDR X)) 'B) (EQUAL X '(A C))))) -EQL-OK: NIL -(NOT (EQ (FIRST '(A . B)) 'A)) -EQL-OK: NIL -(NOT (NULL (FIRST NIL))) -EQL-OK: NIL -(NOT (LET ((A (CONS 1 2))) (EQ (FIRST (LIST A)) A))) -EQL-OK: NIL -(NOT (EQ (FIRST '#1=(A . #1#)) 'A)) -EQL-OK: NIL -(NOT (EQL (FIRST '(1 2 3)) '1)) -EQL-OK: NIL -(NOT (EQL (SECOND '(1 2 3)) '2)) -EQL-OK: NIL -(NOT (EQL (THIRD '(1 2 3)) '3)) -EQL-OK: NIL -(NOT (EQL (FOURTH '(1 2 3 4)) '4)) -EQL-OK: NIL -(NOT (EQL (FIFTH '(1 2 3 4 5)) '5)) -EQL-OK: NIL -(NOT (EQL (SIXTH '(1 2 3 4 5 6)) '6)) -EQL-OK: NIL -(NOT (EQL (SEVENTH '(1 2 3 4 5 6 7)) '7)) -EQL-OK: NIL -(NOT (EQL (EIGHTH '(1 2 3 4 5 6 7 8)) '8)) -EQL-OK: NIL -(NOT (EQL (NINTH '(1 2 3 4 5 6 7 8 9)) '9)) -EQL-OK: NIL -(NOT (EQL (TENTH '(1 2 3 4 5 6 7 8 9 10)) '10)) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (FIRST X) 0) 0) (EQUAL X '(0 B C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (SECOND X) 0) 0) (EQUAL X '(A 0 C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (THIRD X) 0) 0) (EQUAL X '(A B 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQL (SETF (FOURTH X) 0) 0) (EQUAL X '(A B C 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E))) (AND (EQL (SETF (FIFTH X) 0) 0) (EQUAL X '(A B C D 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F))) (AND (EQL (SETF (SIXTH X) 0) 0) (EQUAL X '(A B C D E 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G))) (AND (EQL (SETF (SEVENTH X) 0) 0) (EQUAL X '(A B C D E F 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H))) (AND (EQL (SETF (EIGHTH X) 0) 0) (EQUAL X '(A B C D E F G 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I))) (AND (EQL (SETF (NINTH X) 0) 0) (EQUAL X '(A B C D E F G H 0))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J))) (AND (EQL (SETF (TENTH X) 0) 0) (EQUAL X '(A B C D E F G H I 0))))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (NTHCDR 0 X) X))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (NTHCDR 1 X) (CDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (NTHCDR 2 X) (CDDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (NTHCDR 2 X) (CDDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (NTHCDR 3 X) (CDDDR X)))) -EQL-OK: NIL -(NOT (EQUAL (NTHCDR 0 '(0 1 2)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (NTHCDR 1 '(0 1 2)) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (NTHCDR 2 '(0 1 2)) '(2))) -EQL-OK: NIL -(NOT (EQUAL (NTHCDR 3 '(0 1 2)) 'NIL)) -EQL-OK: NIL -(NOT (EQL (NTHCDR 1 '(0 . 1)) 1)) -EQL-OK: NIL -(NOT (EQL (NTH 0 '(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQL (NTH 1 '(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQL (NTH 2 '(A B C)) 'C)) -EQL-OK: NIL -(NOT (EQL (NTH 3 '(A B C)) 'NIL)) -EQL-OK: NIL -(NOT (EQL (NTH 4 '(A B C)) 'NIL)) -EQL-OK: NIL -(NOT (EQL (NTH 5 '(A B C)) 'NIL)) -EQL-OK: NIL -(NOT (EQL (NTH 6 '(A B C)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (NTH 0 '(A . B)) 'A)) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 0 X) 'Z) 'Z) (EQUAL X '(Z B C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 1 X) 'Z) 'Z) (EQUAL X '(A Z C))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 2 X) 'Z) 'Z) (EQUAL X '(A B Z))))) -EQL-OK: NIL -(NOT (LET ((0-TO-3 (LIST 0 1 2 3))) (AND (EQUAL (SETF (NTH 2 0-TO-3) "two") "two") (EQUAL 0-TO-3 '(0 1 "two" 3))))) -EQL-OK: NIL -(NOT (EQ (NCONC) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NCONC NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) -EQL-OK: NIL -(NOT (EQUAL (NCONC NIL NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) -EQL-OK: NIL -(NOT (EQUAL (NCONC NIL NIL NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) -EQL-OK: NIL -(NOT (LET* ((X (LIST 'A 'B 'C))) (EQ (NCONC X) X))) -EQL-OK: NIL -(NOT (LET* ((X (LIST 'A 'B 'C)) (Y (LIST 'D 'E 'F)) (LIST (NCONC X Y))) (AND (EQ LIST X) (EQ (NTHCDR 3 LIST) Y) (EQUAL LIST '(A B C D E F))))) -EQL-OK: NIL -(NOT (LET* ((X (LIST 'A)) (Y (LIST 'B)) (Z (LIST 'C)) (LIST (NCONC X Y Z))) (AND (EQ X LIST) (EQ (FIRST LIST) 'A) (EQ Y (CDR LIST)) (EQ (SECOND LIST) 'B) (EQ Z (CDDR LIST)) (EQ (THIRD LIST) 'C)))) -EQL-OK: NIL -(NOT (EQUAL (APPEND '(A B) 'NIL '(C D) '(E F)) '(A B C D E F))) -EQL-OK: NIL -(NOT (NULL (APPEND))) -EQL-OK: NIL -(NOT (NULL (APPEND 'NIL))) -EQL-OK: NIL -(NOT (NULL (APPEND 'NIL 'NIL))) -EQL-OK: NIL -(NOT (EQ (APPEND 'A) 'A)) -EQL-OK: NIL -(NOT (EQ (APPEND 'NIL 'A) 'A)) -EQL-OK: NIL -(NOT (EQ (APPEND 'NIL 'NIL 'A) 'A)) -EQL-OK: NIL -(NOT (EQUAL (APPEND '(A B) 'C) '(A B . C))) -EQL-OK: NIL -(NOT (LET* ((X '(A B C)) (Y '(D E F)) (Z (APPEND X Y))) (AND (EQUAL Z '(A B C D E F)) (EQ (NTHCDR 3 Z) Y) (NOT (EQ X Z))))) -EQL-OK: NIL -(NOT (EQUAL (REVAPPEND '(A B C) '(D E F)) '(C B A D E F))) -EQL-OK: NIL -(NOT (LET* ((X '(A B C)) (Y '(D E F)) (Z (REVAPPEND X Y))) (AND (EQUAL Z '(C B A D E F)) (NOT (EQ X Z)) (EQ (NTHCDR 3 Z) Y)))) -EQL-OK: NIL -(NOT (LET ((X '(A B C))) (EQ (REVAPPEND 'NIL X) X))) -EQL-OK: NIL -(NOT (NULL (REVAPPEND 'NIL 'NIL))) -EQL-OK: NIL -(NOT (EQ (REVAPPEND 'NIL 'A) 'A)) -EQL-OK: NIL -(NOT (EQUAL (REVAPPEND '(A) 'B) '(A . B))) -EQL-OK: NIL -(NOT (EQUAL (REVAPPEND '(A) 'NIL) '(A))) -EQL-OK: NIL -(NOT (EQUAL (REVAPPEND '(1 2 3) 'NIL) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (NRECONC (LIST 'A 'B 'C) '(D E F)) '(C B A D E F))) -EQL-OK: NIL -(NOT (LET* ((X (LIST 'A 'B 'C)) (Y '(D E F)) (Z (NRECONC X Y))) (AND (EQUAL Z '(C B A D E F)) (EQ (NTHCDR 3 Z) Y)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (EQ (NRECONC 'NIL X) X))) -EQL-OK: NIL -(NOT (NULL (NRECONC 'NIL 'NIL))) -EQL-OK: NIL -(NOT (EQ (NRECONC 'NIL 'A) 'A)) -EQL-OK: NIL -(NOT (EQUAL (NRECONC (LIST 'A) 'B) '(A . B))) -EQL-OK: NIL -(NOT (EQUAL (NRECONC (LIST 'A) 'NIL) '(A))) -EQL-OK: NIL -(NOT (EQUAL (NRECONC (LIST 1 2 3) 'NIL) '(3 2 1))) -EQL-OK: NIL -(NOT (NULL (BUTLAST NIL))) -EQL-OK: NIL -(NOT (NULL (BUTLAST NIL 1))) -EQL-OK: NIL -(NOT (NULL (BUTLAST NIL 2))) -EQL-OK: NIL -(NOT (NULL (BUTLAST NIL 3))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5)) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 1) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 2) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 3) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 4) '(1))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 5) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 6) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5) 7) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6)) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 1) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 2) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 3) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 4) '(1))) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 5) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 6) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 7) 'NIL)) -EQL-OK: NIL -(NOT (LET ((A '(1 2 3 4 5))) (EQUAL (BUTLAST A 3) '(1 2)) (EQUAL A '(1 2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (NBUTLAST NIL))) -EQL-OK: NIL -(NOT (NULL (NBUTLAST NIL 1))) -EQL-OK: NIL -(NOT (NULL (NBUTLAST NIL 2))) -EQL-OK: NIL -(NOT (NULL (NBUTLAST NIL 3))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5)) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 1) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 2) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 3) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 4) '(1))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 5) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 6) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 7) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6)) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 1) '(1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 2) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 3) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 4) '(1))) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 5) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 6) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 7) 'NIL)) -EQL-OK: NIL -(NOT (LET* ((A '(1 2 3 4 5)) (B (NBUTLAST A 3))) (AND (EQ A B) (EQUAL A '(1 2))))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4 5 6 7 8 9))) (EQ (LAST X) (NTHCDR 9 X)))) -EQL-OK: NIL -(NOT (NULL (LAST NIL))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 . 2))) (EQ (LAST X) (CDR X)))) -EQL-OK: NIL -(NOT (EQL (LAST '(1 . 2) 0) 2)) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 0) NIL))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X) (NTHCDR 4 X)))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 1) (NTHCDR 4 X)))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 2) (CDDDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 3) (CDDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 4) (CDR X)))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 5) X))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 6) X))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 7) X))) -EQL-OK: NIL -(NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 8) X))) -EQL-OK: NIL -(NOT (TAILP 'NIL 'NIL)) -EQL-OK: NIL -(NOT (TAILP 'NIL '(1))) -EQL-OK: NIL -(NOT (TAILP 'NIL '(1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (LET ((X '(1 2 3))) (AND (TAILP X X) (TAILP (CDR X) X) (TAILP (CDDR X) X) (TAILP (CDDDR X) X)))) -EQL-OK: NIL -(NOT (LET ((X '(1 . 2))) (AND (TAILP X X) (TAILP (CDR X) X)))) -EQL-OK: NIL -(NOT (NOT (TAILP NIL '(1 . 2)))) -EQL-OK: NIL -(NOT (NOT (TAILP 'X '(1 2 3 4 5 6)))) -EQL-OK: NIL -(NOT (NOT (TAILP (LIST 1 2 3) '(1 2 3)))) -EQL-OK: NIL -(NOT (LET ((X '(1 2 3 4 5 . 6))) (TAILP (LAST X) X))) -EQL-OK: NIL -(NOT (LET ((X '(1 2 3 4 5 . 6))) (TAILP (LAST X) X))) -EQL-OK: NIL -(NOT (NULL (LDIFF 'NIL 'NIL))) -EQL-OK: NIL -(NOT (EQUAL (LDIFF '(1 . 2) 2) '(1))) -EQL-OK: NIL -(NOT (EQUAL (LDIFF '(1 2 3 4 5 6 7 8 9) 'NIL) '(1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (LET ((X '(1 2 3))) (AND (NULL (LDIFF X X)) (EQUAL (LDIFF X (CDR X)) '(1)) (EQUAL (LDIFF X (CDDR X)) '(1 2)) (EQUAL (LDIFF X (CDDDR X)) '(1 2 3))))) -EQL-OK: NIL -(NOT (LET* ((X '(1 2 3)) (Y '(A B C)) (Z (LDIFF X Y))) (AND (NOT (EQ X Z)) (EQUAL Z '(1 2 3))))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'A '(A B C D)) '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'B '(A B C D)) '(B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'C '(A B C D)) '(C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'D '(A B C D)) '(D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'E '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'F '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (LET ((X '(A B C D))) (EQ (MEMBER 'A X) X) (EQ (MEMBER 'B X) (CDR X)) (EQ (MEMBER 'C X) (CDDR X)) (EQ (MEMBER 'D X) (CDDDR X)) (EQ (MEMBER 'E X) NIL))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'A '(A B C D) :TEST #'EQ) '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'B '(A B C D) :TEST #'EQ) '(B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'C '(A B C D) :TEST #'EQ) '(C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'D '(A B C D) :TEST #'EQ) '(D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'E '(A B C D) :TEST #'EQ) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 'F '(A B C D) :TEST #'EQ) 'NIL)) -EQL-OK: NIL -(NOT (NULL (MEMBER 'A 'NIL))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR :TEST #'EQ))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR :TEST-NOT (COMPLEMENT #'EQ)))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :TEST-NOT (COMPLEMENT #'EQ)))) (EQ Y NIL))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER 2 '((1 . 2) (3 . 4)) :TEST-NOT #'= :KEY #'CDR) '((3 . 4)))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'A)) '(A B C D)) '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'B)) '(A B C D)) '(B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'C)) '(A B C D)) '(C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'D)) '(A B C D)) '(D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'E)) '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'F)) '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (NULL (MEMBER-IF #'(LAMBDA (X) (EQL X 'A)) 'NIL))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER-IF #'(LAMBDA (P) (EQ P 'D)) X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF #'CDR '((1) (2 . 2) (3 3 . 3))) '((2 . 2) (3 3 . 3)))) -EQL-OK: NIL -(NOT (NULL (MEMBER-IF #'ZEROP '(7 8 9)))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'A))) '(A B C D)) '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'B))) '(A B C D)) '(B C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'C))) '(A B C D)) '(C D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'D))) '(A B C D)) '(D))) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'E))) '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'F))) '(A B C D)) 'NIL)) -EQL-OK: NIL -(NOT (NULL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'A))) 'NIL))) -EQL-OK: NIL -(NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER-IF-NOT #'(LAMBDA (P) (NOT (EQ P 'D))) X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (LET ((X '((1 2) (2 3) (3 4) (4 5))) (Y NIL)) (AND (EQ (MAPC #'(LAMBDA (A) (PUSH (CAR A) Y)) X) X) (EQUAL Y '(4 3 2 1))))) -EQL-OK: NIL -(NOT (LET ((DUMMY NIL) (LIST-1 '(1 2 3 4))) (AND (EQ (MAPC #'(LAMBDA (&REST X) (SETQ DUMMY (APPEND DUMMY X))) LIST-1 '(A B C D E) '(X Y Z)) LIST-1) (EQUAL DUMMY '(1 A X 2 B Y 3 C Z))))) -EQL-OK: NIL -(NOT (LET* ((X '(0 1 2 3)) (Y NIL) (Z (MAPC #'(LAMBDA (A B C) (PUSH (LIST A B C) Y)) X '(1 2 3 4) '(2 3 4 5)))) (AND (EQ Z X) (EQUAL Y '((3 4 5) (2 3 4) (1 2 3) (0 1 2)))))) -EQL-OK: NIL -(NOT (LET* ((X '(0 1 2 3)) (Y NIL) (Z (MAPC #'(LAMBDA (A B C) (PUSH (LIST A B C) Y)) NIL X '(1 2 3 4) '(2 3 4 5)))) (AND (NULL Z) (NULL Y)))) -EQL-OK: NIL -(NOT (LET ((SUM 0)) (MAPC #'(LAMBDA (&REST REST) (SETQ SUM (+ SUM (APPLY #'+ REST)))) '(0 1 2) '(1 2 0) '(2 0 1)) (EQL SUM 9))) -EQL-OK: NIL -(NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 NIL)) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) -EQL-OK: NIL -(NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 NIL)) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1 '(1 2 3)) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) -EQL-OK: NIL -(NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 '(1 2 3))) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1 'NIL) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'CAR '((1 2) (2 3) (3 4) (4 5))) '(1 2 3 4))) -EQL-OK: NIL -(NOT (NULL (MAPCAR #'IDENTITY 'NIL))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'LIST '(0 1 2 3) '(A B C D) '(W X Y Z)) '((0 A W) (1 B X) (2 C Y) (3 D Z)))) -EQL-OK: NIL -(NOT (NULL (MAPCAR #'LIST 'NIL '(0 1 2 3) '(1 2 3 4) '(2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (MAPCAR #'LIST '(0 1 2 3) 'NIL '(1 2 3 4) '(2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (MAPCAR #'LIST '(0 1 2 3) '(1 2 3 4) 'NIL '(2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (MAPCAR #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) 'NIL))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'LIST '(0) '(A B) '(X Y Z)) '((0 A X)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'LIST '(A B) '(0) '(X Y Z)) '((A 0 X)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'LIST '(A B) '(X Y Z) '(0)) '((A X 0)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'CONS '(A B C) '(1 2 3)) '((A . 1) (B . 2) (C . 3)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'CDR (COPY-TREE '((1 2) (2 3) (3 4) (4 5)))) '(2 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C) (D E F)) (LIST (LIST 'X 'Y 'Z) (LIST 'Y 'Z) (LIST 'Z))) '(1 2 3 A X Y Z 4 5 6 B C Y Z 7 8 9 D E F Z))) -EQL-OK: NIL -(NOT (NULL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C)) 'NIL))) -EQL-OK: NIL -(NOT (NULL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) 'NIL '((A) (B C))))) -EQL-OK: NIL -(NOT (NULL (MAPCAN #'APPEND 'NIL '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C))))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'LIST (LIST 1 2 3 4 5) (LIST 2 3 4 5 6) (LIST 3 4 5 6 7) (LIST 4 5 6 7 8)) '(1 2 3 4 2 3 4 5 3 4 5 6 4 5 6 7 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'(LAMBDA (X Y) (IF (NULL X) NIL (LIST X Y))) '(NIL NIL NIL D E) '(1 2 3 4 5 6)) '(D 4 E 5))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'(LAMBDA (X) (AND (NUMBERP X) (LIST X))) '(A 1 B C 3 4 D 5)) '(1 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (MAPLIST #'IDENTITY '(A B C D)) '((A B C D) (B C D) (C D) (D)))) -EQL-OK: NIL -(NOT (EQUAL (MAPLIST #'CAR '((1 2) (2 3) (3 4) (4 5))) '((1 2) (2 3) (3 4) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (MAPLIST #'LIST '(A B C) '(B C D) '(C D E)) '(((A B C) (B C D) (C D E)) ((B C) (C D) (D E)) ((C) (D) (E))))) -EQL-OK: NIL -(NOT (EQUAL (MAPLIST #'APPEND '(A B C) '(B C D) '(C D E)) '((A B C B C D C D E) (B C C D D E) (C D E)))) -EQL-OK: NIL -(NOT (EQUAL (MAPLIST #'APPEND '(A B C) '(B C) '(C)) '((A B C B C C)))) -EQL-OK: NIL -(NOT (NULL (MAPLIST #'APPEND 'NIL '(A B C) '(B C) '(C)))) -EQL-OK: NIL -(NOT (NULL (MAPLIST #'APPEND '(A B C) 'NIL '(B C) '(C)))) -EQL-OK: NIL -(NOT (NULL (MAPLIST #'APPEND '(A B C) '(B C) '(C) 'NIL))) -EQL-OK: NIL -(NOT (LET ((X '((1 2) (2 3) (3 4) (4 5))) (Y NIL)) (AND (EQ (MAPL #'(LAMBDA (A) (PUSH (CAR A) Y)) X) X) (EQUAL Y '((4 5) (3 4) (2 3) (1 2)))))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (AND (NULL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) 'NIL '(0) '(0 1))) (NULL X)))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (AND (EQUAL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) '(0) 'NIL '(0 1)) '(0)) (NULL X)))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (AND (EQUAL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) '(0) '(0 1) 'NIL) '(0)) (NULL X)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCON #'CAR (COPY-TREE '((1 2) (2 3) (3 4) (4 5)))) '(1 2 2 3 3 4 4 5))) -EQL-OK: NIL -(NOT (EQUAL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)) '((0 1 2 3) (1 2 3 4) (2 3 4 5) (3 4 5 6) (1 2 3) (2 3 4) (3 4 5) (4 5 6) (2 3) (3 4) (4 5) (5 6) (3) (4) (5) (6)))) -EQL-OK: NIL -(NOT (NULL (MAPCON #'LIST 'NIL '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)))) -EQL-OK: NIL -(NOT (NULL (MAPCON #'LIST '(0 1 2 3) 'NIL '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)))) -EQL-OK: NIL -(NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) 'NIL '(2 3 4 5) '(3 4 5 6)))) -EQL-OK: NIL -(NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) 'NIL '(3 4 5 6)))) -EQL-OK: NIL -(NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6) 'NIL))) -EQL-OK: NIL -(NOT (LET* ((X '((APPLE . 1) (ORANGE . 2) (GRAPES . 3))) (Y (ACONS 'PLUM 9 X))) (AND (EQUAL Y '((PLUM . 9) (APPLE . 1) (ORANGE . 2) (GRAPES . 3))) (EQ X (CDR Y))))) -EQL-OK: NIL -(NOT (EQUAL (ACONS 'A '0 NIL) '((A . 0)))) -EQL-OK: NIL -(NOT (EQUAL (ACONS 'APPLE 1 (ACONS 'ORANGE 2 (ACONS 'GRAPES '3 NIL))) '((APPLE . 1) (ORANGE . 2) (GRAPES . 3)))) -EQL-OK: NIL -(NOT (EQUAL (ACONS NIL NIL NIL) '((NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (ASSOC 'NO-SUCH-KEY '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST :TEST #'EQ) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (ASSOC 'KEY 'NIL))) -EQL-OK: NIL -(NOT (NULL (ASSOC 'NIL '(NIL)))) -EQL-OK: NIL -(NOT (NULL (ASSOC 'NIL '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC 'NIL ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (X . 100) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (EQ (ASSOC 'A ALIST :TEST-NOT (COMPLEMENT #'EQ)) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (NULL (ASSOC 'Z ALIST :TEST-NOT (COMPLEMENT #'EQ))))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'AA ALIST :KEY #'CADR :TEST #'EQ) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'BB ALIST :KEY #'CADR :TEST #'EQ) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'CC ALIST :KEY #'CADR :TEST #'EQ) (CADDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC 'EE ALIST :KEY #'CADR :TEST #'EQ)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) NIL ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) NIL ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) NIL ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD)) NIL))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (EQ ARG 'Y)) ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF #'CONSP '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF #'(LAMBDA (X) (EQ X 'KEY)) 'NIL))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF #'IDENTITY '(NIL)))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF #'IDENTITY '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (EQ ARG 'Y)) ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (NULL ARG)) ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF #'(LAMBDA (X) (EQ X 'AA)) ALIST :KEY #'CADR) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF #'(LAMBDA (X) (EQ X 'BB)) ALIST :KEY #'CADR) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC-IF #'(LAMBDA (X) (EQ X 'EE)) ALIST :KEY #'CADR)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF-NOT (COMPLEMENT #'CONSP) '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'KEY))) 'NIL))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF-NOT #'IDENTITY '(NIL)))) -EQL-OK: NIL -(NOT (NULL (ASSOC-IF-NOT #'IDENTITY '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF-NOT #'IDENTITY ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'AA))) ALIST :KEY #'CADR) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'BB))) ALIST :KEY #'CADR) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'EE))) ALIST :KEY #'CADR)))) -EQL-OK: NIL -(NOT (EQUAL (COPY-ALIST '((A . 10) (B . 100) (C . 1000))) '((A . 10) (B . 100) (C . 1000)))) -EQL-OK: NIL -(NOT (LET* ((ALIST '((A . 10) (B . 100) (C . 1000))) (COPY (COPY-ALIST ALIST))) (AND (NOT (EQ ALIST COPY)) (NOT (EQ (CDR ALIST) (CDR COPY))) (NOT (EQ (CDDR ALIST) (CDDR COPY))) (NOT (EQ (CAR ALIST) (CAR COPY))) (NOT (EQ (CADR ALIST) (CADR COPY))) (NOT (EQ (CADDR ALIST) (CADDR COPY)))))) -EQL-OK: NIL -(NOT (LET* ((ALIST '((A 10 X) (B 100 Y) (C 1000 Z))) (COPY (COPY-ALIST ALIST))) (AND (NOT (EQ ALIST COPY)) (NOT (EQ (CDR ALIST) (CDR COPY))) (NOT (EQ (CDDR ALIST) (CDDR COPY))) (NOT (EQ (CAR ALIST) (CAR COPY))) (NOT (EQ (CADR ALIST) (CADR COPY))) (NOT (EQ (CADDR ALIST) (CADDR COPY))) (EQ (CDAR ALIST) (CDAR COPY)) (EQ (CDADR ALIST) (CDADR COPY)) (EQ (CDADDR ALIST) (CDADDR COPY))))) -EQL-OK: NIL -(NOT (LET* ((ALIST (PAIRLIS '(X Y Z) '(XX YY ZZ) '((A . AA) (B . BB))))) (AND (EQUAL (ASSOC 'X ALIST) '(X . XX)) (EQUAL (ASSOC 'Y ALIST) '(Y . YY)) (EQUAL (ASSOC 'Z ALIST) '(Z . ZZ)) (EQUAL (ASSOC 'A ALIST) '(A . AA)) (EQUAL (ASSOC 'B ALIST) '(B . BB)) (NULL (ASSOC 'KEY ALIST))))) -EQL-OK: NIL -(NOT (LET* ((ALIST (PAIRLIS '(X Y Z) '(XX YY ZZ)))) (AND (EQUAL (ASSOC 'X ALIST) '(X . XX)) (EQUAL (ASSOC 'Y ALIST) '(Y . YY)) (EQUAL (ASSOC 'Z ALIST) '(Z . ZZ)) (NULL (ASSOC 'KEY ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (RASSOC 'NO-SUCH-DATUM '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST :TEST #'=) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (RASSOC 'KEY 'NIL))) -EQL-OK: NIL -(NOT (NULL (RASSOC 'NIL '(NIL)))) -EQL-OK: NIL -(NOT (NULL (RASSOC 'NIL '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (RASSOC 'NIL ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (X . 100) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (EQ (RASSOC '1 ALIST :TEST-NOT (COMPLEMENT #'=)) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (NULL (RASSOC '9 ALIST :TEST-NOT (COMPLEMENT #'=))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'AA ALIST :KEY #'CAR :TEST #'EQ) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (NULL (RASSOC 'EEE ALIST :KEY #'CADR :TEST #'EQ)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) NIL (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) NIL (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD) NIL))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (= ARG 200)) ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF #'CONSP '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF #'(LAMBDA (X) (EQ X 'KEY)) 'NIL))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF #'IDENTITY '(NIL)))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF #'IDENTITY '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (= ARG 200)) ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (NULL ARG)) ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF #'(LAMBDA (X) (EQ X 'AAA)) ALIST :KEY #'CADR) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF #'(LAMBDA (X) (EQ X 'BBB)) ALIST :KEY #'CADR) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (NULL (RASSOC-IF #'(LAMBDA (X) (EQ X 'EEE)) ALIST :KEY #'CADR)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (= ARG 200))) ALIST) (CADR ALIST)))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF-NOT (COMPLEMENT #'CONSP) '((X . 100) (Y . 200) (Z . 50))))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'KEY))) 'NIL))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF-NOT #'IDENTITY '(NIL)))) -EQL-OK: NIL -(NOT (NULL (RASSOC-IF-NOT #'IDENTITY '(NIL NIL)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (= ARG 200))) ALIST) (CAR (CDDDDR ALIST))))) -EQL-OK: NIL -(NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF-NOT #'IDENTITY ALIST) (CADDDR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'AAA))) ALIST :KEY #'CADR) (CAR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'BBB))) ALIST :KEY #'CADR) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((ALIST '(((A AA AAA) . 0) ((B BB BBB) . 1) ((C CC CCC) . 2)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (= X '2))) ALIST :KEY #'1+) (CADR ALIST)))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP3 PROP4 PROPX PROPY)) (AND (EQ INDICATOR 'PROP3) (EQL VALUE 3) (EQ TAIL (NTHCDR 4 PLIST)))))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES '(PROP1 1 PROP2 2 PROP3 3 PROP4 4) '(PROPX PROPY PROPZ)) (AND (EQ INDICATOR NIL) (EQ VALUE NIL) (EQ TAIL NIL)))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP1)) (AND (EQ INDICATOR 'PROP1) (EQL VALUE 1) (EQ TAIL PLIST))))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 NIL NIL PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(NIL)) (AND (EQ INDICATOR NIL) (EQL VALUE NIL) (EQ TAIL (CDDR PLIST)))))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP3 PROP4 PROPX PROPY PROP1)) (AND (EQ INDICATOR 'PROP1) (EQL VALUE 1) (EQ TAIL PLIST))))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP1) 1))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP2) 2))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP3) 3))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP4) 4))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP1) 1))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP2) 2))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP3) 3))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP4) 4))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (NULL (GETF PLIST 'PROPX)))) -EQL-OK: NIL -(NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQ (GETF PLIST 'WEIRD-PROPERTY 'NOT-FOUND) 'NOT-FOUND))) -EQL-OK: NIL -(NOT (LET ((PLIST (COPY-LIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4)))) (AND (EQL (SETF (GETF PLIST 'PROP1) 9) 9) (EQL (GETF PLIST 'PROP1) 9)))) -EQL-OK: NIL -(NOT (LET ((PLIST NIL)) (AND (EQL (SETF (GETF PLIST 'PROP1) 9) 9) (EQL (GETF PLIST 'PROP1) 9)))) -EQL-OK: NIL -(NOT (LET ((PLIST 'NIL)) (INCF (GETF PLIST 'COUNT 0)) (EQL (GETF PLIST 'COUNT) 1))) -EQL-OK: NIL -(NOT (LET ((X (LIST NIL))) (AND (EQL (SETF (GETF (CAR X) 'PROP1) 9) 9) (EQL (GETF (CAR X) 'PROP1) 9)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P2) (EQ (GETF PLIST 'P2 'NOT-FOUND) 'NOT-FOUND)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P3) (EQ (GETF PLIST 'P3 'NOT-FOUND) 'NOT-FOUND)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (EQ (GETF PLIST 'P4 'NOT-FOUND) 'NOT-FOUND)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (NULL (REMF PLIST 'PX)) (EQUAL PLIST '(P1 1 P2 2 P3 3 P4 4))))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (REMF PLIST 'P2) (REMF PLIST 'P3) (REMF PLIST 'P1) (NULL (REMF PLIST 'PX)) (NULL (REMF PLIST 'P1)) (NULL (REMF PLIST 'P2)) (NULL (REMF PLIST 'P3)) (NULL (REMF PLIST 'P4)) (NULL PLIST)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4 'P1 5 'P2 6 'P3 7 'P4 8))) (AND (REMF PLIST 'P4) (REMF PLIST 'P2) (REMF PLIST 'P3) (REMF PLIST 'P1) (NULL (REMF PLIST 'PX)) (EQL (GETF PLIST 'P1) 5) (EQL (GETF PLIST 'P2) 6) (EQL (GETF PLIST 'P3) 7) (EQL (GETF PLIST 'P4) 8)))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 100 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (EQL (GETF PLIST 'P1) 100) (REMF PLIST 'P1) (EQL (GETF PLIST 'P1) 1) (REMF PLIST 'P1) (NULL (GETF PLIST 'P1))))) -EQL-OK: NIL -(NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (NULL (GETF PLIST 'P4))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST 1 1 2 3 4 'A 'B 'C "A" "B" "C" "d")) (LIST2 (LIST 1 4 5 'B 'C 'D "a" "B" "c" "D"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2) '(C B 4 1 1))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST 'EQUAL) '("B" C B 4 1 1) :TEST 'EQUAL)) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'EQUALP) '("d" "C" "B" "A" C B 4 1 1) :TEST #'EQUALP)))) -EQL-OK: NIL -(NOT (NULL (INTERSECTION '(0 1 2) 'NIL))) -EQL-OK: NIL -(NOT (NULL (INTERSECTION 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (INTERSECTION 'NIL '(0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (INTERSECTION '(0) '(0)) '(0))) -EQL-OK: NIL -(NOT (EQUAL (INTERSECTION '(0 1 2 3) '(2)) '(2))) -EQL-OK: NIL -(NOT (MEMBER 0 (INTERSECTION '(0 0 0 0 0) '(0 1 2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(4 3 2 1 0)) '(4 3 2 1 0)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(0 1 2 3 4)) '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(4 3 2 1 0)) '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0))) '("B" "F" "h") :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("A" "B" "C" "d" "e" "F" "G" "h") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d")) (LIST2 (LIST "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("d") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST 1 1 2 3 4 'A 'B 'C "A" "B" "C" "d")) (LIST2 (LIST 1 4 5 'B 'C 'D "a" "B" "c" "D"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2) '(C B 4 1 1))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2 :TEST 'EQUAL) '("B" C B 4 1 1) :TEST 'EQUAL)) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2 :TEST #'EQUALP) '("d" "C" "B" "A" C B 4 1 1) :TEST #'EQUALP)))) -EQL-OK: NIL -(NOT (NULL (NINTERSECTION (LIST 0 1 2) 'NIL))) -EQL-OK: NIL -(NOT (NULL (NINTERSECTION 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (NINTERSECTION 'NIL '(0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (NINTERSECTION (LIST 0) '(0)) '(0))) -EQL-OK: NIL -(NOT (EQUAL (NINTERSECTION (LIST 0 1 2 3) '(2)) '(2))) -EQL-OK: NIL -(NOT (MEMBER 0 (NINTERSECTION (LIST 0 0 0 0 0) '(0 1 2 3 4 5)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(4 3 2 1 0)) '(4 3 2 1 0)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(0 1 2 3 4)) '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(4 3 2 1 0)) '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0))) '("B" "F" "h") :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("A" "B" "C" "d" "e" "F" "G" "h") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((LIST1 (LIST "A" "B" "C" "d")) (LIST2 (LIST "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("d") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) -EQL-OK: NIL -(NOT (LET ((SET '(A B C))) (EQ (ADJOIN 'A SET) SET))) -EQL-OK: NIL -(NOT (LET* ((SET '(A B C)) (NEW-SET (ADJOIN 'X SET))) (AND (EQUAL NEW-SET '(X A B C)) (EQ SET (CDR NEW-SET))))) -EQL-OK: NIL -(NOT (EQUAL (ADJOIN 1 NIL) '(1))) -EQL-OK: NIL -(NOT (EQUAL (ADJOIN NIL NIL) '(NIL))) -EQL-OK: NIL -(NOT (EQUAL (ADJOIN NIL '(NIL)) '(NIL))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQUAL (ADJOIN '(TEST-ITEM 1) SET) '((TEST-ITEM 1) (TEST-ITEM 1))))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQUAL (ADJOIN '(TEST-ITEM 1) SET) '((TEST-ITEM 1) (TEST-ITEM 1))))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM 1) SET :TEST #'EQUAL) SET))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR) SET))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR :TEST #'EQ) SET))) -EQL-OK: NIL -(NOT (LET ((SET '(("test-item" 1)))) (EQ (ADJOIN '("test-item") SET :KEY #'CAR :TEST #'EQUAL) SET))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM 1) SET :TEST-NOT (COMPLEMENT #'EQUAL)) SET))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :TEST-NOT (COMPLEMENT #'EQL) :KEY #'CAR) SET))) -EQL-OK: NIL -(NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQ)) SET))) -EQL-OK: NIL -(NOT (LET ((SET '(("test-item" 1)))) (EQ (ADJOIN '("test-item") SET :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)) SET))) -EQL-OK: NIL -(NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSHNEW 'A PLACE) '(A)) (EQUAL PLACE '(A))))) -EQL-OK: NIL -(NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSHNEW 'A PLACE) '(A)) (EQUAL PLACE '(A))))) -EQL-OK: NIL -(NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQUAL (PUSHNEW '(B . 2) PLACE :TEST #'= :KEY #'CDR) '((A . 1) (B . 2))) (EQUAL PLACE '((A . 1) (B . 2)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQUAL (PUSHNEW '(B . 2) PLACE :TEST-NOT (COMPLEMENT #'=) :KEY #'CDR) '((A . 1) (B . 2))) (EQUAL PLACE '((A . 1) (B . 2)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQ (PUSHNEW '(Z . 2) PLACE :TEST #'= :KEY #'CDR) PLACE) (EQUAL PLACE '((A . 1) (B . 2)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQ (PUSHNEW '(Z . 2) PLACE :TEST-NOT (COMPLEMENT #'=) :KEY #'CDR) PLACE) (EQUAL PLACE '((A . 1) (B . 2)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '("love" "peace"))) (EQUAL (PUSHNEW "war" PLACE :TEST #'EQUAL) '("war" "love" "peace")))) -EQL-OK: NIL -(NOT (LET ((PLACE '("love" "peace"))) (EQUAL (PUSHNEW "war" PLACE :TEST-NOT (COMPLEMENT #'EQUAL)) '("war" "love" "peace")))) -EQL-OK: NIL -(NOT (LET ((PLACE '("love" "peace"))) (AND (EQ (PUSHNEW "peace" PLACE :TEST #'EQUAL) PLACE) (EQUAL PLACE '("love" "peace"))))) -EQL-OK: NIL -(NOT (LET ((PLACE '("love" "peace"))) (AND (EQ (PUSHNEW "peace" PLACE :TEST-NOT (COMPLEMENT #'EQUAL)) PLACE) (EQUAL PLACE '("love" "peace"))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("war" . W) PLACE :TEST #'EQUAL :KEY #'CAR) '(("war" . W) ("love" . L) ("peace" . P))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("war" . W) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) '(("war" . W) ("love" . L) ("peace" . P))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("love" . L) PLACE :TEST #'EQUAL :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("love" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("LOVE" . L) PLACE :TEST #'EQUALP :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("LOVE" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUALP) :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("LOVE" . L) PLACE :TEST #'EQUAL :KEY #'CAR) '(("LOVE" . L) ("love" . L) ("peace" . P))))) -EQL-OK: NIL -(NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("LOVE" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) '(("LOVE" . L) ("love" . L) ("peace" . P))))) -EQL-OK: NIL -(NOT (LET ((LIST '((1) (1 2) (1 2 3)))) (AND (EQUAL (PUSHNEW '(1) LIST) '((1) (1) (1 2) (1 2 3))) (EQUAL LIST '((1) (1) (1 2) (1 2 3)))))) -EQL-OK: NIL -(NOT (LET* ((LIST '((1) (1 2) (1 2 3))) (ORIGINAL LIST)) (AND (EQUAL (PUSHNEW '(1) LIST :TEST #'EQUAL) '((1) (1 2) (1 2 3))) (EQ LIST ORIGINAL)))) -EQL-OK: NIL -(NOT (LET* ((LIST '((1) (1 2) (1 2 3))) (ORIGINAL LIST)) (AND (EQUAL (PUSHNEW '(1) LIST :TEST #'EQUAL :KEY NIL) '((1) (1 2) (1 2 3))) (EQ LIST ORIGINAL)))) -EQL-OK: NIL -(NOT (LET ((LIST (COPY-TREE '(1 (2) 3 4)))) (AND (EQUAL (PUSHNEW 4 (CADR LIST)) '(4 2)) (EQUAL LIST '(1 (4 2) 3 4))))) -EQL-OK: NIL -(NOT (LET ((LIST (COPY-TREE '(1 (2) 3 4)))) (AND (EQUAL (PUSHNEW 4 (CADR LIST) :KEY NIL) '(4 2)) (EQUAL LIST '(1 (4 2) 3 4))))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3 4 5 6 7 8 9) '(2 4 6 8)) '(1 3 5 7 9)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (SET-DIFFERENCE (LIST 1 2 3 4 5 6 7 8 9) '(2 4 6 8)) '(1 3 5 7 9)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '("1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '("1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST "1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '(("love") ("hate") ("peace") ("war")) '(("love") ("peace")) :KEY #'CAR :TEST #'EQUAL) '(("hate") ("war")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST '("love") '("hate") '("peace") '("war")) '(("love") ("peace")) :KEY #'CAR :TEST #'EQUAL) '(("hate") ("war")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE 'NIL 'NIL :TEST #'EQUAL :KEY 'IDENTITY))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE 'NIL '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE 'NIL '(1 2 3) :TEST #'EQUAL :KEY 'IDENTITY))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE 'NIL '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(4 3 2 1)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(4 3 2 1)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(2 4 3 1)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(2 4 3 1)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(1 3 4 2)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(1 3 4 2)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(1 3 2 4)))) -EQL-OK: NIL -(NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(1 3 2 4)))) -EQL-OK: NIL -(NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) 'NIL) '(1 2 3)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) 'NIL) '(1 2 3)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) '(1)) '(2 3)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) '(1)) '(2 3)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) '(1 2)) '(3)) 'NIL)) -EQL-OK: NIL -(NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) '(1 2)) '(3)) 'NIL)) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) '(2 3 4)) '(1 4)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(2 3 4)) '(1 4)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) '(1 3)) '(2)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(1 3)) '(2)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(3 2 1)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(3 2 1)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(2 3 1)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(2 3 1)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(1 3 2)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(1 3 2)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) 'NIL) '(3 2 1)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) 'NIL) '(3 2 1)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR 'NIL '(1 2 3)) '(2 1 3)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR 'NIL '(1 2 3)) '(2 1 3)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("car" "ship" "airplane" "submarine") :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("car" "ship" "airplane" "submarine") :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("ship" "airplane" "submarine" "car") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("ship" "airplane" "submarine" "car") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("airplane") ("submarine")) :TEST #'STRING= :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (COPY-TREE '(("car") ("ship") ("airplane") ("submarine"))) '(("car") ("ship") ("airplane") ("submarine")) :TEST #'STRING= :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("airplane") ("submarine")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (COPY-TREE '(("car") ("ship") ("airplane") ("submarine"))) '(("car") ("ship") ("airplane") ("submarine")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL) '("camel" "horse") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST "car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL) '("camel" "horse") :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (SUBSETP '(1 2 3) '(1 2 3))) -EQL-OK: NIL -(NOT (SUBSETP '(1 2 3) '(3 2 1))) -EQL-OK: NIL -(NOT (SUBSETP '(1 2 3) '(2 1 3))) -EQL-OK: NIL -(NOT (NULL (SUBSETP '(1 2 3 4) '(2 1 3)))) -EQL-OK: NIL -(NOT (SUBSETP '(1) '(2 1 3))) -EQL-OK: NIL -(NOT (SUBSETP '(1 2) '(1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (SUBSETP '(1 2 3 4 5) '(8 7 6 5 4 3 2 1))) -EQL-OK: NIL -(NOT (NULL (SUBSETP '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel")))) -EQL-OK: NIL -(NOT (SUBSETP '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL)) -EQL-OK: NIL -(NOT (SUBSETP '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUALP)) -EQL-OK: NIL -(NOT (SUBSETP '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("horse") ("airplane") ("submarine") ("camel")) :TEST #'STRING= :KEY #'CAR)) -EQL-OK: NIL -(NOT (NULL (UNION 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (NUNION 'NIL 'NIL))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(2 3 4)) '(1 2 3 4)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 2 3 4)) '(1 2 3 4)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(1 2 3)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 1 2 3)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '(1) '(3 2 1)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1) (LIST 3 2 1)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) 'NIL) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) 'NIL) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION 'NIL '(1 2 3)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION 'NIL (LIST 1 2 3)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(2)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 2)) '(1 2 3)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '("Alpha" "Bravo" "Charlie") '("Bravo" "Charlie" "Delta" "Echo") :TEST #'STRING=) '("Alpha" "Bravo" "Charlie" "Delta" "Echo") :TEST-NOT (COMPLEMENT #'STRING=)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (LIST "Alpha" "Bravo" "Charlie") (LIST "Bravo" "Charlie" "Delta" "Echo") :TEST #'STRING=) '("Alpha" "Bravo" "Charlie" "Delta" "Echo") :TEST-NOT (COMPLEMENT #'STRING=)))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION (COPY-TREE '(("Alpha") ("Bravo") ("Charlie"))) (COPY-TREE '(("Bravo") ("Charlie") ("Delta") ("Echo"))) :TEST #'STRING= :KEY #'CAR) '(("Alpha") ("Bravo") ("Charlie") ("Delta") ("Echo")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (NUNION (COPY-TREE '(("Alpha") ("Bravo") ("Charlie"))) (COPY-TREE '(("Bravo") ("Charlie") ("Delta") ("Echo"))) :TEST #'STRING= :KEY #'CAR) '(("Alpha") ("Bravo") ("Charlie") ("Delta") ("Echo")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (SET-DIFFERENCE (UNION '("Alpha" "Bravo" "Charlie") '("BRAVO" "CHARLIE" "DELTA" "ECHO") :TEST #'STRING-EQUAL) '("ALPHA" "BRAVO" "CHARLIE" "DELTA" "ECHO") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)))) -EQL-OK: NIL -RUN-TEST: finished "must-cons" (0 errors out of 728 tests) -RUN-TEST: started # -(NOT (LET (A B C) (AND (NULL (PSETQ A 1 B 2 C 3)) (EQL A 1) (EQL B 2) (EQL C 3)))) -EQL-OK: NIL -(NOT (LET ((A 1) (B 2) (C 3)) (AND (NULL (PSETQ A (1+ B) B (1+ A) C (+ A B))) (EQL A 3) (EQL B 2) (EQL C 3)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 10 20 30))) (SYMBOL-MACROLET ((Y (CAR X)) (Z (CADR X))) (PSETQ Y (1+ Z) Z (1+ Y)) (EQUAL (LIST X Y Z) '((21 11 30) 21 11))))) -EQL-OK: NIL -(NOT (LET ((A 1) (B 2)) (AND (NULL (PSETQ A B B A)) (EQL A 2) (EQL B 1)))) -EQL-OK: NIL -(NOT (NULL (PSETQ))) -EQL-OK: NIL -(NOT (LET ((A NIL)) (AND (NULL (PSETQ A T)) (EQ A T)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (NULL (PSETQ A B B A)) (EQ A 1) (EQ B 0)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2)) (AND (NULL (PSETQ A B B C C A)) (EQ A 1) (EQ B 2) (EQ C 0)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (NULL (PSETQ A B B C C D D A)) (EQ A 1) (EQ B 2) (EQ C 3) (EQ D 0)))) -EQL-OK: NIL -(NOT (NULL (BLOCK NIL (RETURN) 1))) -EQL-OK: NIL -(NOT (EQL (BLOCK NIL (RETURN 1) 2) 1)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (BLOCK NIL (RETURN (VALUES 1 2)) 3)) '(1 2))) -EQL-OK: NIL -(NOT (EQL (BLOCK NIL (BLOCK ALPHA (RETURN 1) 2)) 1)) -EQL-OK: NIL -(NOT (EQL (BLOCK ALPHA (BLOCK NIL (RETURN 1)) 2) 2)) -EQL-OK: NIL -(NOT (EQL (BLOCK NIL (BLOCK NIL (RETURN 1) 2)) 1)) -EQL-OK: NIL -(NOT (EQ (DOTIMES (I 10 NIL) (RETURN T)) T)) -EQL-OK: NIL -(NOT (EQ (DOLIST (ELT (LIST 0 1 2 3) NIL) (WHEN (NUMBERP ELT) (RETURN T))) T)) -EQL-OK: NIL -(NOT (NOT NIL)) -EQL-OK: NIL -(NOT (NOT 'NIL)) -EQL-OK: NIL -(NOT (NOT (INTEGERP 'SSS))) -EQL-OK: NIL -(NOT (NULL (NOT (INTEGERP 1)))) -EQL-OK: NIL -(NOT (NULL (NOT 3.7))) -EQL-OK: NIL -(NOT (NULL (NOT 'APPLE))) -EQL-OK: NIL -(NOT (NOT NIL)) -EQL-OK: NIL -(NOT (NULL (NOT T))) -EQL-OK: NIL -(NOT (NOT (CDR '(A)))) -EQL-OK: NIL -(NOT (EQUAL 'A 'A)) -EQL-OK: NIL -(NOT (NOT (EQUAL 'A 'B))) -EQL-OK: NIL -(NOT (EQUAL 'ABC 'ABC)) -EQL-OK: NIL -(NOT (EQUAL 1 1)) -EQL-OK: NIL -(NOT (EQUAL 2 2)) -EQL-OK: NIL -(NOT (EQUAL 0.1 0.1)) -EQL-OK: NIL -(NOT (EQUAL 1/3 1/3)) -EQL-OK: NIL -(NOT (NOT (EQUAL 0 1))) -EQL-OK: NIL -(NOT (NOT (EQUAL 1 1.0))) -EQL-OK: NIL -(NOT (NOT (EQUAL 1/3 1/4))) -EQL-OK: NIL -(NOT (EQUAL #\a #\a)) -EQL-OK: NIL -(NOT (EQUAL #\b #\b)) -EQL-OK: NIL -(NOT (NOT (EQUAL #\b #\B))) -EQL-OK: NIL -(NOT (NOT (EQUAL #\C #\c))) -EQL-OK: NIL -(NOT (EQUAL '(0) '(0))) -EQL-OK: NIL -(NOT (EQUAL '(0 #\a) '(0 #\a))) -EQL-OK: NIL -(NOT (EQUAL '(0 #\a X) '(0 #\a X))) -EQL-OK: NIL -(NOT (EQUAL '(0 #\a X (0)) '(0 #\a X (0)))) -EQL-OK: NIL -(NOT (EQUAL '(0 #\a X (0 (#\a (X "abc" #*0101)))) '(0 #\a X (0 (#\a (X "abc" #*0101)))))) -EQL-OK: NIL -(NOT (NOT (EQUAL (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D))) (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D)))))) -EQL-OK: NIL -(NOT (LET ((ARRAY (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D))))) (EQUAL ARRAY ARRAY))) -EQL-OK: NIL -(NOT (EQL (IDENTITY 101) 101)) -EQL-OK: NIL -(NOT (EQUAL (MAPCAN #'IDENTITY (LIST (LIST 1 2 3) '(4 5 6))) '(1 2 3 4 5 6))) -EQL-OK: NIL -(NOT (EQ (IDENTITY 'X) 'X)) -EQL-OK: NIL -(NOT (FUNCALL (COMPLEMENT #'ZEROP) 1)) -EQL-OK: NIL -(NOT (NOT (FUNCALL (COMPLEMENT #'CHARACTERP) #\A))) -EQL-OK: NIL -(NOT (NOT (FUNCALL (COMPLEMENT #'MEMBER) 'A '(A B C)))) -EQL-OK: NIL -(NOT (FUNCALL (COMPLEMENT #'MEMBER) 'D '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR (CONSTANTLY 3) '(A B C D)) '(3 3 3 3))) -EQL-OK: NIL -(NOT (LET ((CONST-FUNC (CONSTANTLY 'XYZ))) (EVERY #'(LAMBDA (ARG) (EQ ARG 'XYZ)) (LIST (FUNCALL CONST-FUNC) (FUNCALL CONST-FUNC 'A) (FUNCALL CONST-FUNC 'A 'B) (FUNCALL CONST-FUNC 'A 'B 'C) (FUNCALL CONST-FUNC 'A 'B 'C 'D))))) -EQL-OK: NIL -(NOT (LET ((TEMP1 1) (TEMP2 1) (TEMP3 1)) (AND (EQL (AND (INCF TEMP1) (INCF TEMP2) (INCF TEMP3)) 2) (AND (EQL 2 TEMP1) (EQL 2 TEMP2) (EQL 2 TEMP3)) (EQL (DECF TEMP3) 1) (NULL (AND (DECF TEMP1) (DECF TEMP2) (EQ TEMP3 'NIL) (DECF TEMP3))) (AND (EQL TEMP1 TEMP2) (EQL TEMP2 TEMP3)) (AND)))) -EQL-OK: NIL -(NOT (EQ (AND) T)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (AND 'T 'T 'T (VALUES 'A 'B 'C))) '(A B C))) -EQL-OK: NIL -(NOT (NULL (AND 'T 'T (CDR '(A)) (ERROR "error")))) -EQL-OK: NIL -(NOT (LET ((TEMP0 NIL) (TEMP1 10) (TEMP2 20) (TEMP3 30)) (AND (EQL (OR TEMP0 TEMP1 (SETQ TEMP2 37)) 10) (EQL TEMP2 20) (EQL (OR (INCF TEMP1) (INCF TEMP2) (INCF TEMP3)) 11) (EQL TEMP1 11) (EQL TEMP2 20) (EQL TEMP3 30) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES) TEMP1)) '(11)) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES TEMP1 TEMP2) TEMP3)) '(11)) (EQUAL (MULTIPLE-VALUE-LIST (OR TEMP0 (VALUES TEMP1 TEMP2))) '(11 20)) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES TEMP0 TEMP1) (VALUES TEMP2 TEMP3))) '(20 30))))) -EQL-OK: NIL -(NOT (ZEROP (OR '0 '1 '2))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (OR (INCF A) (INCF A) (INCF A)) 1) (EQL A 1)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES) 1)) '(1))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES 1 2) 3)) '(1))) -EQL-OK: NIL -(NOT (NULL (OR))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES 0 1 2))) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL (VALUES 0 1 2))) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL NIL (VALUES 0 1 2))) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL NIL NIL (VALUES 0 1 2))) '(0 1 2))) -EQL-OK: NIL -(NOT (LET ((A NIL)) (FLET ((SELECT-OPTIONS NIL (COND ((= A 1) (SETQ A 2)) ((= A 2) (SETQ A 3)) ((AND (= A 3) (FLOOR A 2))) (T (FLOOR A 3))))) (AND (EQL (SETQ A 1) 1) (EQL (SELECT-OPTIONS) 2) (EQL A 2) (EQL (SELECT-OPTIONS) 3) (EQL A 3) (EQL (SELECT-OPTIONS) 1) (SETQ A 5) (EQUAL (MULTIPLE-VALUE-LIST (SELECT-OPTIONS)) '(1 2)))))) -EQL-OK: NIL -(NOT (NULL (COND))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (COND ((VALUES 1 2 3)))) '(1))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (COND (T (VALUES 1 2 3)))) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (COND (T (VALUES 1) (VALUES 1 2) (VALUES 1 2 3)))) '(1 2 3))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (COND ((INCF A)) ((INCF A)) ((INCF A))) 1) (EQL A 1)))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (COND ((INCF A) (INCF A) (INCF A)) ((INCF A) (INCF A) (INCF A)) ((INCF A) (INCF A) (INCF A))) 3) (EQL A 3)))) -EQL-OK: NIL -(NOT (EQ (WHEN T 'HELLO) 'HELLO)) -EQL-OK: NIL -(NOT (NULL (UNLESS T 'HELLO))) -EQL-OK: NIL -(NOT (NULL (WHEN NIL 'HELLO))) -EQL-OK: NIL -(NOT (EQ (UNLESS NIL 'HELLO) 'HELLO)) -EQL-OK: NIL -(NOT (NULL (WHEN T))) -EQL-OK: NIL -(NOT (NULL (UNLESS NIL))) -EQL-OK: NIL -(NOT (LET ((X 3)) (EQUAL (LIST (WHEN (ODDP X) (INCF X) (LIST X)) (WHEN (ODDP X) (INCF X) (LIST X)) (UNLESS (ODDP X) (INCF X) (LIST X)) (UNLESS (ODDP X) (INCF X) (LIST X)) (IF (ODDP X) (INCF X) (LIST X)) (IF (ODDP X) (INCF X) (LIST X)) (IF (NOT (ODDP X)) (INCF X) (LIST X)) (IF (NOT (ODDP X)) (INCF X) (LIST X))) '((4) NIL (5) NIL 6 (6) 7 (7))))) -EQL-OK: NIL -(NOT (EQUAL (LET ((LIST NIL)) (DOLIST (K '(1 2 3 :FOUR #\v NIL T 'OTHER)) (PUSH (CASE K ((1 2) 'CLAUSE1) (3 'CLAUSE2) (NIL 'NO-KEYS-SO-NEVER-SEEN) ((NIL) 'NILSLOT) ((:FOUR #\v) 'CLAUSE4) ((T) 'TSLOT) (OTHERWISE 'OTHERS)) LIST)) LIST) '(OTHERS TSLOT NILSLOT CLAUSE4 CLAUSE4 CLAUSE2 CLAUSE1 CLAUSE1))) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'CASE)) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'CCASE)) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'ECASE)) -EQL-OK: NIL -(NOT (EQL (CASE 'A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0)) -EQL-OK: NIL -(NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3) (T 9)) 9)) -EQL-OK: NIL -(NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3) (OTHERWISE 9)) 9)) -EQL-OK: NIL -(NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3)) NIL)) -EQL-OK: NIL -(NOT (NULL (CASE 'X))) -EQL-OK: NIL -(NOT (LET ((X #\a)) (EQUAL (CASE X ((#\x #\y #\z) "xyz") (#\a "a") (T "-")) "a"))) -EQL-OK: NIL -(NOT (LET ((X #\A)) (EQUAL (CASE X ((#\x #\y #\z) "xyz") (#\a "a") (T "-")) "-"))) -EQL-OK: NIL -(NOT (LET ((X T)) (EQL (CASE X ((T) 0) (T 1)) 0))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (EQL (CASE X ((T) 0) (T 1)) 1))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (EQL (CASE X ((T) 0)) NIL))) -EQL-OK: NIL -(NOT (LET ((X 'OTHERWISE)) (EQL (CASE X ((OTHERWISE) 0) (OTHERWISE 1)) 0))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (EQL (CASE X ((OTHERWISE) 0) (OTHERWISE 1)) 1))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (EQL (CASE X ((OTHERWISE) 0)) NIL))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (AND (EQL (CASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) -EQL-OK: NIL -(NOT (LET ((X 'X)) (AND (EQL (CASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'(LAMBDA (X) (CASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E F)) '(0 1 2 3 4 NIL))) -EQL-OK: NIL -(NOT (CASE 'A (OTHERWISE T))) -EQL-OK: NIL -(NOT (EQL (CASE 'A (OTHERWISE 10)) 10)) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (EQ (CASE (PROGN (INCF A) (INCF B)) (0 'A) (1 'B) (2 'C)) 'C) (EQL A 1) (EQL B 2)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (EQ (CASE (PROGN (INCF A) (INCF B)) (0 'A) (1 'B) (2 (INCF A) (INCF B) 'C)) 'C) (EQL A 2) (EQL B 3)))) -EQL-OK: NIL -(NOT (LET ((A (LIST 0 1 2 3))) (EQ (CASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (CASE 2 (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T)))) '(2 Z))) -EQL-OK: NIL -(NOT (LET ((A 'C)) (EQL (CCASE A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A 'J)) (CCASE A ((A B C) 0) (X 1) (Y 2) (Z 3)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (CCASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A #\a)) (CCASE A ((#\A #\B #\C) 0) ((#\X #\Y #\Z) 1)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((A (LIST 0 1 2 3))) (EQ (CCASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) -EQL-OK: NIL -(NOT (LET ((X #\a)) (EQUAL (CCASE X ((#\x #\y #\z) "xyz") (#\a "a")) "a"))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (AND (EQL (CCASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) -EQL-OK: NIL -(NOT (LET ((X 'X)) (AND (EQL (CCASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'(LAMBDA (X) (CCASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E)) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (LET ((A 2)) (CCASE A (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T))))) '(2 Z))) -EQL-OK: NIL -(NOT (LET ((A 'C)) (EQL (ECASE A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A 'J)) (ECASE A ((A B C) 0) (X 1) (Y 2) (Z 3)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (ECASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A #\a)) (ECASE A ((#\A #\B #\C) 0) ((#\X #\Y #\Z) 1)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((A (LIST 0 1 2 3))) (EQ (ECASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) -EQL-OK: NIL -(NOT (LET ((X #\a)) (EQUAL (ECASE X ((#\x #\y #\z) "xyz") (#\a "a")) "a"))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (AND (EQL (ECASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) -EQL-OK: NIL -(NOT (LET ((X 'X)) (AND (EQL (ECASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) -EQL-OK: NIL -(NOT (EQUAL (MAPCAR #'(LAMBDA (X) (ECASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E)) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (LET ((A 2)) (ECASE A (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T))))) '(2 Z))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "symbol"))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "cons"))) -EQL-OK: NIL -(NOT (LET ((X 0)) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "number"))) -EQL-OK: NIL -(NOT (LET ((X (MAKE-ARRAY '(3 3)))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "unknown"))) -EQL-OK: NIL -(NOT (NULL (TYPECASE 'A))) -EQL-OK: NIL -(NOT (TYPECASE 'A (OTHERWISE T))) -EQL-OK: NIL -(NOT (TYPECASE 'A (T T))) -EQL-OK: NIL -(NOT (LET ((X (MAKE-ARRAY '(3 3)))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) NIL))) -EQL-OK: NIL -(NOT (LET ((X "")) (EQUAL (TYPECASE X (T "anything") (OTHERWISE NIL)) "anything"))) -EQL-OK: NIL -(NOT (LET ((X "")) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 0) (EQ X 'STRING)))) -EQL-OK: NIL -(NOT (LET ((X (LIST NIL))) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 1) (EQ X 'CONS)))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 2) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (LET ((X #\a)) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 9) (EQ X 'T)))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (TYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)) (T (SETQ X 'T) (VALUES 'T 9)))) '(ARRAY 2)) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "symbol"))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A))) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "cons"))) -EQL-OK: NIL -(NOT (LET ((X 0)) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "number"))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((X (MAKE-ARRAY '(3 3)))) (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number"))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((A NIL)) (CTYPECASE A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((X "")) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 0) (EQ X 'STRING)))) -EQL-OK: NIL -(NOT (LET ((X (LIST NIL))) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 1) (EQ X 'CONS)))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 2) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((X #\a)) (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (CTYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)))) '(ARRAY 2)) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (LET ((X 'A)) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "symbol"))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A))) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "cons"))) -EQL-OK: NIL -(NOT (LET ((X 0)) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "number"))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((X (MAKE-ARRAY '(3 3)))) (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (ETYPECASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((X "")) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 0) (EQ X 'STRING)))) -EQL-OK: NIL -(NOT (LET ((X (LIST NIL))) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 1) (EQ X 'CONS)))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 2) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LET ((X #\a)) (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (ETYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)))) '(ARRAY 2)) (EQ X 'ARRAY)))) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'MULTIPLE-VALUE-BIND)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-BIND (F R) (FLOOR 130 11) (LIST F R)) '(11 9))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (A B C D) (VALUES 0 1 2 3 4 5) (AND (EQL A 0) (EQL B 1) (EQL C 2) (EQL D 3)))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (A B C D) (VALUES 0 1) (AND (EQL A 0) (EQL B 1) (EQL C NIL) (EQL D NIL)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-BIND (A B) (VALUES 0 1) (VALUES A B 2 3))) '(0 1 2 3))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND NIL (VALUES 0 1 2) T)) -EQL-OK: NIL -(NOT (NULL (MULTIPLE-VALUE-BIND NIL NIL))) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-BIND (A) (FLOOR 130 11) (+ A 10)) 21)) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-BIND (A) (FLOOR 130 11) (+ A 10) (INCF A 100) (+ A 10)) 121)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-CALL #'LIST 1 '/ (VALUES 2 3) '/ (VALUES) '/ (FLOOR 2.5)) '(1 / 2 3 / / 2 0.5))) -EQL-OK: NIL -(NOT (EQL (+ (FLOOR 5 3) (FLOOR 19 4)) (+ 1 4))) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-CALL #'+ (FLOOR 5 3) (FLOOR 19 4)) (+ 1 2 4 3))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (MULTIPLE-VALUE-CALL (PROGN (PUSH 'FUNCTION LIST) #'+) (PROGN (PUSH 0 LIST) 0) (PROGN (PUSH 1 LIST) (VALUES 1 2)) (PROGN (PUSH 2 LIST) (VALUES 3 4 5)) (PROGN (PUSH 3 LIST) (VALUES 6 7 8 9))) 45) (EQUAL (REVERSE LIST) '(FUNCTION 0 1 2 3))))) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-CALL #'+ 0 1 2 3 4) 10)) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-CALL #'+) 0)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-CALL #'VALUES 0 1 (VALUES 2) (VALUES 3 4) (VALUES 5 6 7))) '(0 1 2 3 4 5 6 7))) -EQL-OK: NIL -(NOT (SPECIAL-OPERATOR-P 'MULTIPLE-VALUE-CALL)) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'MULTIPLE-VALUE-LIST)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FLOOR -3 4)) '(-1 1))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROGN (VALUES 'A 'B) 0)) '(0))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 'A 'B) 0)) '(A))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-PROG1 (VALUES 'A 'B) 0)) '(A B))) -EQL-OK: NIL -(NOT (SPECIAL-OPERATOR-P 'MULTIPLE-VALUE-PROG1)) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-PROG1 1 2 3) 1)) -EQL-OK: NIL -(NOT (EQL (MULTIPLE-VALUE-PROG1 1 2 3) 1)) -EQL-OK: NIL -(NOT (LET ((TEMP '(1 2 3))) (MULTIPLE-VALUE-BIND (A B C) (MULTIPLE-VALUE-PROG1 (VALUES-LIST TEMP) (SETQ TEMP NIL) (VALUES-LIST TEMP)) (AND (EQL A 1) (EQL B 2) (EQL C 3))))) -EQL-OK: NIL -(NOT (ZEROP (MULTIPLE-VALUE-PROG1 0 (VALUES 0 1) (VALUES 0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-PROG1 (PROGN 0 (VALUES 0 1) (VALUES 0 1 2)))) '(0 1 2))) -EQL-OK: NIL -(NOT (LET (QUOTIENT REMAINDER) (AND (EQL (MULTIPLE-VALUE-SETQ (QUOTIENT REMAINDER) (TRUNCATE 3.2 2)) 1) (EQL QUOTIENT 1) (EQL REMAINDER 1.2)))) -EQL-OK: NIL -(NOT (LET ((A 7) (B 8) (C 9)) (AND (EQL (MULTIPLE-VALUE-SETQ (A B C) (VALUES 1 2)) 1) (EQL A 1) (EQL B 2) (EQL C NIL)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (EQL (MULTIPLE-VALUE-SETQ (A B) (VALUES 4 5 6)) 4) (EQL A 4) (EQL B 5)))) -EQL-OK: NIL -(NOT (NULL (MULTIPLE-VALUE-LIST (VALUES-LIST NIL)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1))) '(1))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1 2))) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1 2 3))) '(1 2 3))) -EQL-OK: NIL -(NOT (EVERY #'(LAMBDA (LIST) (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST LIST)) LIST)) 'NIL '(A) '(A B) '(A B C) '(A B C D) '(A B C D E) '(A B C D E F) '(A B C D E F G) '(A B C D E F G H))) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'NTH-VALUE)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 0 (VALUES 'A 'B)) 'A)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 1 (VALUES 'A 'B)) 'B)) -EQL-OK: NIL -(NOT (NULL (NTH-VALUE 2 (VALUES 'A 'B)))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (A B EQ?) (LET* ((X 83927472397238947423879243432432432) (Y 32423489732) (A (NTH-VALUE 1 (FLOOR X Y))) (B (MOD X Y))) (VALUES A B (= A B))) (AND (EQL A 3332987528) (EQL B 3332987528) EQ?))) -EQL-OK: NIL -(NOT (NULL (NTH-VALUE 0 (VALUES)))) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 0 1) 1)) -EQL-OK: NIL -(NOT (NULL (NTH-VALUE 1 1))) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 0 (VALUES 0 1 2)) 0)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 1 (VALUES 0 1 2)) 1)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 2 (VALUES 0 1 2)) 2)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 3 (VALUES 0 1 2)) NIL)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 4 (VALUES 0 1 2)) NIL)) -EQL-OK: NIL -(NOT (EQL (NTH-VALUE 5 (VALUES 0 1 2)) NIL)) -EQL-OK: NIL -(NOT (LET ((Z (LIST 0 1 2 3))) (EQL (PROG* ((Y Z) (X (CAR Y))) (RETURN X)) (CAR Z)))) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'PROG)) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'PROG*)) -EQL-OK: NIL -(NOT (LET ((A 1)) (EQ (PROG ((A 2) (B A)) (RETURN (IF (= A B) '= '/=))) '/=))) -EQL-OK: NIL -(NOT (EQ (PROG* ((A 2) (B A)) (RETURN (IF (= A B) '= '/=))) '=)) -EQL-OK: NIL -(NOT (NULL (PROG NIL 'NO-RETURN-VALUE))) -EQL-OK: NIL -(NOT (FLET ((KING-OF-CONFUSION (W) "Take a cons of two lists and make a list of conses. -Think of this function as being like a zipper." (PROG (X Y Z) (SETQ Y (CAR W) Z (CDR W)) LOOP (COND ((NULL Y) (RETURN X)) ((NULL Z) (GO ERR))) REJOIN (SETQ X (CONS (CONS (CAR Y) (CAR Z)) X)) (SETQ Y (CDR Y) Z (CDR Z)) (GO LOOP) ERR (CERROR "Will self-pair extraneous items" "Mismatch - gleep! ~S" Y) (SETQ Z Y) (GO REJOIN)))) (AND (EQUAL (KING-OF-CONFUSION '((0 1 2) A B C)) '((2 . C) (1 . B) (0 . A))) (EQUAL (KING-OF-CONFUSION '((0 1 2 3 4 5) A B C D E F)) '((5 . F) (4 . E) (3 . D) (2 . C) (1 . B) (0 . A)))))) -EQL-OK: NIL -(NOT (NULL (PROG NIL T))) -EQL-OK: NIL -(NOT (NULL (PROG NIL))) -EQL-OK: NIL -(NOT (EQL (LET ((A 0) (B 0)) (PROG ((A 10) (B 100)) (RETURN (+ A B)))) 110)) -EQL-OK: NIL -(NOT (PROG (A (B 1) (C 2)) (RETURN (AND (NULL A) (EQL B 1) (EQL C 2))))) -EQL-OK: NIL -(NOT (PROG ((A 0) B (C 2)) (RETURN (AND (EQL A 0) (NULL B) (EQL C 2))))) -EQL-OK: NIL -(NOT (PROG ((A 0) (B 1) C) (RETURN (AND (EQL A 0) (EQL B 1) (NULL C))))) -EQL-OK: NIL -(NOT (PROG (A B C) (RETURN (EVERY #'NULL (LIST A B C))))) -EQL-OK: NIL -(NOT (EQL (LET ((A 0)) (DECLARE (SPECIAL A)) (FLET ((REF-A NIL A)) (PROG ((A 10)) (DECLARE (SPECIAL A)) (RETURN (REF-A))))) 10)) -EQL-OK: NIL -(NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQL (FLET ((REF-A NIL A)) (PROG ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (+ (REF-A) B C)))) 111) (EQL A 0)))) -EQL-OK: NIL -(NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQUAL (MULTIPLE-VALUE-LIST (FLET ((REF-A NIL A)) (PROG ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (VALUES (REF-A) B C))))) '(10 1 100)) (EQL A 0)))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (PROG NIL (RETURN A)) 0) (EQL A 0)))) -EQL-OK: NIL -(NOT (FLET ((REV (LIST) (PROG ((X LIST) (RESULT NIL)) TOP (WHEN (NULL X) (RETURN RESULT)) (PSETQ X (CDR X) RESULT (CONS (CAR X) RESULT)) (GO TOP)))) (AND (EQUAL (REV '(0 1 2 3)) '(3 2 1 0)) (EQUAL (REV NIL) NIL) (EQUAL (REV '(0)) '(0))))) -EQL-OK: NIL -(NOT (EQL (PROG (VAL) (SETQ VAL 1) (GO POINT-A) (INCF VAL 16) POINT-C (INCF VAL 4) (GO POINT-B) (INCF VAL 32) POINT-A (INCF VAL 2) (GO POINT-C) (INCF VAL 64) POINT-B (INCF VAL 8) (RETURN VAL)) 15)) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQUAL (MULTIPLE-VALUE-LIST (PROG ((A 100) (B A) (C 1)) (RETURN (VALUES A B C)))) '(100 0 1)) (EQL A 0)))) -EQL-OK: NIL -(NOT (NULL (PROG* NIL 'NO-RETURN-VALUE))) -EQL-OK: NIL -(NOT (FLET ((KING-OF-CONFUSION (W) "Take a cons of two lists and make a list of conses. -Think of this function as being like a zipper." (PROG* (X Y Z) (SETQ Y (CAR W) Z (CDR W)) LOOP (COND ((NULL Y) (RETURN X)) ((NULL Z) (GO ERR))) REJOIN (SETQ X (CONS (CONS (CAR Y) (CAR Z)) X)) (SETQ Y (CDR Y) Z (CDR Z)) (GO LOOP) ERR (CERROR "Will self-pair extraneous items" "Mismatch - gleep! ~S" Y) (SETQ Z Y) (GO REJOIN)))) (AND (EQUAL (KING-OF-CONFUSION '((0 1 2) A B C)) '((2 . C) (1 . B) (0 . A))) (EQUAL (KING-OF-CONFUSION '((0 1 2 3 4 5) A B C D E F)) '((5 . F) (4 . E) (3 . D) (2 . C) (1 . B) (0 . A)))))) -EQL-OK: NIL -(NOT (NULL (PROG* NIL T))) -EQL-OK: NIL -(NOT (NULL (PROG* NIL))) -EQL-OK: NIL -(NOT (EQL (LET ((A 0) (B 0)) (PROG* ((A 10) (B 100)) (RETURN (+ A B)))) 110)) -EQL-OK: NIL -(NOT (PROG* (A (B 1) (C 2)) (RETURN (AND (NULL A) (EQL B 1) (EQL C 2))))) -EQL-OK: NIL -(NOT (PROG* ((A 0) B (C 2)) (RETURN (AND (EQL A 0) (NULL B) (EQL C 2))))) -EQL-OK: NIL -(NOT (PROG* ((A 0) (B 1) C) (RETURN (AND (EQL A 0) (EQL B 1) (NULL C))))) -EQL-OK: NIL -(NOT (PROG* (A B C) (RETURN (EVERY #'NULL (LIST A B C))))) -EQL-OK: NIL -(NOT (EQL (LET ((A 0)) (DECLARE (SPECIAL A)) (FLET ((REF-A NIL A)) (PROG* ((A 10)) (DECLARE (SPECIAL A)) (RETURN (REF-A))))) 10)) -EQL-OK: NIL -(NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQL (FLET ((REF-A NIL A)) (PROG* ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (+ (REF-A) B C)))) 111) (EQL A 0)))) -EQL-OK: NIL -(NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQUAL (MULTIPLE-VALUE-LIST (FLET ((REF-A NIL A)) (PROG* ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (VALUES (REF-A) B C))))) '(10 1 100)) (EQL A 0)))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (PROG* NIL (RETURN A)) 0) (EQL A 0)))) -EQL-OK: NIL -(NOT (FLET ((REV (LIST) (PROG* ((X LIST) (RESULT NIL)) TOP (WHEN (NULL X) (RETURN RESULT)) (PSETQ X (CDR X) RESULT (CONS (CAR X) RESULT)) (GO TOP)))) (AND (EQUAL (REV '(0 1 2 3)) '(3 2 1 0)) (EQUAL (REV NIL) NIL) (EQUAL (REV '(0)) '(0))))) -EQL-OK: NIL -(NOT (EQL (PROG* (VAL) (SETQ VAL 1) (GO POINT-A) (INCF VAL 16) POINT-C (INCF VAL 4) (GO POINT-B) (INCF VAL 32) POINT-A (INCF VAL 2) (GO POINT-C) (INCF VAL 64) POINT-B (INCF VAL 8) (RETURN VAL)) 15)) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQUAL (MULTIPLE-VALUE-LIST (PROG* ((A 100) (B A) (C 1)) (RETURN (VALUES A B C)))) '(100 100 1)) (EQL A 0)))) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'PROG1)) -EQL-OK: NIL -(NOT (MACRO-FUNCTION 'PROG2)) -EQL-OK: NIL -(NOT (EQL (LET ((TEMP 1)) (PROG1 TEMP (INCF TEMP) TEMP)) 1)) -EQL-OK: NIL -(NOT (LET ((TEMP T)) (AND (EQ (PROG1 TEMP (SETQ TEMP NIL)) 'T) (NULL TEMP)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3) 4)) '(1))) -EQL-OK: NIL -(NOT (LET ((TEMP (LIST 'A 'B 'C))) (AND (EQ (PROG1 (CAR TEMP) (SETF (CAR TEMP) 'ALPHA)) 'A) (EQUAL TEMP '(ALPHA B C))))) -EQL-OK: NIL -(NOT (EQUAL (FLET ((SWAP-SYMBOL-VALUES (X Y) (SETF (SYMBOL-VALUE X) (PROG1 (SYMBOL-VALUE Y) (SETF (SYMBOL-VALUE Y) (SYMBOL-VALUE X)))))) (LET ((*FOO* 1) (*BAR* 2)) (DECLARE (SPECIAL *FOO* *BAR*)) (SWAP-SYMBOL-VALUES '*FOO* '*BAR*) (LIST *FOO* *BAR*))) '(2 1))) -EQL-OK: NIL -(NOT (LET ((TEMP 1)) (AND (EQL (PROG2 (INCF TEMP) (INCF TEMP) (INCF TEMP)) 3) (EQL TEMP 4)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG2 1 (VALUES 2 3 4) 5)) '(2))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG2 1 (VALUES 2 3 4) 5 (VALUES 6 7))) '(2))) -EQL-OK: NIL -(NOT (EQL (PROG1 1) 1)) -EQL-OK: NIL -(NOT (EQL (PROG1 1 2) 1)) -EQL-OK: NIL -(NOT (EQL (PROG1 1 2 3) 1)) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3))) '(1))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3) (VALUES 4 5 6) (VALUES 7 8 9))) '(1))) -EQL-OK: NIL -(NOT (EQL (PROG2 1 2) 2)) -EQL-OK: NIL -(NOT (EQL (PROG2 1 2 3) 2)) -EQL-OK: NIL -(NOT (EQL (PROG2 1 2 3 4) 2)) -EQL-OK: NIL -(NOT (LET ((X 0)) (AND (EQL (PROG2 (INCF X) (INCF X) (INCF X) (INCF X)) 2) (EQL X 4)))) -EQL-OK: NIL -(NOT (LET ((X (CONS 'A 'B)) (Y (LIST 1 2 3))) (AND (EQUAL (SETF (CAR X) 'X (CADR Y) (CAR X) (CDR X) Y) '(1 X 3)) (EQUAL X '(X 1 X 3)) (EQUAL Y '(1 X 3))))) -EQL-OK: NIL -(NOT (LET ((X (CONS 'A 'B)) (Y (LIST 1 2 3))) (AND (NULL (PSETF (CAR X) 'X (CADR Y) (CAR X) (CDR X) Y)) (EQUAL X '(X 1 A 3)) (EQUAL Y '(1 A 3))))) -EQL-OK: NIL -(NOT (NULL (SETF))) -EQL-OK: NIL -(NOT (NULL (PSETF))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (EQL (SETF A 10) 10) (EQL A 10)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (EQL (SETF A 10 B 20) 20) (EQL A 10) (EQL B 20)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2)) (AND (EQL (SETF A 10 B (+ A 10) C (+ B 10)) 30) (EQL A 10) (EQL B 20) (EQL C 30)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 0 1 2))) (AND (EQ (SETF (CAR X) 'A) 'A) (EQ (SETF (CADR X) 'B) 'B) (EQ (SETF (CADDR X) 'C) 'C) (EQUAL X '(A B C))))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (NULL (PSETF A 10)) (EQL A 10)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (NULL (PSETF A 10 B 20)) (EQL A 10) (EQL B 20)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2)) (AND (NULL (PSETF A 10 B (+ A 10) C (+ B 10))) (EQL A 10) (EQL B 10) (EQL C 11)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 0 1 2))) (AND (NULL (PSETF (CAR X) 'A)) (NULL (PSETF (CADR X) 'B)) (NULL (PSETF (CADDR X) 'C)) (EQUAL X '(A B C))))) -EQL-OK: NIL -(NOT (LET ((X (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((A B C) (X Y Z))))) (AND (EQL (SETF (AREF X 0 0) #1=0.0) #1#) (EQL (SETF (AREF X 0 1) 0.1) 0.1) (EQL (SETF (AREF X 0 2) 0.2) 0.2) (EQL (SETF (AREF X 1 0) 1.0) 1.0) (EQL (SETF (AREF X 1 1) 1.1) 1.1) (EQL (SETF (AREF X 1 2) 1.2) 1.2) (EQUALP X #2A((#1# 0.1 0.2) (1.0 1.1 1.2)))))) -EQL-OK: NIL -(NOT (LET ((X (MAKE-ARRAY 4 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))) (AND (EQUALP X #*0000) (EQL (SETF (BIT X 0) 1) 1) (EQL (SETF (BIT X 2) 1) 1) (EQUAL X #*1010)))) -EQL-OK: NIL -(NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (CHAR X 0) #\c) #\c) (EQL (SETF (CHAR X 1) #\a) #\a) (EQL (SETF (CHAR X 2) #\t) #\t) (EQUAL X "cat")))) -EQL-OK: NIL -(NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (SCHAR X 0) #\c) #\c) (EQL (SETF (SCHAR X 1) #\a) #\a) (EQL (SETF (SCHAR X 2) #\t) #\t) (EQUAL X "cat")))) -EQL-OK: NIL -(NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (ELT X 0) #\c) #\c) (EQL (SETF (ELT X 1) #\a) #\a) (EQL (SETF (ELT X 2) #\t) #\t) (EQUAL X "cat")))) -EQL-OK: NIL -(NOT (LET ((X (LIST 0 1 2))) (AND (EQL (SETF (ELT X 0) #\c) #\c) (EQL (SETF (ELT X 1) #\a) #\a) (EQL (SETF (ELT X 2) #\t) #\t) (EQUAL X '(#\c #\a #\t))))) -EQL-OK: NIL -(NOT (LET ((X #'(LAMBDA (A) (+ A 10))) (SAVED (WHEN (FBOUNDP 'TEST-FN) (FDEFINITION 'TEST-FN)))) (UNWIND-PROTECT (AND (EQ (SETF (FDEFINITION 'TEST-FN) X) X) (EQL (TEST-FN 10) 20)) (WHEN SAVED (SETF (FDEFINITION 'TEST-FN) SAVED))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE)) '(NIL NIL)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE 2)) '(2 NIL)) (EQUAL (SETF (GETHASH 1 TABLE) "one") "one") (EQUAL (SETF (GETHASH 2 TABLE "two") "two") "two") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 1 TABLE) (AND (EQUAL VALUE "one") PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 2 TABLE) (AND (EQUAL VALUE "two") PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH NIL TABLE)) '(NIL NIL)) (NULL (SETF (GETHASH NIL TABLE) NIL)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH NIL TABLE) (AND (EQUAL VALUE NIL) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((X (COPY-SEQ #*0101))) (AND (EQL (SETF (SBIT X 0) 1) 1) (EQL (SETF (SBIT X 2) 1) 1) (EQUAL X #*1111)))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES A B) (VALUES 'X 'Y 'Z))) '(X Y)) (EQ A 'X) (EQ B 'Y)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 0 1 2)) (ORDER NIL)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (CAR (PROG1 X (PUSH 0 ORDER))) (CADR (PROG1 X (PUSH 1 ORDER))) (CADDR (PROG1 X (PUSH 2 ORDER)))) (VALUES 'A 'B))) '(A B NIL)) (EQUAL X '(A B NIL)) (EQUAL ORDER '(2 1 0))))) -EQL-OK: NIL -(NOT (LET ((A 'A) (B 'B) (C 'C)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A) (VALUES B C)) (VALUES 0 1 2 3 4))) '(0 1)) (EQL A 0) (EQL B 1) (NULL C)))) -EQL-OK: NIL -(NOT (LET ((A 'A) (B 'B) (C 'C) (D 'D)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A B) (VALUES C D)) (VALUES 0 1 2 3 4))) '(0 1)) (EQL A 0) (NULL B) (EQL C 1) (NULL D)))) -EQL-OK: NIL -(NOT (LET ((A 'A) (B 'B) (C 'C) (D 'D)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A B) (VALUES C D)) (VALUES 0))) '(0 NIL)) (EQL A 0) (NULL B) (NULL C) (NULL D)))) -EQL-OK: NIL -(NOT (LET ((A 'A) (B 'B) (C 'C)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES A) (VALUES 0 1 2))) '(0)) (EQL A 0) (EQ B 'B) (EQ C 'C)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 1 2 3)) (Y 'TRASH)) (AND (EQ (SHIFTF Y X (CDR X) '(HI THERE)) 'TRASH) (EQUAL X '(2 3)) (EQUAL Y '(1 HI THERE))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SHIFTF (CADR X) 'Z) 'B) (EQUAL X '(A Z C)) (EQ (SHIFTF (CADR X) (CDDR X) 'Q) 'Z) (EQUAL X '(A (C) . Q))))) -EQL-OK: NIL -(NOT (LET ((N 0) (X (LIST 'A 'B 'C 'D))) (AND (EQ (SHIFTF (NTH (SETQ N (+ N 1)) X) 'Z) 'B) (EQUAL X '(A Z C D))))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SHIFTF (VALUES A B) (VALUES C D) (VALUES 4 5))) '(0 1)) (EQL A 2) (EQL B 3) (EQL C 4) (EQL D 5)))) -EQL-OK: NIL -(NOT (LET ((N 0) (X (LIST 'A 'B 'C 'D 'E 'F 'G))) (AND (NULL (ROTATEF (NTH (INCF N) X) (NTH (INCF N) X) (NTH (INCF N) X))) (EQUAL X '(A C D B E F G))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C))) (AND (NULL (ROTATEF (FIRST X) (SECOND X) (THIRD X))) (EQUAL X '(B C A))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F))) (AND (NULL (ROTATEF (SECOND X) (THIRD X) (FOURTH X) (FIFTH X))) (EQUAL X '(A C D E B F))))) -EQL-OK: NIL -(NOT (NULL (ROTATEF))) -EQL-OK: NIL -(NOT (LET ((A 0)) (AND (NULL (ROTATEF A)) (ZEROP A)))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C)) (ORDER NIL)) (AND (NULL (ROTATEF (FIRST (PROGN (PUSH 1 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)))) (EQUAL X '(B C A)) (EQUAL ORDER '(3 2 1))))) -EQL-OK: NIL -(NOT (LET ((X (LIST 'A 'B 'C)) (ORDER NIL)) (AND (NULL (PSETF (FIRST (PROGN (PUSH 1 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)) (FIRST (PROGN (PUSH 1 ORDER) X)))) (EQUAL X '(B C A)) (EQUAL ORDER '(1 3 3 2 2 1))))) -EQL-OK: NIL -(NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (NULL (ROTATEF (VALUES A B) (VALUES C D))) (EQL A 2) (EQL B 3) (EQL C 0) (EQL D 1)))) -EQL-OK: NIL -RUN-TEST: finished "must-data-and-control" (0 errors out of 310 tests) -RUN-TEST: started # -(NOT (NULL (DOTIMES (I 10)))) -EQL-OK: NIL -(NOT (= (DOTIMES (TEMP-ONE 10 TEMP-ONE)) 10)) -EQL-OK: NIL -(NOT (LET ((TEMP-TWO 0)) (AND (EQ T (DOTIMES (TEMP-ONE 10 T) (INCF TEMP-TWO))) (EQL TEMP-TWO 10)))) -EQL-OK: NIL -(NOT (PROGN (DEFUN PALINDROMEP (STRING &OPTIONAL (START 0) (END (LENGTH STRING))) (DOTIMES (K (FLOOR (- END START) 2) T) (UNLESS (CHAR-EQUAL (CHAR STRING (+ START K)) (CHAR STRING (- END K 1))) (RETURN NIL)))) (AND (PALINDROMEP "Able was I ere I saw Elba") (NOT (PALINDROMEP "A man, a plan, a canal--Panama!")) (EQUAL (REMOVE-IF-NOT #'ALPHA-CHAR-P "A man, a plan, a canal--Panama!") "AmanaplanacanalPanama") (PALINDROMEP (REMOVE-IF-NOT #'ALPHA-CHAR-P "A man, a plan, a canal--Panama!")) (PALINDROMEP (REMOVE-IF-NOT #'ALPHA-CHAR-P "Unremarkable was I ere I saw Elba Kramer, nu?"))))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (EQL (DOTIMES (I 5 COUNT) (INCF COUNT)) 5))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (EQL (DOTIMES (I 1 COUNT) (INCF COUNT)) 1))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I 0 COUNT) (INCF COUNT))))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I -1 COUNT) (INCF COUNT))))) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I -100 COUNT) (INCF COUNT))))) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I 3 I)) 3)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I 2 I)) 2)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I 1 I)) 1)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I 0 I)) 0)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I -1 I)) 0)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I -2 I)) 0)) -EQL-OK: NIL -(NOT (EQL (DOTIMES (I -10 I)) 0)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQ (DOTIMES (I 10 T) (PUSH I LIST)) T) (EQUAL LIST '(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 10 (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I '10 (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I (/ 100 10) (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) -EQL-OK: NIL -(NOT (NULL (DOTIMES (I 10 T) (RETURN NIL)))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (DOTIMES (I 10 T) (RETURN (VALUES 'A 'B 'C)))) '(A B C))) -EQL-OK: NIL -(NOT (LET ((VAL 0)) (= (DOTIMES (I 10 VAL) (INCF VAL 1) (WHEN (< I 9) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 42))) -EQL-OK: NIL -(NOT (= (LET ((VAL 0)) (DOTIMES (I 10 VAL) (WHEN (< I 9) (GO LOOP)) 9 (INCF VAL 100) (GO LAST) LOOP (WHEN (= I 0) (GO 9)) (INCF VAL) LAST)) 208)) -EQL-OK: NIL -(NOT (= 3 (LET ((I 3)) (DOTIMES (I I I) (DECLARE (FIXNUM I)))))) -EQL-OK: NIL -(NOT (= 3 (LET ((X 0)) (DOTIMES (I 3 X) (DECLARE (FIXNUM I)) (INCF X))))) -EQL-OK: NIL -(NOT (= 3 (DOTIMES (I 3 I) (DECLARE (FIXNUM I))))) -EQL-OK: NIL -(NOT (= 3 (LET ((X 0)) (DOTIMES (I 3 X) (DECLARE (FIXNUM I)) (INCF X))))) -EQL-OK: NIL -(NOT (EQUAL '((8 6 4 2 0) (9 7 5 3 1)) (LET (EVEN ODD) (DOTIMES (I 10 (LIST EVEN ODD)) (COND ((EVENP I) (GO EVEN)) ((ODDP I) (GO ODD)) (T (ERROR "logic error"))) EVEN (PUSH I EVEN) (GO END) ODD (PUSH I ODD) (GO END) END)))) -EQL-OK: NIL -(NOT (LET ((LIST (COPY-TREE '((0) (1) (2) (3))))) (AND (NULL (DOLIST (ITEM LIST) (INCF (CAR ITEM)))) (EQUAL LIST '((1) (2) (3) (4)))))) -EQL-OK: NIL -(NOT (EQ 'OK (DOLIST (X '(0 1 2) T) (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ 'OK (DOLIST (X '(0 1 2) T) (RETURN-FROM NIL 'OK)))) -EQL-OK: NIL -(NOT (EQUAL '(OK FINE) (MULTIPLE-VALUE-LIST (DOLIST (X '(0 1 2) T) (RETURN (VALUES 'OK 'FINE)))))) -EQL-OK: NIL -(NOT (EQUAL '(OK FINE) (MULTIPLE-VALUE-LIST (DOLIST (X '(0 1 2) T) (RETURN-FROM NIL (VALUES 'OK 'FINE)))))) -EQL-OK: NIL -(NOT (NULL (LET ((X '(0 1 2))) (DOLIST (X X X))))) -EQL-OK: NIL -(NOT (= 3 (LET ((X '(0 1 2)) (I 0)) (DOLIST (X X I) (INCF I))))) -EQL-OK: NIL -(NOT (NULL (DOLIST (X 'NIL)))) -EQL-OK: NIL -(NOT (NULL (DOLIST (X '(A))))) -EQL-OK: NIL -(NOT (EQ T (DOLIST (X NIL T)))) -EQL-OK: NIL -(NOT (= 6 (LET ((SUM 0)) (DOLIST (X '(0 1 2 3) SUM) (DECLARE (FIXNUM X)) (INCF SUM X))))) -EQL-OK: NIL -(NOT (EQUAL '(5 4 3 2 1) (LET (STACK) (FLET ((F NIL (DECLARE (SPECIAL X)) (1+ X))) (DOLIST (X '(0 1 2 3 4) STACK) (DECLARE (SPECIAL X)) (DECLARE (TYPE FIXNUM X)) (PUSH (F) STACK)))))) -EQL-OK: NIL -(NOT (EQUAL '((3 1) (4 2 0)) (LET (ODD EVEN) (DOLIST (X '(0 1 2 3 4) (LIST ODD EVEN)) (COND ((ODDP X) (GO ODD)) ((EVENP X) (GO EVEN)) (T (ERROR "This code mustn't have got executed."))) ODD (PUSH X ODD) (GO LOOP-END) EVEN (PUSH X EVEN) (GO LOOP-END) LOOP-END)))) -EQL-OK: NIL -(NOT (LET ((TEMP-TWO 'NIL)) (EQUAL (DOLIST (TEMP-ONE '(1 2 3 4) TEMP-TWO) (PUSH TEMP-ONE TEMP-TWO)) '(4 3 2 1)))) -EQL-OK: NIL -(NOT (LET ((TEMP-TWO 0)) (AND (NULL (DOLIST (TEMP-ONE '(1 2 3 4)) (INCF TEMP-TWO))) (EQL TEMP-TWO 4)))) -EQL-OK: NIL -(NOT (NULL (DOLIST (VAR NIL VAR)))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOLIST (VAR '(0 1 2 3) LIST) (PUSH VAR LIST)) '(3 2 1 0)))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOLIST (VAR '(0 1 2 3) (PUSH VAR LIST)) (PUSH VAR LIST)) '(NIL 3 2 1 0)))) -EQL-OK: NIL -(NOT (NULL (DOLIST (VAR '(0 1 2 3))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (NULL (DOLIST (VAR '(0 1 2 3)) (PUSH VAR LIST))) (EQUAL LIST '(3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQ (DOLIST (VAR 'NIL T) (PUSH VAR LIST)) T) (NULL LIST)))) -EQL-OK: NIL -(NOT (LET ((LIST '((A) (B) (C))) (COUNT 0)) (DOLIST (VAR LIST T) (UNLESS (EQ (NTH COUNT LIST) VAR) (RETURN NIL)) (INCF COUNT)))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (NULL (DOLIST (VAR '(0 1 2 3) T) (IF (= VAR 2) (RETURN) (PUSH VAR LIST)))) (EQUAL LIST '(1 0))))) -EQL-OK: NIL -(NOT (LET ((VAL 0)) (= (DOLIST (VAR '(A B C) VAL) (INCF VAL 1) (UNLESS (EQ VAR 'C) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 14))) -EQL-OK: NIL -(NOT (= (LET ((VAL 0)) (DOLIST (I '(0 1 2 3 4 5 6 7 8 9) VAL) (WHEN (< I 9) (GO LOOP)) 9 (INCF VAL 100) (GO LAST) LOOP (WHEN (= I 0) (GO 9)) (INCF VAL) LAST)) 208)) -EQL-OK: NIL -(NOT (LET ((VAL 0)) (= (DOLIST (I '(0 1 2 3 4 5 6 7 8 9) VAL) (INCF VAL 1) (WHEN (< I 9) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 42))) -EQL-OK: NIL -(NOT (EQ 'OK (BLOCK NIL (TAGBODY (DOLIST (X '(0 1 2 3) T) (WHEN (ODDP X) (GO THERE))) THERE (RETURN 'OK))))) -EQL-OK: NIL -(NOT (FLET ((REV (LIST) (DO ((X LIST (CDR X)) (REVERSE NIL (CONS (CAR X) REVERSE))) ((NULL X) REVERSE)))) (AND (NULL (REV NIL)) (EQUAL (REV '(0 1 2 3 4)) '(4 3 2 1 0))))) -EQL-OK: NIL -(NOT (FLET ((NREV (LIST) (DO ((1ST (CDR LIST) (CDR 1ST)) (2ND LIST 1ST) (3RD 'NIL 2ND)) ((NULL 2ND) 3RD) (RPLACD 2ND 3RD)))) (AND (NULL (NREV NIL)) (EQUAL (NREV (LIST 0 1 2 3 4)) '(4 3 2 1 0))))) -EQL-OK: NIL -(NOT (FLET ((SUB (LIST START END) (DO* ((X (NTHCDR START LIST) (CDR X)) (I START (1+ I)) (RESULT (LIST NIL)) (SPLICE RESULT)) ((>= I END) (CDR RESULT)) (SETQ SPLICE (CDR (RPLACD SPLICE (LIST (CAR X)))))))) (AND (EQ (SUB 'NIL 0 0) 'NIL) (EQUAL (SUB '(0 1 2 3) 1 4) '(1 2 3)) (EQUAL (SUB '(0 1 2 3) 1 1) 'NIL) (EQUAL (SUB '(0 1 2 3) 1 2) '(1)) (EQUAL (SUB '(0 1 2 3) 1 3) '(1 2))))) -EQL-OK: NIL -(NOT (EQL (DO ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1- TEMP-TWO))) ((> (- TEMP-ONE TEMP-TWO) 5) TEMP-ONE)) 4)) -EQL-OK: NIL -(NOT (EQL (DO ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1+ TEMP-ONE))) ((= 3 TEMP-TWO) TEMP-ONE)) 3)) -EQL-OK: NIL -(NOT (EQL (DO* ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1+ TEMP-ONE))) ((= 3 TEMP-TWO) TEMP-ONE)) 2)) -EQL-OK: NIL -(NOT (LET ((A-VECTOR (VECTOR 1 NIL 3 NIL))) (AND (NULL (DO ((I 0 (+ I 1)) (N (ARRAY-DIMENSION A-VECTOR 0))) ((= I N)) (WHEN (NULL (AREF A-VECTOR I)) (SETF (AREF A-VECTOR I) 0)))) (EQUALP A-VECTOR #(1 0 3 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (EQUALP (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J) VEC) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N)) #(9 8 7 6 5 4 3 2 1 0)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO (N (I 0 (1+ I)) (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) (J 9 (1- J)) N) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (= (DO* ((LIST (LIST 0 1 2 3 4 5 6 7 8 9) (CDR LIST)) (ELM (CAR LIST) (CAR LIST)) (N 0 (+ N (OR ELM 0)))) ((ENDP LIST) N)) 45)) -EQL-OK: NIL -(NOT (= (DO* ((LIST (LIST 0 1 2 3 4 5 6 7 8 9) (CDR LIST)) (ELM (CAR LIST) (CAR LIST)) (N 0)) ((ENDP LIST) N) (INCF N ELM)) 45)) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* (N (I 0 (1+ I)) (J (- 9 I) (- 9 I))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) N (J (- 9 I) (- 9 I))) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) (J (- 9 I) (- 9 I)) N) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) (J (- 9 I) (- 9 I)) N) ((>= I J)) (SETF N (AREF VEC I) (AREF VEC I) (AREF VEC J) (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) -EQL-OK: NIL -RUN-TEST: finished "must-do" (0 errors out of 75 tests) -RUN-TEST: started # -(NOT (= (FUNCALL (LAMBDA (X) (+ X 3)) 4) 7)) -EQL-OK: NIL -(NOT (= (FUNCALL (LAMBDA (&REST ARGS) (APPLY #'+ ARGS)) 1 2 3 4) 10)) -EQL-OK: NIL -(NOT (FUNCTIONP (LAMBDA (&REST ARGS) (APPLY #'+ ARGS)))) -EQL-OK: NIL -(NOT (FUNCTIONP (MACRO-FUNCTION 'LAMBDA))) -EQL-OK: NIL -(NOT (EVERY #'SPECIAL-OPERATOR-P '(BLOCK CATCH EVAL-WHEN FLET FUNCTION GO IF LABELS LET LET* LOAD-TIME-VALUE LOCALLY MACROLET MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM SETQ SYMBOL-MACROLET TAGBODY THE THROW UNWIND-PROTECT))) -EQL-OK: NIL -(NOT (NOT (SPECIAL-OPERATOR-P 'CAR))) -EQL-OK: NIL -(NOT (NOT (SPECIAL-OPERATOR-P 'CDR))) -EQL-OK: NIL -(NOT (NOT (SPECIAL-OPERATOR-P 'VALUES))) -EQL-OK: NIL -RUN-TEST: finished "must-eval" (0 errors out of 8 tests) -RUN-TEST: started # -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (HASH-TABLE-P TABLE) (EQL (SETF (GETHASH "one" TABLE) 1) 1) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH (COPY-SEQ "one") TABLE)) '(NIL NIL))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL))) (AND (HASH-TABLE-P TABLE) (EQL (SETF (GETHASH "one" TABLE) 1) 1) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH (COPY-SEQ "one") TABLE)) '(1 T))))) -EQL-OK: NIL -(NOT (MAKE-HASH-TABLE :REHASH-SIZE 1.5 :REHASH-THRESHOLD 0.7)) -EQL-OK: NIL -(NOT (MAKE-HASH-TABLE)) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 0))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 1))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 2))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 3))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 1000))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 1))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 100))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 1.5))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.0))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.1))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.12))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.5))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 2/3))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.888))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.99))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 1))) -EQL-OK: NIL -(NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 1.0))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :REHASH-SIZE 1.1 :REHASH-THRESHOLD 0))) (AND (DOTIMES (I 10 T) (SETF (GETHASH I TABLE) I)) (DOTIMES (I 10 T) (UNLESS (EQL (GETHASH I TABLE) I) (RETURN NIL))) (HASH-TABLE-P TABLE)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 1 :REHASH-SIZE 1 :REHASH-THRESHOLD 1))) (AND (DOTIMES (I 100 T) (SETF (GETHASH I TABLE) I)) (DOTIMES (I 100 T) (UNLESS (EQL (GETHASH I TABLE) I) (RETURN NIL))) (HASH-TABLE-P TABLE)))) -EQL-OK: NIL -(NOT (NOT (HASH-TABLE-P 'HASH-TABLE))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (HASH-TABLE-P TABLE))) -EQL-OK: NIL -(NOT (NOT (HASH-TABLE-P 37))) -EQL-OK: NIL -(NOT (NOT (HASH-TABLE-P '((A . 1) (B . 2))))) -EQL-OK: NIL -(NOT (NOT (HASH-TABLE-P (TYPE-OF (MAKE-HASH-TABLE))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (EQUAL (SETF (GETHASH 57 TABLE) "fifty-seven") "fifty-seven") (EQL (HASH-TABLE-COUNT TABLE) 1) (DOTIMES (I 100 T) (SETF (GETHASH I TABLE) I)) (EQL (HASH-TABLE-COUNT TABLE) 100)))) -EQL-OK: NIL -(NOT (ZEROP (HASH-TABLE-COUNT (MAKE-HASH-TABLE)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQL (SETF (GETHASH 'KEY TABLE) 9) 9) (= (HASH-TABLE-COUNT TABLE) 1)))) -EQL-OK: NIL -(NOT (<= 0 (HASH-TABLE-SIZE (MAKE-HASH-TABLE)))) -EQL-OK: NIL -(NOT (LET* ((TABLE0 (MAKE-HASH-TABLE)) (TABLE (MAKE-HASH-TABLE :SIZE (HASH-TABLE-SIZE TABLE0) :TEST (HASH-TABLE-TEST TABLE0) :REHASH-THRESHOLD (HASH-TABLE-REHASH-THRESHOLD TABLE0) :REHASH-SIZE (HASH-TABLE-REHASH-SIZE TABLE0)))) (AND (HASH-TABLE-P TABLE) (ZEROP (HASH-TABLE-COUNT TABLE)) (EQ (TYPE-OF TABLE) 'HASH-TABLE)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE)) '(NIL NIL)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE 2)) '(2 NIL)) (EQUAL (SETF (GETHASH 1 TABLE) "one") "one") (EQUAL (SETF (GETHASH 2 TABLE "two") "two") "two") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 1 TABLE) (AND (EQUAL VALUE "one") PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 2 TABLE) (AND (EQUAL VALUE "two") PRESENT-P)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH NIL TABLE)) '(NIL NIL)) (NULL (SETF (GETHASH NIL TABLE) NIL)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH NIL TABLE) (AND (NOT VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY (MAKE-HASH-TABLE) 'DEFAULT) (AND (EQ VALUE 'DEFAULT) (NOT PRESENT-P)))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY (MAKE-HASH-TABLE)) (AND (NULL VALUE) (NOT PRESENT-P)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (EQL (SETF (GETHASH 'KEY TABLE) 100) 100) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY TABLE) (AND (EQL VALUE 100) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) (LIST NIL)) (AND (EQL (SETF (GETHASH (PROGN (PUSH 0 LIST) 0) (PROGN (PUSH 1 LIST) TABLE) (PROGN (PUSH 2 LIST) 'DEFAULT)) (PROGN (PUSH 3 LIST) 9)) 9) (EQUAL LIST '(3 2 1 0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (DOTIMES (I 100 T) (UNLESS (EQL (SETF (GETHASH I TABLE) (* I 10)) (* I 10)) (RETURN NIL))) (= (HASH-TABLE-COUNT TABLE) 100) (DOTIMES (I 100 T) (UNLESS (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH I TABLE) (AND (EQL VALUE (* I 10)) PRESENT-P)) (RETURN NIL)))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (SETF (GETHASH 100 TABLE) "C") "C") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 100 TABLE) (AND (EQUAL VALUE "C") PRESENT-P)) (REMHASH 100 TABLE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 100 TABLE) (AND (NOT VALUE) (NOT PRESENT-P))) (NOT (REMHASH 100 TABLE))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (EQL (SETF (GETHASH 'A TABLE) 'ABC) 'ABC) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'A TABLE) (AND (EQ VALUE 'ABC) PRESENT-P)) (EQL (HASH-TABLE-COUNT TABLE) 1) (REMHASH 'A TABLE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'A TABLE) (AND (NOT VALUE) (NOT PRESENT-P))) (ZEROP (HASH-TABLE-COUNT TABLE))))) -EQL-OK: NIL -(NOT (NOT (REMHASH 'KEY (MAKE-HASH-TABLE)))) -EQL-OK: NIL -(NOT (WITH-HASH-TABLE-ITERATOR (ITERATOR (MAKE-HASH-TABLE)) (MACROLET ((TEST (&ENVIRONMENT ENV) (IF (MACRO-FUNCTION 'ITERATOR ENV) T NIL))) (TEST)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) (ALIST NIL)) (DOTIMES (I 10) (SETF (GETHASH I TABLE) I)) (WITH-HASH-TABLE-ITERATOR (ITERATOR TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (UNLESS MORE (RETURN)) (PUSH (LIST KEY VALUE) ALIST)))) (SETQ ALIST (SORT ALIST #'< :KEY #'CAR)) (EQUAL ALIST '((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) (EVAL 0)) (DOTIMES (I 10) (SETF (GETHASH I TABLE) I)) (WITH-HASH-TABLE-ITERATOR (ITERATOR (PROGN (INCF EVAL) TABLE)) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (DECLARE (IGNORE KEY VALUE)) (UNLESS MORE (RETURN))))) (EQL EVAL 1))) -EQL-OK: NIL -(NOT (WITH-HASH-TABLE-ITERATOR (ITERATOR (MAKE-HASH-TABLE)) (NULL (ITERATOR)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) ALIST0 ALIST1 ALIST2) (DOTIMES (I 100) (SETF (GETHASH I TABLE) I)) (AND (WITH-HASH-TABLE-ITERATOR (ITERATOR0 TABLE) (WITH-HASH-TABLE-ITERATOR (ITERATOR1 TABLE) (WITH-HASH-TABLE-ITERATOR (ITERATOR2 TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE0 KEY0 VALUE0) (ITERATOR0) (MULTIPLE-VALUE-BIND (MORE1 KEY1 VALUE1) (ITERATOR1) (MULTIPLE-VALUE-BIND (MORE2 KEY2 VALUE2) (ITERATOR2) (UNLESS (OR (EVERY #'NULL (LIST MORE0 MORE1 MORE2)) (EVERY #'IDENTITY (LIST MORE0 MORE1 MORE2))) (RETURN NIL)) (WHEN (EVERY #'NULL (LIST MORE0 MORE1 MORE2)) (RETURN T)) (PUSH (CONS KEY0 VALUE0) ALIST0) (PUSH (CONS KEY1 VALUE1) ALIST1) (PUSH (CONS KEY2 VALUE2) ALIST2)))))))) (EQUAL (SORT ALIST0 #'< :KEY #'CAR) (SETQ ALIST1 (SORT ALIST1 #'< :KEY #'CAR))) (EQUAL ALIST1 (SORT ALIST2 #'< :KEY #'CAR))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-SIZE 100)) (N 0) (ALIST NIL)) (AND (DOLIST (KEY '(A B C D E F G H I J K) T) (UNLESS (EQL (SETF (GETHASH KEY TABLE) N) N) (RETURN NIL)) (INCF N)) (REMHASH 'B TABLE) (REMHASH 'D TABLE) (REMHASH 'F TABLE) (REMHASH 'H TABLE) (REMHASH 'J TABLE) (NOT (REMHASH 'B TABLE)) (NOT (REMHASH 'D TABLE)) (NOT (REMHASH 'F TABLE)) (NOT (REMHASH 'H TABLE)) (NOT (REMHASH 'J TABLE)) (WITH-HASH-TABLE-ITERATOR (ITERATOR TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (UNLESS MORE (RETURN T)) (PUSH (CONS KEY VALUE) ALIST)))) (EQUAL (SORT ALIST #'< :KEY #'CDR) '((A . 0) (C . 2) (E . 4) (G . 6) (I . 8) (K . 10)))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (NULL (DOTIMES (I 10) (SETF (GETHASH I TABLE) I))) (EQL (LET ((SUM-OF-SQUARES 0)) (MAPHASH #'(LAMBDA (KEY VAL) (LET ((SQUARE (* VAL VAL))) (INCF SUM-OF-SQUARES SQUARE) (SETF (GETHASH KEY TABLE) SQUARE))) TABLE) SUM-OF-SQUARES) 285) (EQL (HASH-TABLE-COUNT TABLE) 10) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (WHEN (ODDP VAL) (REMHASH KEY TABLE))) TABLE)) (EQL (HASH-TABLE-COUNT TABLE) 5) (LET ((ALIST NIL)) (AND (NULL (MAPHASH #'(LAMBDA (KEY VAL) (PUSH (LIST KEY VAL) ALIST)) TABLE)) (EQUALP (SORT ALIST #'< :KEY #'CAR) '((0 0) (2 4) (4 16) (6 36) (8 64)))))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) (ALIST NIL)) (AND (NULL (DOTIMES (I 10) (SETF (GETHASH I TABLE) I))) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (IF (EVENP KEY) (SETF (GETHASH KEY TABLE) (* VAL VAL)) (REMHASH KEY TABLE))) TABLE)) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (PUSH (CONS KEY VAL) ALIST)) TABLE)) (EQUAL (SORT ALIST #'< :KEY #'CAR) '((0 . 0) (2 . 4) (4 . 16) (6 . 36) (8 . 64)))))) -EQL-OK: NIL -(NOT (FLET ((TEST-HASH-TABLE-ITERATOR (HASH-TABLE) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL) (UNIQUE (LIST NIL))) (MAPHASH #'(LAMBDA (KEY VALUE) (PUSH (LIST KEY VALUE) ALL-ENTRIES)) HASH-TABLE) (WITH-HASH-TABLE-ITERATOR (GENERATOR-FN HASH-TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE? KEY VALUE) (GENERATOR-FN) (UNLESS MORE? (RETURN)) (UNLESS (EQL VALUE (GETHASH KEY HASH-TABLE UNIQUE)) (ERROR "Key ~S not found for value ~S" KEY VALUE)) (PUSH (LIST KEY VALUE) GENERATED-ENTRIES)))) (UNLESS (= (LENGTH ALL-ENTRIES) (LENGTH GENERATED-ENTRIES) (LENGTH (UNION ALL-ENTRIES GENERATED-ENTRIES :KEY #'CAR :TEST (HASH-TABLE-TEST HASH-TABLE)))) (ERROR "Generated entries and Maphash entries don't correspond")) T))) (LET ((TABLE (MAKE-HASH-TABLE :REHASH-SIZE 100)) (N 0)) (AND (DOLIST (KEY '(A B C D E F G H I J K) T) (UNLESS (EQL (SETF (GETHASH KEY TABLE) N) N) (RETURN NIL)) (INCF N)) (REMHASH 'B TABLE) (REMHASH 'D TABLE) (REMHASH 'F TABLE) (REMHASH 'H TABLE) (REMHASH 'J TABLE) (NOT (REMHASH 'B TABLE)) (NOT (REMHASH 'D TABLE)) (NOT (REMHASH 'F TABLE)) (NOT (REMHASH 'H TABLE)) (NOT (REMHASH 'J TABLE)) (TEST-HASH-TABLE-ITERATOR TABLE) (TEST-HASH-TABLE-ITERATOR (MAKE-HASH-TABLE)))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (NULL (DOTIMES (I 100) (SETF (GETHASH I TABLE) (FORMAT NIL "~R" I)))) (EQL (HASH-TABLE-COUNT TABLE) 100) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 57 TABLE) (AND (EQUAL VALUE "fifty-seven") PRESENT-P)) (HASH-TABLE-P (CLRHASH TABLE)) (ZEROP (HASH-TABLE-COUNT TABLE)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 57 TABLE) (AND (NULL VALUE) (NOT PRESENT-P)))))) -EQL-OK: NIL -(NOT (LET ((CODE (SXHASH 'A))) (AND (TYPEP CODE 'FIXNUM) (<= 0 CODE)))) -EQL-OK: NIL -(NOT (DOLIST (ITEM '(A "" #\a (MAKE-HASH-TABLE) (MAKE-ARRAY '(2 3 4)) #*0101 "xx") T) (LET ((CODE (SXHASH ITEM))) (UNLESS (AND (TYPEP CODE 'FIXNUM) (<= 0 CODE)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.8))) (AND (EQL (SETF (GETHASH 'KEY TABLE) 'VALUE0) 'VALUE0) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQL (SETF (GETHASH 'KEY TABLE) 'VALUE1) 'VALUE1) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQ (GETHASH 'KEY TABLE) 'VALUE1)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.8))) (AND (EQL (SETF (GETHASH 'KEY0 TABLE) 'VALUE0) 'VALUE0) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQL (SETF (GETHASH 'KEY1 TABLE) 'VALUE1) 'VALUE1) (EQL (HASH-TABLE-COUNT TABLE) 2) (EQL (SETF (GETHASH 'KEY2 TABLE) 'VALUE2) 'VALUE2) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQL (SETF (GETHASH 'KEY0 TABLE) 'VALUE00) 'VALUE00) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQL (SETF (GETHASH 'KEY2 TABLE) 'VALUE22) 'VALUE22) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQ (GETHASH 'KEY0 TABLE) 'VALUE00) (EQ (GETHASH 'KEY1 TABLE) 'VALUE1) (EQ (GETHASH 'KEY2 TABLE) 'VALUE22)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQ)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQ KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 1.0) (KEY1 1.0)) (AND (EQL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 #\a) (KEY1 #\a)) (AND (EQL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 'KEY) (KEY1 'KEY)) (AND (EQ KEY0 KEY1) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 1.0) (KEY1 1.0)) (AND (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 #\a) (KEY1 #\a)) (AND (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "KEY"))) (AND (NOT (EQ KEY0 KEY1)) (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUAL)) (KEY0 (COPY-SEQ '(KEY))) (KEY1 (COPY-SEQ '(KEY)))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ #*1010)) (KEY1 (COPY-SEQ #*1010))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ #(A B C))) (KEY1 (COPY-SEQ #(A B C)))) (AND (NOT (EQ KEY0 KEY1)) (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUAL)) (KEY0 (MAKE-PATHNAME)) (KEY1 (MAKE-PATHNAME))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 1.0) (KEY1 1.0)) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 100 :TEST 'EQUALP)) (KEY0 1) (KEY1 1.0)) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 #\a) (KEY1 #\a)) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUALP)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 3 :TEST 'EQUALP)) (KEY0 (COPY-SEQ '(#\a))) (KEY1 (COPY-SEQ '(#\A)))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 3 :TEST 'EQUALP)) (KEY0 (COPY-SEQ '(#\a (1)))) (KEY1 (COPY-SEQ '(#\A (1.0))))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUALP)) (KEY0 (MAKE-HASH-TABLE)) (KEY1 (MAKE-HASH-TABLE))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (DOLIST (PAIR '((A ABC) (A BC) (1 "one") (1.0 "ONE") (#\a A) (#\A B)) T) (UNLESS (EQ (SETF (GETHASH (CAR PAIR) TABLE) (CADR PAIR)) (CADR PAIR)) (RETURN NIL))) (EQL (HASH-TABLE-COUNT TABLE) 5) (EQ (GETHASH 'A TABLE) 'BC) (EQUAL (GETHASH 1 TABLE) "one") (EQUAL (GETHASH 1.0 TABLE) "ONE") (EQL (GETHASH #\A TABLE) 'B) (EQL (GETHASH #\a TABLE) 'A)))) -EQL-OK: NIL -RUN-TEST: finished "must-hash-table" (0 errors out of 82 tests) -RUN-TEST: started # -(NOT (NULL (LOOP (RETURN)))) -EQL-OK: NIL -(NOT (LOOP (RETURN-FROM NIL T))) -EQL-OK: NIL -(NOT (NULL (LET ((STACK '(0 1 2))) (LOOP (UNLESS (POP STACK) (RETURN))) STACK))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (LOOP (RETURN (VALUES 0 1 2)))) '(0 1 2))) -EQL-OK: NIL -(NOT (= 100 (LET ((I 0)) (LOOP (INCF I) (WHEN (>= I 100) (RETURN I)))))) -EQL-OK: NIL -(NOT (EQ (LET (X) (TAGBODY (LOOP (GO END)) END (SETQ X T)) X) T)) -EQL-OK: NIL -(NOT (EQ T (CATCH 'END (LOOP (THROW 'END T))))) -EQL-OK: NIL -(NOT (EQ T (BLOCK HERE (LOOP (RETURN-FROM HERE T))))) -EQL-OK: NIL -(NOT (= 3 (LET ((I 0)) (LOOP (INCF I) (IF (= I 3) (RETURN I)))))) -EQL-OK: NIL -(NOT (= 9 (LET ((I 0) (J 0)) (TAGBODY (LOOP (INCF J 3) (INCF I) (IF (= I 3) (GO EXIT))) EXIT) J))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP :FOR A :FROM 1 :TO 3 :BY 1 :DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (LET ((FOR (MAKE-SYMBOL "FOR")) (FROM (MAKE-SYMBOL "FROM")) (TO (MAKE-SYMBOL "TO")) (BY (MAKE-SYMBOL "BY")) (DO (MAKE-SYMBOL "DO"))) (EQUAL (EVAL `(LET (STACK) (LOOP ,FOR A ,FROM 1 ,TO 3 ,BY 1 ,DO (PUSH A STACK)) STACK)) '(3 2 1)))) -EQL-OK: NIL -(NOT (LET ((FOR (MAKE-SYMBOL "FOR"))) (EQUAL (EVAL `(LET (STACK) (LOOP ,FOR A :FROM 1 :TO 3 :BY 1 :DO (PUSH A STACK)) STACK)) '(3 2 1)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "LOOP-KEY-TEST") (DELETE-PACKAGE "LOOP-KEY-TEST")) (LET* ((PKG (DEFPACKAGE "LOOP-KEY-TEST")) (FOR (INTERN "FOR" PKG)) (IN (INTERN "IN" PKG)) (BY (PROGN (IMPORT 'BY PKG) (INTERN "BY" PKG))) (COLLECT (PROGN (IMPORT 'COLLECT PKG) (INTERN "COLLECT" PKG)))) (EXPORT COLLECT PKG) (AND (EQUAL (EVAL `(LOOP ,FOR ELT ,IN '(1 2 3 4 5) ,BY #'CDDR ,COLLECT ELT)) '(1 3 5)) (DELETE-PACKAGE PKG))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A FROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A UPFROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 UPFROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A UPFROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (= 3 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 BY 1 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 BY 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 FROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNTO 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 BY 1 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 BY 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 FROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 ABOVE 0 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 TO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A DOWNFROM 3 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A BY 1 DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM (+ 1 1) UPTO (+ 4 6) BY (1+ 1) DO (PUSH A STACK)) STACK) '(10 8 6 4 2))) -EQL-OK: NIL -(NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A FROM (INCF X) UPTO (+ (INCF X) 10) BY X DO (PUSH A STACK)) STACK) '(11 9 7 5 3 1))) -EQL-OK: NIL -(NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A FROM (INCF X) BY (INCF X) UPTO (+ X 10) DO (PUSH A STACK)) STACK) '(11 9 7 5 3 1))) -EQL-OK: NIL -(NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A BY (INCF X) FROM (INCF X) UPTO (+ X 10) DO (PUSH A STACK)) STACK) '(12 11 10 9 8 7 6 5 4 3 2))) -EQL-OK: NIL -(NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A BY (INCF X) UPTO (+ (INCF X) 10) FROM (INCF X) DO (PUSH A STACK)) STACK) '(12 11 10 9 8 7 6 5 4 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A T FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT FROM 1.0 TO 3.0 BY 1.0 DO (PUSH A STACK)) STACK) '(3.0 2.0 1.0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT FROM 1.0 TO 3.0 BY 1.0 DO (PUSH A STACK)) STACK) '(3.0 2.0 1.0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE NUMBER FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE INTEGER FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM 0 UPTO 10 BY 5 DO (PUSH A STACK)) STACK) '(10 5 0))) -EQL-OK: NIL -(NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM 0 UPTO 10 BY 3 DO (PUSH A STACK)) STACK) '(9 6 3 0))) -EQL-OK: NIL -(NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM -3 UPTO 0 DO (PUSH A STACK)) STACK) '(0 -1 -2 -3))) -EQL-OK: NIL -(NOT (EQUAL (LET ((STACK)) (LOOP FOR A DOWNFROM 0 TO -3 DO (PUSH A STACK)) STACK) '(-3 -2 -1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A FROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A UPFROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (= 3 (LET ((STACK '(1 2 3))) (LOOP AS A BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 TO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A TO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNTO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A ABOVE 0 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) -EQL-OK: NIL -(NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP AS A DOWNFROM 3 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP AS A DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 0 UPTO 0 DO (PUSH A STACK)) STACK) '(0))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A UPFROM 0 BELOW 0))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A UPFROM 10 TO -10 COLLECT A))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1/3 UPTO 1 BY 1/3 DO (PUSH A STACK)) STACK) '(1 2/3 1/3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE RATIONAL FROM 1/3 UPTO 5/3 BY 1/3 DO (PUSH A STACK)) STACK) '(5/3 4/3 1 2/3 1/3))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE (INTEGER 0 2) BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN 'NIL))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN (LET ((I 0)) (LIST (INCF I) (INCF I) (INCF I))) DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LOOP FOR A IN '(0 1 . 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDR DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDR DO (PUSH A STACK)) STACK) '(2 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDDR DO (PUSH A STACK)) STACK) '(3 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDDDR DO (PUSH A STACK)) STACK) '(0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT IN '(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT IN '(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A ON 'NIL))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON (LET ((I 0)) (LIST (INCF I) (INCF I) (INCF I))) DO (PUSH (CAR A) STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 . 2) DO (PUSH A STACK)) STACK) '((1 . 2) (0 1 . 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDR DO (PUSH A STACK)) STACK) '((3) (2 3) (1 2 3) (0 1 2 3)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDR DO (PUSH A STACK)) STACK) '((2 3) (0 1 2 3)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDDR DO (PUSH A STACK)) STACK) '((3) (0 1 2 3)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDDDR DO (PUSH A STACK)) STACK) '((0 1 2 3)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A T ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE LIST ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'(LAMBDA (ARG) (CDDDDR ARG)) DO (PUSH A STACK)) STACK) '((0 1 2 3)))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A ACROSS ""))) -EQL-OK: NIL -(NOT (NULL (LET (STACK) (LOOP FOR A ACROSS "" DO (PUSH A STACK)) STACK))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(X Y Z) DO (PUSH A STACK)) STACK) '(Z Y X))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #*0101 DO (PUSH A STACK)) STACK) '(1 0 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A T ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE CHARACTER ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE BASE-CHAR ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT ACROSS #(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT ACROSS #(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM ACROSS #(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM ACROSS #(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (= (LET ((I 3)) (LOOP FOR A = 0 THEN (1+ A) DO (WHEN (ZEROP (DECF I)) (RETURN A)))) 2)) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A = '(0 1 2) THEN (CDR A) DO (IF A (PUSH (CAR A) STACK) (RETURN STACK)))) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP WITH I = 0 FOR X = I DO (WHEN (= I 3) (RETURN)) (PUSH X STACK) (INCF I)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I FIXNUM = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE FIXNUM = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I FLOAT = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE FLOAT = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I T = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE T = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) -EQL-OK: NIL -(NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C = (POP CHARS) UNLESS CHARS RETURN T)))) -EQL-OK: NIL -(NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C OF-TYPE CHARACTER = (POP CHARS) UNLESS CHARS RETURN T)))) -EQL-OK: NIL -(NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C OF-TYPE BASE-CHAR = (POP CHARS) UNLESS CHARS RETURN T)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE (INTEGER 0 3) = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE (N) (VALUES N (+ N 1) (+ N 2)))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A B C) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B ,C)) '(0 1 2 1 2 3 2 3 4)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 1)) `((,(+ N 2)))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B) ((C))) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B ,C)) '(0 1 2 1 2 3 2 3 4)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 10) ,(+ N 11) ,(+ N 12) ,(+ N 13)) `(,(+ N 20) ,(+ N 21) ,(+ N 22))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B0 B1 B2 B3) (C0 C1 C2)) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B0 ,B1 ,B2 ,B3 ,C0 ,C1 ,C2)) '(0 10 11 12 13 20 21 22 1 11 12 13 14 21 22 23 2 12 13 14 15 22 23 24)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 10) ,(+ N 11) ,(+ N 12) ,(+ N 13)) `(,(+ N 200) (,(+ N 210) ,(+ N 211) ,(+ N 212) ,(+ N 213)) ,(+ N 220))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B0 B1 B2 B3) (C0 (C10 C11 C12) C2)) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B0 ,B1 ,B2 ,B3 ,C0 ,C10 ,C11 ,C12 ,C2)) '(0 10 11 12 13 200 210 211 212 220 1 11 12 13 14 201 211 212 213 221 2 12 13 14 15 202 212 213 214 222)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-KEYS -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-KEYS -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-KEYS -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-KEYS -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-VALUES -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-VALUES -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-VALUES -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - HASH-VALUES -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP :FOR (K KK) :BEING :EACH :HASH-KEY :OF TABLE :USING (HASH-VALUE (V VV)) DO (PUSH (LIST K KK V VV) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00 V0 V00) (K1 K11 V1 V11) (K2 K22 V2 V22)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP :FOR (V VV) :BEING :EACH :HASH-VALUE :OF TABLE :USING (HASH-KEY (K KK)) DO (PUSH (LIST K KK V VV) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00 V0 V00) (K1 K11 V1 V11) (K2 K22 V2 V22)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K OF-TYPE SYMBOL BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(K0 K1 K2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) OF-TYPE SYMBOL BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) OF-TYPE (SYMBOL SYMBOL) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(0 1 2) '(V0 V1 V2)) (LOOP FOR K FIXNUM BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(0 1 2) '(V0 V1 V2)) (LOOP FOR K OF-TYPE FIXNUM BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K FLOAT BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K OF-TYPE FLOAT BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K T BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#\a #\b #\c) '(V0 V1 V2)) (LOOP FOR K OF-TYPE CHARACTER BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#\a #\b #\c))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V T BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V OF-TYPE T BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V OF-TYPE SYMBOL BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(0 1 2)) (LOOP FOR V FIXNUM BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(0 1 2)) (LOOP FOR V OF-TYPE (INTEGER 0 2) BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(#1=0.0 1.0 2.0)) (LOOP FOR V FLOAT BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(#\a #\b #\c)) (LOOP FOR V OF-TYPE BASE-CHAR BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#\a #\b #\c))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 AND X = 0 THEN A DO (PUSH X STACK)) STACK) '(2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 0 UPTO 3 FOR X = 0 THEN A DO (PUSH X STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET ((I 4) STACK) (LOOP FOR A = 0 THEN (1+ A) FOR B = 0 THEN A FOR C = 0 THEN B DO (WHEN (ZEROP (DECF I)) (RETURN)) (PUSH (LIST A B C) STACK)) STACK) '((2 2 2) (1 1 1) (0 0 0)))) -EQL-OK: NIL -(NOT (EQUAL (LET ((I 5) STACK) (LOOP FOR A = 0 THEN (1+ A) AND B = 0 THEN A AND C = 0 THEN B DO (WHEN (ZEROP (DECF I)) (RETURN)) (PUSH (LIST A B C) STACK)) STACK) '((3 2 1) (2 1 0) (1 0 0) (0 0 0)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) FOR X = A DO (PUSH X STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) AND X = 100 THEN A DO (PUSH X STACK)) STACK) '(2 1 0 100))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) FOR X = (CAR A) DO (PUSH X STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) AND X = 100 THEN (CAR A) DO (PUSH X STACK)) STACK) '(2 1 0 100))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(0 1 2 3) FOR X = A DO (PUSH X STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(0 1 2 3) AND X = 100 THEN A DO (PUSH X STACK)) STACK) '(2 1 0 100))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR X FROM 1 TO 10 FOR Y = NIL THEN X COLLECT (LIST X Y)) '((1 NIL) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9) (10 10)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR X FROM 1 TO 10 AND Y = NIL THEN X COLLECT (LIST X Y)) '((1 NIL) (2 1) (3 2) (4 3) (5 4) (6 5) (7 6) (8 7) (9 8) (10 9)))) -EQL-OK: NIL -(NOT (= 280 (LOOP FOR A UPFROM 0 UPTO 9 AND B DOWNFROM 9 DOWNTO 0 AND C FROM 0 TO 9 AND D FROM 10 ABOVE 0 AND E BELOW 10 AND F TO 9 SUMMING (+ A B C D E F)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AS B = 0 THEN A AS C = -1 THEN B AS D = -2 THEN C AS E = -3 THEN D AS F = -4 THEN E COLLECTING (LIST A B C D E F)) '((1 0 -1 -2 -3 -4) (2 2 2 2 2 2) (3 3 3 3 3 3) (4 4 4 4 4 4) (5 5 5 5 5 5) (6 6 6 6 6 6) (7 7 7 7 7 7) (8 8 8 8 8 8) (9 9 9 9 9 9)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AND B = 0 THEN A AND C = -1 THEN B AND D = -2 THEN C AND E = -3 THEN D AND F = -4 THEN E COLLECTING (LIST A B C D E F)) '((1 0 -1 -2 -3 -4) (2 1 0 -1 -2 -3) (3 2 1 0 -1 -2) (4 3 2 1 0 -1) (5 4 3 2 1 0) (6 5 4 3 2 1) (7 6 5 4 3 2) (8 7 6 5 4 3) (9 8 7 6 5 4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AND B = 0 THEN A AND C = -1 THEN B AND D = -2 THEN C AND E = -3 THEN D AND F = -4 THEN E FOR I FROM 9 DOWNTO 1 AND J = 8 THEN I AND K = 7 THEN J AND L = 6 THEN K AND M = 5 THEN L AND N = 4 THEN M COLLECTING (LIST A B C D E F) COLLECTING (LIST I J K L M N)) '((1 0 -1 -2 -3 -4) (9 8 7 6 5 4) (2 1 0 -1 -2 -3) (8 9 8 7 6 5) (3 2 1 0 -1 -2) (7 8 9 8 7 6) (4 3 2 1 0 -1) (6 7 8 9 8 7) (5 4 3 2 1 0) (5 6 7 8 9 8) (6 5 4 3 2 1) (4 5 6 7 8 9) (7 6 5 4 3 2) (3 4 5 6 7 8) (8 7 6 5 4 3) (2 3 4 5 6 7) (9 8 7 6 5 4) (1 2 3 4 5 6)))) -EQL-OK: NIL -(NOT (LET (STACK) (LOOP FOR A ON (PROGN (PUSH 1 STACK) '(0 1 2)) AND B ACROSS (PROGN (PUSH 2 STACK) "abc")) (EQUAL '(2 1) STACK))) -EQL-OK: NIL -(NOT (EQUAL (LET ((A 5)) (LOOP FOR A FROM 0 UPTO 5 AND B FROM A DOWNTO 0 COLLECT (LIST A B))) '((0 5) (1 4) (2 3) (3 2) (4 1) (5 0)))) -WARNING: Reference to A is implementation-dependent, per ANSI CL 6.1.1.4. -EQL-OK: NIL -(NOT (EQUAL (LET ((A :OUTER)) (LOOP FOR A FROM 0 UPTO 5 AND B IN (LIST A) COLLECT (LIST A B))) '((0 :OUTER)))) -WARNING: Reference to A is implementation-dependent, per ANSI CL 6.1.1.4. -EQL-OK: NIL -(NOT (EQUAL (LET ((B 0)) (LOOP FOR A FROM B UPTO 5 AND B IN '(A B C) COLLECTING (LIST A B))) '((0 A) (1 B) (2 C)))) -WARNING: Reference to B is implementation-dependent, per ANSI CL 6.1.1.4. -EQL-OK: NIL -(NOT (ZEROP (LOOP WITH X = 0 DO (RETURN X)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP WITH X = 1 FOR A FROM X TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH A = 1 WITH B = (+ A 2) WITH C = (+ B 3) RETURN (LIST A B C)) '(1 3 6))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH A = 1 AND B = 2 AND C = 3 RETURN (LIST A B C)) '(1 2 3))) -EQL-OK: NIL -(NOT (LET ((A 5) (B 10)) (EQUAL (LOOP WITH A = 1 AND B = (+ A 2) AND C = (+ B 3) RETURN (LIST A B C)) '(1 7 13)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH (A B C) OF-TYPE (FLOAT INTEGER FLOAT) RETURN (LIST A B C)) '(#1=0.0 0 #1#))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH (A B C) OF-TYPE FLOAT RETURN (LIST A B C)) '(#1=0.0 #1# #1#))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE NIL (VALUES 0 1 2))) (EQUAL (LOOP WITH (A B C) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE NIL (VALUES 0 '(1) 2))) (EQUAL (LOOP WITH (A (B) C) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE NIL (VALUES 0 '(0 1 2) 2))) (EQUAL (LOOP WITH (A (NIL B) C D) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C D))) '(0 1 2 NIL)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE NIL (VALUES 0 1 2))) (EQUAL (LOOP WITH (A B C) FIXNUM = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) -EQL-OK: NIL -(NOT (FLET ((TRIPLE NIL (VALUES 0 '(1) 2))) (EQUAL (LOOP WITH (A (B) C) OF-TYPE (FIXNUM (FIXNUM) FIXNUM) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 0 UPTO 5 FOR B FROM A DOWNTO -5 COLLECT (LIST A B)) '((0 0) (1 -1) (2 -2) (3 -3) (4 -4) (5 -5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 0 UPTO 5 WITH X = A COLLECT (LIST A X)) '((0 0) (1 0) (2 0) (3 0) (4 0) (5 0)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP INITIALLY (RETURN 0)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP REPEAT 2 FINALLY (RETURN 0)))) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 INITIALLY (INCF X) RETURN X) 1)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 INITIALLY (INCF X) FINALLY (RETURN (INCF X))) 2)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 INITIALLY (INCF X) (INCF X) FINALLY (RETURN (INCF X))) 3)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 FOR A FROM 0 UPTO 3 INITIALLY (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 3)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 FOR A FROM 0 UPTO 3 INITIALLY (INCF X) (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 4)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 DO (INCF X) INITIALLY (INCF X) (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 7)) -EQL-OK: NIL -(NOT (= 33 (LOOP WITH X = 2 INITIALLY (SETQ X (* X 3)) FOR I BELOW 3 INITIALLY (SETQ X (* X 5)) DO (INCF X I) FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH X = NIL REPEAT 2 INITIALLY (PUSH 'INITIALLY0 X) FINALLY (PUSH 'FINALLY0 X) INITIALLY (PUSH 'INITIALLY1 X) FINALLY (PUSH 'FINALLY1 X) DO (PUSH 'BODY0 X) FINALLY (PUSH 'FINALLY2 X) (PUSH 'FINALLY3 X) FINALLY (RETURN (REVERSE X)) INITIALLY (PUSH 'INITIALLY2 X) (PUSH 'INITIALLY3 X) DO (PUSH 'BODY1 X)) '(INITIALLY0 INITIALLY1 INITIALLY2 INITIALLY3 BODY0 BODY1 BODY0 BODY1 FINALLY0 FINALLY1 FINALLY2 FINALLY3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH I = 3 WITH STACK = NIL DO (WHEN (ZEROP I) (LOOP-FINISH)) (DECF I) (PUSH I STACK) FINALLY (RETURN STACK)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH I = 3 WITH STACK = NIL DOING (WHEN (ZEROP I) (LOOP-FINISH)) (DECF I) (PUSH I STACK) FINALLY (RETURN STACK)) '(0 1 2))) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 10 DO (RETURN X)) 10)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 10 DOING (RETURN X)) 10)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 DO (INCF X) DOING (INCF X) (RETURN X)) 2)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 DO (INCF X) DOING (INCF X) DO (RETURN X)) 2)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 DO (INCF X) (INCF X) DOING (RETURN X)) 2)) -EQL-OK: NIL -(NOT (= (LOOP WITH X = 0 DO (INCF X) (INCF X) (INCF X) DOING (INCF X) (RETURN X)) 4)) -EQL-OK: NIL -(NOT (LET ((ODD 0) (EVEN 0)) (AND (NULL (LOOP FOR A FROM 1 UPTO 10 IF (ODDP A) DO (INCF ODD) ELSE DO (INCF EVEN) END)) (= 5 ODD EVEN)))) -EQL-OK: NIL -(NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 IF (ODDP A) IF (> A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE IF (> A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD-) (= EVEN- 6)))) -EQL-OK: NIL -(NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 UNLESS (ZEROP A) IF (ODDP A) IF (> A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE IF (> A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD- EVEN-)))) -EQL-OK: NIL -(NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 IF (NOT (ZEROP A)) WHEN (ODDP A) UNLESS (< A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE UNLESS (<= A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD- EVEN-)))) -EQL-OK: NIL -(NOT (HANDLER-BIND ((SIMPLE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (CONTINUE)))) (EQ 'CONTINUED (LOOP FOR ITEM IN '(1 2 3 A 4 5) WHEN (NOT (NUMBERP ITEM)) RETURN (OR (CERROR "ignore this error" "non-numeric value: ~s" ITEM) 'CONTINUED))))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I IN '(1 324 2345 323 2 4 235 252) WHEN (ODDP I) COLLECT I INTO ODD-NUMBERS ELSE COLLECT I INTO EVEN-NUMBERS FINALLY (RETURN (LIST ODD-NUMBERS EVEN-NUMBERS))) '((1 2345 323 235) (324 2 4 252)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) COLLECT IT) '(4 5 6))) -EQL-OK: NIL -(NOT (= 4 (LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) RETURN IT))) -EQL-OK: NIL -(NOT (EQUAL (LET ((LIST '(0 3.0 APPLE 4 5 9.8 ORANGE BANANA))) (LOOP FOR I IN LIST WHEN (NUMBERP I) WHEN (FLOATP I) COLLECT I INTO FLOAT-NUMBERS ELSE COLLECT I INTO OTHER-NUMBERS ELSE WHEN (SYMBOLP I) COLLECT I INTO SYMBOL-LIST ELSE DO (ERROR "found a funny value in list ~S, value ~S~%" LIST I) FINALLY (RETURN (LIST FLOAT-NUMBERS OTHER-NUMBERS SYMBOL-LIST)))) '((3.0 9.8) (0 4 5) (APPLE ORANGE BANANA)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I END) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I END) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I END) '(1 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) IF (ZEROP A) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) WHEN (ZEROP A) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) IF (ZEROP A) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) WHEN (ZEROP A) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) UNLESS (NOT (ZEROP A)) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) UNLESS (NOT (ZEROP A)) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B C) IN '((0 0 0) (0 0 1) (0 1 0) (0 1 1) (1 0 0) (1 0 1) (1 1 0) (1 1 1)) IF (ZEROP A) IF (ZEROP B) IF (ZEROP C) COLLECT 'X0-0-0 ELSE COLLECT 'X0-0-1 ELSE IF (ZEROP C) COLLECT 'X0-1-0 ELSE COLLECT 'X0-1-1 ELSE IF (ZEROP B) IF (ZEROP C) COLLECT 'X1-0-0 ELSE COLLECT 'X1-0-1 ELSE IF (ZEROP C) COLLECT 'X1-1-0 ELSE COLLECT 'X1-1-1) '(X0-0-0 X0-0-1 X0-1-0 X0-1-1 X1-0-0 X1-0-1 X1-1-0 X1-1-1))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO BAG AND SUM A INTO ODD ELSE COLLECT (LIST A) INTO BAG AND SUM A INTO EVEN FINALLY (RETURN (LIST BAG ODD EVEN))) '(((0) 1 (2) 3 (4) 5 (6) 7 (8) 9) 25 20))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A AND COLLECT (LIST A) AND COLLECT (LIST (LIST A)) ELSE COLLECT A) '(0 1 (1) ((1)) 2 3 (3) ((3)) 4 5 (5) ((5)) 6 7 (7) ((7)) 8 9 (9) ((9))))) -EQL-OK: NIL -(NOT (LET ((C0 0) (C1 0)) (AND (EQUAL (LOOP FOR A BELOW 10 WHEN (ODDP A) COLLECT A AND DO (INCF C0) (DECF C1) AND COLLECT (LIST A)) '(1 (1) 3 (3) 5 (5) 7 (7) 9 (9))) (= C0 5) (= C1 -5)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP RETURN 0))) -EQL-OK: NIL -(NOT (= (LOOP FOR A FROM 0 BELOW 3 WHEN (AND (ODDP A) A) RETURN IT) 1)) -EQL-OK: NIL -(NOT (EQ (LOOP FOR A IN '(NIL NIL OK NIL OK2) WHEN A RETURN IT) 'OK)) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP WITH A = 'OK IF A RETURN IT ELSE RETURN IT))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (LOOP RETURN (VALUES 0 1 2))) '(0 1 2))) -EQL-OK: NIL -(NOT (LET ((FLAG NIL)) (AND (EQ T (LOOP FOR A BELOW 3 WHEN (ODDP A) RETURN T FINALLY (SETQ FLAG T))) (NOT FLAG)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 1 2 3) AND B IN '(3 2 1 0) IF (AND (ODDP A) A) IF (AND (EVENP B) B) WHEN (AND (= (* A B) 0) (LIST A B)) RETURN IT) '(3 0))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 0 BELOW 3 COLLECT A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 0 BELOW 3 COLLECTING A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECT IT) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECTING IT) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECT IT INTO BAG FINALLY (RETURN BAG)) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECTING IT INTO BAG FINALLY (RETURN BAG)) '(0 1 2 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD ELSE COLLECT A INTO EVEN END FINALLY (RETURN (LIST ODD EVEN))) '((1 3 5 7 9) (0 2 4 6 8)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 3 FOR B ON '(2 1 0) COLLECTING A APPENDING B) '(0 2 1 0 1 1 0 2 0))) -EQL-OK: NIL -(NOT (= 15 (LOOP FOR I OF-TYPE FIXNUM IN '(1 2 3 4 5) SUM I))) -EQL-OK: NIL -(NOT (= 22.4 (LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V IN SERIES SUM (* 2.0 V))))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD AND SUM A INTO SUM FINALLY (RETURN (LIST ODD SUM))) '((1 3 5 7 9) 25))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD AND SUM A INTO ODD-SUM ELSE COLLECT A INTO EVEN AND SUM A INTO EVEN-SUM END FINALLY (RETURN (LIST ODD ODD-SUM EVEN EVEN-SUM))) '((1 3 5 7 9) 25 (0 2 4 6 8) 20))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I IN '(BIRD 3 4 TURTLE (1 . 4) HORSE CAT) WHEN (SYMBOLP I) COLLECT I) '(BIRD TURTLE HORSE CAT))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 3 FOR J UPTO 2 COLLECTING I COLLECTING J) '(0 0 1 1 2 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM -10 UPTO 0 COLLECTING A) '(-10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A FROM -10 UPTO 0 COLLECTING A INTO LIST))) -EQL-OK: NIL -(NOT (LET* ((ZERO (LIST 0)) (ONE (LIST 1)) (TWO (LIST 2)) (LIST (LIST ZERO ONE TWO))) (AND (EQUAL (LOOP FOR A IN LIST APPEND A) '(0 1 2)) (EQUAL ZERO '(0)) (EQUAL ONE '(1)) (EQUAL TWO '(2))))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A) '(1 2))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A INTO X))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A INTO X))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A INTO X FINALLY (RETURN X)) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A INTO X FINALLY (RETURN X)) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND IT) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING IT) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A ON (LIST 0 1 2 3 4) WHEN (ODDP (CAR A)) APPEND A) '(1 2 3 4 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A ON (LIST 0 1 2 3 4) WHEN (ODDP (CAR A)) APPENDING A) '(1 2 3 4 3 4))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR X IN '((A) (B) ((C))) APPEND X) '(A B (C)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONC A) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONCING A) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST NIL (LIST 0) NIL NIL (LIST 1) (LIST 2) NIL (LIST 3) NIL))) (AND (EQUAL (LOOP FOR A IN LIST WHEN A NCONC IT) '(0 1 2 3)) (EQUAL LIST '(NIL (0 1 2 3) NIL NIL (1 2 3) (2 3) NIL (3) NIL))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST NIL (LIST 0) NIL NIL (LIST 1) (LIST 2) NIL (LIST 3) NIL))) (AND (EQUAL (LOOP FOR A IN LIST WHEN A NCONCING IT) '(0 1 2 3)) (EQUAL LIST '(NIL (0 1 2 3) NIL NIL (1 2 3) (2 3) NIL (3) NIL))))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN (LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3))) NCONC A INTO X))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN (LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3))) NCONCING A INTO X))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONC A INTO X FINALLY (RETURN X)) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONCING A INTO X FINALLY (RETURN X)) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I UPFROM 0 AS X IN '(A B (C)) NCONC (IF (EVENP I) (LIST X) NIL)) '(A (C)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '((1) (4) (7)) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECTING A APPENDING B NCONCING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN (COPY-TREE '((1) (4) (7))) FOR C IN (LIST (LIST 2) (LIST 5) (LIST 8)) COLLECTING A NCONCING B APPENDING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '((0) (3) (6)) FOR B IN (COPY-TREE '((1) (4) (7))) FOR C IN '(2 5 8) APPENDING A NCONCING B COLLECTING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '((0) (3) (6)) FOR B IN '(1 4 7) FOR C IN (COPY-TREE '((2) (5) (8))) APPENDING A COLLECTING B NCONCING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN (COPY-TREE '((0) (3) (6))) FOR B IN '(1 4 7) FOR C IN '((2) (5) (8)) NCONCING A COLLECTING B APPENDING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN (COPY-TREE '((0) (3) (6))) FOR B IN '((1) (4) (7)) FOR C IN '(2 5 8) NCONCING A APPENDING B COLLECTING C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 6) FOR B IN '((1 2 3) (7 8 9)) FOR C IN (COPY-TREE '((4 5) (10))) COLLECT A APPEND B NCONC C) '(0 1 2 3 4 5 6 7 8 9 10))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN 'NIL FOR B IN '((1 2 3) (7 8 9)) FOR C IN (COPY-TREE '((4 5) (10))) COLLECT A APPEND B NCONC C))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '((1) (4) (7)) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECTING A INTO LIST APPENDING B INTO LIST NCONCING C INTO LIST FINALLY (RETURN LIST)) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '(1 4 7) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECT A COLLECT B NCONC C) '(0 1 2 3 4 5 6 7 8))) -EQL-OK: NIL -(NOT (= 60 (LOOP FOR A UPTO 10 SUMMING A WHEN (ODDP A) COUNTING IT))) -EQL-OK: NIL -(NOT (= 220 (LOOP FOR A UPTO 10 FOR B DOWNFROM 20 SUM A SUMMING B))) -EQL-OK: NIL -(NOT (= 60 (LOOP FOR A UPTO 10 SUMMING A INTO SUM WHEN (ODDP A) COUNTING IT INTO SUM FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 21 (LOOP FOR A IN '(A 1 B 3 C 4 5 X 2 Y Z) IF (AND (NUMBERP A) A) SUMMING IT ELSE COUNTING 1))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A FROM 3 TO 5 MAXIMIZING A MINIMIZING A))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A UPTO 3 FOR B FROM 6 DOWNTO 3 MAXIMIZE A MINIMIZE B))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A IN '(0 -1 1 -2 2 -3 3) MAXIMIZE A INTO PLUS MINIMIZE A INTO MINUS FINALLY (RETURN (LIST MINUS PLUS))) '(-3 3))) -EQL-OK: NIL -(NOT (EQUAL (LET (VAL) (LIST (LOOP FOR A BELOW 10 COLLECTING A SUMMING A INTO SUM COUNTING A INTO COUNT MAXIMIZING A INTO MAX MINIMIZING A INTO MIN FINALLY (SETQ VAL (LIST SUM COUNT MAX MIN))) VAL)) '((0 1 2 3 4 5 6 7 8 9) (45 10 9 0)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR A BELOW 3 COLLECTING A FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (LET ((FLAG NIL)) (AND (EQUAL (LOOP FOR A BELOW 3 COLLECTING A FINALLY (SETQ FLAG T)) '(0 1 2)) FLAG))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR A BELOW 3 APPENDING (LIST A) FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR A BELOW 3 NCONCING (LIST A) FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A FROM 1 UPTO 10 COUNTING (EVENP A)))) -EQL-OK: NIL -(NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A) 10)) -EQL-OK: NIL -(NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A) 10)) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A INTO X))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A INTO X))) -EQL-OK: NIL -(NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A INTO X FINALLY (RETURN X)) 10)) -EQL-OK: NIL -(NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A INTO X FINALLY (RETURN X)) 10)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT) 6)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT) 6)) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT INTO X))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT INTO X))) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT INTO X FINALLY (RETURN X)) 6)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT INTO X FINALLY (RETURN X)) 6)) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR I IN '(A B NIL C NIL D E) COUNT I))) -EQL-OK: NIL -(NOT (= (LOOP FOR A TO 10 SUM A) 55)) -EQL-OK: NIL -(NOT (= (LOOP FOR A TO 10 SUMMING A) 55)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 NIL 1 NIL 2 3 NIL 4 5 6 7 NIL 8 9 10 NIL) IF A SUM IT) 55)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 NIL 1 NIL 2 3 NIL 4 5 6 7 NIL 8 9 10 NIL) IF A SUMMING IT) 55)) -EQL-OK: NIL -(NOT (LOOP FOR A TO 10 SUM A INTO SUM IF (ODDP A) SUM A INTO ODD ELSE SUM A INTO EVEN FINALLY (RETURN (= SUM (+ ODD EVEN))))) -EQL-OK: NIL -(NOT (LOOP FOR A TO 10 SUMMING A INTO SUM IF (ODDP A) SUM A INTO ODD ELSE SUMMING A INTO EVEN FINALLY (RETURN (= SUM (+ ODD EVEN))))) -EQL-OK: NIL -(NOT (= 15 (LOOP FOR A DOWNFROM 5 TO 1 SUMMING A))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A DOWNFROM 5 TO 1 SUMMING A INTO N))) -EQL-OK: NIL -(NOT (= (LOOP FOR I FROM 1 TO 4 SUM I FIXNUM COUNT T FIXNUM) 14)) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR I IN '(2 1 5 3 4) MAXIMIZE I))) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 9 5) MAXIMIZE A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 9 5) MAXIMIZING A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 5) MAXIMIZE A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 5) MAXIMIZING A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 9 5) MAXIMIZE A) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 9 5) MAXIMIZING A) 9)) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 10) LIST)) 9) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 9))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 10) LIST)) 9) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 9))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 100) LIST)) 99) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 99))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 100) LIST)) 99) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 99))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 1000) LIST)) 999) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 999))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 1000) LIST)) 999) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 999))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX))) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX FINALLY (RETURN MAX)) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX FINALLY (RETURN MAX)) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX OF-TYPE INTEGER FINALLY (RETURN MAX)) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX OF-TYPE INTEGER FINALLY (RETURN MAX)) 9)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0.0 5.0 9.0) MAXIMIZE A INTO MAX FLOAT FINALLY (RETURN MAX)) 9.0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0.0 5.0 9.0) MAXIMIZING A INTO MAX FLOAT FINALLY (RETURN MAX)) 9.0)) -EQL-OK: NIL -(NOT (LET ((SERIES '(1.2 4.3 5.7))) (= 6 (LOOP FOR V IN SERIES MAXIMIZE (ROUND V) OF-TYPE FIXNUM)))) -EQL-OK: NIL -(NOT (= 1 (LOOP FOR I IN '(2 1 5 3 4) MINIMIZE I))) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MINIMIZE A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(0 5 9) MINIMIZING A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 5 0) MINIMIZE A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 5 0) MINIMIZING A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 5) MINIMIZE A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 5) MINIMIZING A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 9 0 5 0) MINIMIZING A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 0 9 0 5 0) MINIMIZING A) 0)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(1 5 9) MINIMIZE A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(1 5 9) MINIMIZING A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 5 1) MINIMIZE A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 5 1) MINIMIZING A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 1 5) MINIMIZE A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 1 5) MINIMIZING A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 1 9 1 5 1) MINIMIZING A) 1)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(9 1 9 1 5 1) MINIMIZING A) 1)) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 10) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 10) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 100) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 100) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 1000) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) -EQL-OK: NIL -(NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 1000) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN))) -EQL-OK: NIL -(NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN OF-TYPE INTEGER FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN OF-TYPE INTEGER FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(#1=0.0 5.0 9.0) MINIMIZE A INTO MIN FLOAT FINALLY (RETURN MIN)) #1#)) -EQL-OK: NIL -(NOT (= (LOOP FOR A IN '(#1=0.0 5.0 9.0) MINIMIZING A INTO MIN FLOAT FINALLY (RETURN MIN)) #1#)) -EQL-OK: NIL -(NOT (= 1 (LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V OF-TYPE FLOAT IN SERIES MINIMIZE (ROUND V) INTO RESULT OF-TYPE FIXNUM FINALLY (RETURN RESULT))))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT FIXNUM))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING IT FLOAT))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE NUMBER))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A FIXNUM))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A FLOAT))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE NUMBER))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM FIXNUM FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE FIXNUM FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A INTO SUM FLOAT FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A INTO SUM OF-TYPE FLOAT FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE NUMBER FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE (INTEGER 0) FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT FIXNUM))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM IT FLOAT))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE NUMBER))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A FIXNUM))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A FLOAT))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE NUMBER))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM FIXNUM FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE FIXNUM FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A INTO SUM FLOAT FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A INTO SUM OF-TYPE FLOAT FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE NUMBER FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE (INTEGER 0) FINALLY (RETURN SUM)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A FIXNUM))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE INTEGER))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE NUMBER))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X FIXNUM FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE FIXNUM FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE INTEGER FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE (INTEGER 0) FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE NUMBER FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A FIXNUM))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZE A OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A INTO MAX FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZE A INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZE IT FIXNUM))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZE IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZE IT FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZE IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZE IT OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZE A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZE IT INTO MAX FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZE IT INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZE IT INTO MAX FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZE IT INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZE IT INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZE IT INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A FIXNUM))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZING A OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A INTO MAX FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZING A INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZING IT FIXNUM))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZING IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZING IT FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZING IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZING IT OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZING A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZING IT INTO MAX FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZING IT INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZING IT INTO MAX FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZING IT INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZING IT INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZING IT INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZE A FIXNUM))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZE A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZE A FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZE A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8 7 3 7.0 3.0 99.0 1000) MINIMIZE A OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZE A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZE A INTO MIN FIXNUM FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZE A INTO MIN OF-TYPE FIXNUM FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZE A INTO MIN FLOAT FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZE A INTO MIN OF-TYPE FLOAT FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8 4.0 31/3 7.0 7 99.0 3.0) MINIMIZE A INTO MIN OF-TYPE REAL FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZE A INTO MIN OF-TYPE (INTEGER 0) FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT FIXNUM))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= -99 (LOOP FOR A IN '(NIL -5 8 NIL NIL 7 7 NIL -99 3) WHEN A MINIMIZE IT OF-TYPE (INTEGER)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZING A FIXNUM))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZING A OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZING A FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZING A OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8 7 3 7.0 3.0 99.0 1000) MINIMIZING A OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZING A OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZING A INTO MIN FIXNUM FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZING A INTO MIN OF-TYPE FIXNUM FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZING A INTO MIN FLOAT FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZING A INTO MIN OF-TYPE FLOAT FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(5.0 8 4.0 31/3 7.0 7 99.0 3.0) MINIMIZING A INTO MIN OF-TYPE REAL FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZING A INTO MIN OF-TYPE (INTEGER 0) FINALLY (RETURN MIN)))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT FIXNUM))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT OF-TYPE FIXNUM))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT FLOAT))) -EQL-OK: NIL -(NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT OF-TYPE FLOAT))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT OF-TYPE REAL))) -EQL-OK: NIL -(NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT OF-TYPE (INTEGER 0)))) -EQL-OK: NIL -(NOT (= -99 (LOOP FOR A IN '(NIL -5 8 NIL NIL 7 7 NIL -99 3) WHEN A MINIMIZING IT OF-TYPE (INTEGER)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I FROM 0 UPTO 10 SUMMING I FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) COUNTING I FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) WHEN I MAXIMIZING IT FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) WHEN I MINIMIZING IT FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (NULL (LOOP WITH X = '(A B C D) WHILE X DO (POP X)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH STACK = NIL AND X = '(0 1 2 3) WHILE X DO (PUSH (POP X) STACK) FINALLY (RETURN STACK)) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH STACK = NIL AND X = '(0 1 2 3) UNTIL (NULL X) DO (PUSH (POP X) STACK) FINALLY (RETURN STACK)) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET ((STACK '(A B C D E F))) (LOOP FOR ITEM = (LENGTH STACK) THEN (POP STACK) COLLECT ITEM WHILE STACK)) '(6 A B C D E F))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I FIXNUM FROM 3 WHEN (ODDP I) COLLECT I WHILE (< I 5)) '(3 5))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT WHILE (< A 6) COLLECT A) '(0 0 1 2 2 3 4 4 5 6))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT UNTIL (>= A 6) COLLECT A) '(0 0 1 2 2 3 4 4 5 6))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT WHILE (< A 6) COLLECT A UNTIL (>= A 4) COLLECT A) '(0 0 0 1 1 2 2 2 3 3 4 4))) -EQL-OK: NIL -(NOT (= 3 (LOOP WITH X = 0 REPEAT 3 DO (INCF X) FINALLY (RETURN X)))) -EQL-OK: NIL -(NOT (= 1000 (LOOP REPEAT 1000 COUNTING 1))) -EQL-OK: NIL -(NOT (NULL (LOOP REPEAT 3))) -EQL-OK: NIL -(NOT (NULL (LOOP REPEAT 0))) -EQL-OK: NIL -(NOT (LET ((BODY-FLAG NIL)) (AND (NULL (LOOP REPEAT 0 DO (SETQ BODY-FLAG T))) (NULL BODY-FLAG)))) -EQL-OK: NIL -(NOT (= 1 (LET ((X 0)) (LOOP REPEAT (INCF X) SUM X)))) -EQL-OK: NIL -(NOT (= 4 (LET ((X 1)) (LOOP REPEAT (INCF X) SUM X)))) -EQL-OK: NIL -(NOT (= 9 (LET ((X 2)) (LOOP REPEAT (INCF X) SUM X)))) -EQL-OK: NIL -(NOT (= 16 (LET ((X 3)) (LOOP REPEAT (INCF X) SUM X)))) -EQL-OK: NIL -(NOT (NULL (LOOP REPEAT -15 RETURN T))) -EQL-OK: NIL -(NOT (LET ((BODY-FLAG NIL)) (AND (NULL (LOOP REPEAT -10 DO (SETQ BODY-FLAG T))) (NULL BODY-FLAG)))) -EQL-OK: NIL -(NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) 2) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (= 2 LOOP-COUNT)))) -EQL-OK: NIL -(NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) 0) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (ZEROP LOOP-COUNT)))) -EQL-OK: NIL -(NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) -100) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (ZEROP LOOP-COUNT)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR I FROM 0 TO 10 ALWAYS (< I 11)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR A IN 'NIL ALWAYS (ODDP A)))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 1 2) ALWAYS (ODDP A)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR A IN '(1 3 5) ALWAYS (ODDP A)))) -EQL-OK: NIL -(NOT (LET ((FLAG NIL)) (AND (NULL (LOOP FOR I FROM 0 TO 10 ALWAYS (< I 5) FINALLY (SETQ FLAG T) (RETURN T))) (NOT FLAG)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I BELOW 3 ALWAYS (NUMBERP I) FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ T (LOOP REPEAT 3 ALWAYS T))) -EQL-OK: NIL -(NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 ALWAYS (INTEGERP I) COLLECT I)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR I FROM 0 TO 10 NEVER (> I 11)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR A IN 'NIL NEVER (ODDP A)))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 1 2) NEVER (ODDP A)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR A IN '(1 3 5) NEVER (EVENP A)))) -EQL-OK: NIL -(NOT (NULL (LOOP NEVER T FINALLY (RETURN T)))) -EQL-OK: NIL -(NOT (LET ((FLAG NIL)) (AND (NULL (LOOP FOR A BELOW 3 NEVER (ODDP A) FINALLY (SETQ FLAG T) (RETURN T))) (NULL FLAG)))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I BELOW 3 NEVER (CONSP I) FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (EQ T (LOOP REPEAT 3 NEVER NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 NEVER (INTEGERP I) APPEND (LIST I))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (NULL (LOOP FOR A IN '(0 2 4) THEREIS (ODDP A)))) -EQL-OK: NIL -(NOT (= 11 (LOOP FOR I FROM 0 THEREIS (WHEN (> I 10) I)))) -EQL-OK: NIL -(NOT (EQ (LOOP THEREIS 'SOMEONE) 'SOMEONE)) -EQL-OK: NIL -(NOT (EQ (LOOP FOR I FROM 1 TO 10 THEREIS (> I 11) FINALLY (RETURN 'GOT-HERE)) 'GOT-HERE)) -EQL-OK: NIL -(NOT (LET ((COUNT 0)) (AND (NULL (LOOP FOR A BELOW 10 FOR B IN '(NIL NIL NIL NIL C) ALWAYS (< A 8) NEVER B DO (INCF COUNT))) (= COUNT 4)))) -EQL-OK: NIL -(NOT (= 4 (LOOP FOR I IN '(1 2 3 4 5 6) THEREIS (AND (> I 3) I)))) -EQL-OK: NIL -(NOT (LET ((FLAG NIL)) (LOOP FOR A BELOW 3 THEREIS (AND (ODDP A) A) FINALLY (SETQ FLAG T)) (NULL FLAG))) -EQL-OK: NIL -(NOT (EQ 'OK (LOOP FOR I BELOW 3 THEREIS (CONSP I) FINALLY (RETURN 'OK)))) -EQL-OK: NIL -(NOT (NULL (LOOP REPEAT 3 THEREIS NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 THEREIS (INTEGERP I) NCONC (LIST I))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LOOP NAMED BAR DO (RETURN-FROM BAR T))) -EQL-OK: NIL -(NOT (EQ T (LOOP NAMED OUTER DO (LOOP NAMED INNER DO (RETURN-FROM OUTER T))))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B C) OF-TYPE (INTEGER INTEGER FLOAT) IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) COLLECT (LIST C B A)) '((4.0 2 1) (8.3 6 5) (10.4 9 8)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B C) OF-TYPE FLOAT IN '((1.0 2.0 4.0) (5.0 6.0 8.3) (8.0 9.0 10.4)) COLLECT (LIST C B A)) '((4.0 2.0 1.0) (8.3 6.0 5.0) (10.4 9.0 8.0)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH (A B) OF-TYPE FLOAT = '(1.0 2.0) AND (C D) OF-TYPE INTEGER = '(3 4) AND (E F) RETURN (LIST A B C D E F)) '(1.0 2.0 3 4 NIL NIL))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A (B) ((C))) IN '((0 (1) ((2))) (3 (4) ((5))) (6 (7) ((8)))) DO (PUSH (LIST A B C) STACK)) STACK) '((6 7 8) (3 4 5) (0 1 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A NIL ((B))) IN '((0 (1) ((2))) (3 (4) ((5))) (6 (7) ((8)))) DO (PUSH (LIST A B) STACK)) STACK) '((6 8) (3 5) (0 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A NIL ((((B))))) IN '((0 (1) ((((2))))) (3 (4) ((((5))))) (6 (7) ((((8)))))) DO (PUSH (LIST A B) STACK)) STACK) '((6 8) (3 5) (0 2)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A . B) IN '((0 . 1) (2 . 3)) DO (PUSH (CONS A B) STACK)) STACK) '((2 . 3) (0 . 1)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A B) IN '((0 1) (2 3)) DO (PUSH (LIST A B) STACK)) STACK) '((2 3) (0 1)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A) ON '(0 1 2 3) DO (PUSH A STACK)) STACK) '(3 2 1 0))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A . B) ON '(0 1 2 3 4) DO (PUSH (LIST A B) STACK)) STACK) '((4 NIL) (3 (4)) (2 (3 4)) (1 (2 3 4)) (0 (1 2 3 4))))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A B) ACROSS #((0 1) (2 3) (4 5)) DO (PUSH (LIST A B) STACK)) STACK) '((4 5) (2 3) (0 1)))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (LOOP FOR (A ((B))) ACROSS #((0 ((1))) (2 ((3))) (4 ((5)))) DO (PUSH (LIST A B) STACK)) STACK) '((4 5) (2 3) (0 1)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH (A B) = '(0 1) RETURN (LIST A B)) '(0 1))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH (A B C) = '(0) RETURN (LIST A B C)) '(0 NIL NIL))) -EQL-OK: NIL -(NOT (= 2 (LOOP WITH (NIL NIL X) = '(0 1 2) RETURN X))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B C) IN '((0) (1) (2)) COLLECT (LIST A B C)) '((0 NIL NIL) (1 NIL NIL) (2 NIL NIL)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A NIL B) IN '((0 1 2) (1 2 3) (2 3 4)) COLLECT (LIST A B)) '((0 2) (1 3) (2 4)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A . B) T IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A . B) OF-TYPE T IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A . B) OF-TYPE (FIXNUM . SYMBOL) IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A ((B))) OF-TYPE (FIXNUM ((SYMBOL))) IN '((0 ((X))) (1 ((Y))) (2 ((Z)))) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A ((B))) OF-TYPE (FIXNUM SYMBOL) IN '((0 ((X))) (1 ((Y))) (2 ((Z)))) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A ((B))) FIXNUM IN '((0 ((10))) (1 ((11))) (2 ((12)))) COLLECTING (CONS A B)) '((0 . 10) (1 . 11) (2 . 12)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A ((B)) C (((D)))) FIXNUM IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B C D)) '((0 10 20 30) (1 11 21 31) (2 12 22 32)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A ((B)) C (((D)))) OF-TYPE (FIXNUM ((FIXNUM)) FIXNUM (((FIXNUM)))) IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B C D)) '((0 10 20 30) (1 11 21 31) (2 12 22 32)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A NIL NIL (((B)))) OF-TYPE (FIXNUM NIL NIL (((FIXNUM)))) IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B)) '((0 30) (1 31) (2 32)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) FIXNUM ON '(0 1 2) COLLECTING A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) OF-TYPE FIXNUM ON '(0 1 2) COLLECTING A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) FLOAT ON '(0.3 1.3 2.3) COLLECTING A) '(0.3 1.3 2.3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) OF-TYPE FLOAT ON '(0.3 1.3 2.3) COLLECTING A) '(0.3 1.3 2.3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) T ON '(0 1 2) COLLECTING A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) OF-TYPE T ON '(0 1 2) COLLECTING A) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A) OF-TYPE REAL ON '(0 1.0 2/3) COLLECTING A) '(0 1.0 2/3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A NIL B) FIXNUM ON '(0 1 2) COLLECTING (LIST A B)) '((0 2) (1 NIL) (2 NIL)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A NIL B) OF-TYPE (FIXNUM NIL FIXNUM) ON '(0 1 2) COLLECTING (LIST A B)) '((0 2) (1 NIL) (2 NIL)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (NIL . TAIL) T ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (NIL . TAIL) OF-TYPE T ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (NIL . TAIL) OF-TYPE LIST ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) T ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE T ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE ((MEMBER X Y Z) (MEMBER 0 1 2)) ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) T := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE T := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE (T) := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) FIXNUM := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE FIXNUM := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE (FIXNUM) := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) FLOAT := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE FLOAT := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR (A) OF-TYPE (FLOAT) := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) T := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE T := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE (T T) := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) FIXNUM := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE FIXNUM := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FIXNUM FIXNUM) := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) FLOAT := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE FLOAT := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FLOAT FLOAT) := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FIXNUM FLOAT) := '(0 1.0) THEN (LIST (+ A 2) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1.0) (2 3.0) (4 5.0)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE (SYMBOL FIXNUM) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE (T T) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (MACROEXPAND '(LOOP WITH A = 0 FOR A DOWNFROM 10 TO 0 DO (PRINT A))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR A FROM 0 UPTO 10 COLLECT T INTO A)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (= 4 (LOOP FOR (ITEM . X) OF-TYPE (T . FIXNUM) IN '((A . 1) (B . 2) (C . 3)) UNLESS (EQ ITEM 'B) SUM X))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR SUBLIST ON '(A B C D) COLLECT SUBLIST) '((A B C D) (B C D) (C D) (D)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR (ITEM) ON '(1 2 3) COLLECT ITEM) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR ITEM = 1 THEN (+ ITEM 10) FOR ITERATION FROM 1 TO 5 COLLECT ITEM) '(1 11 21 31 41))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 3 COLLECTING (LOOP FOR J BELOW 2 COLLECTING (LIST I J))) '(((0 0) (0 1)) ((1 0) (1 1)) ((2 0) (2 1))))) -EQL-OK: NIL -(NOT (ZEROP (LOOP FOR I FROM -10 UPTO 0 MAXIMIZING I))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I FROM -10 UPTO 0 MAXIMIZING I INTO MAX MINIMIZING I INTO MIN FINALLY (RETURN (LIST MAX MIN))) '(0 -10))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR C ACROSS "aBcDeFg" WHEN (AND (UPPER-CASE-P C) C) COLLECTING IT) '(#\B #\D #\F))) -EQL-OK: NIL -(NOT (EQUAL (LOOP NAMED MY-LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM MY-LOOP X)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP NAMED NIL FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM NIL X)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM NIL X)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN X)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) COLLECT (LIST A B (FIRST C) D)) '((10 1 J 100) (9 2 K 99) (8 3 L 98) (7 4 M 97) (6 5 N 96) (5 6 O 95) (4 7 P 94) (3 8 Q 93) (2 9 R 92) (1 10 S 91)))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH E = 0 FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) APPEND (LIST A B (FIRST C) D) INTO VALUES INITIALLY (SETQ E 1000) REPEAT 1 FINALLY (RETURN (CONS E VALUES))) '(1000 10 1 J 100))) -EQL-OK: NIL -(NOT (EQUAL (LOOP WITH E = 0 FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) APPEND (LIST A B (FIRST C) D) INTO VALUES INITIALLY (SETQ E 1000) REPEAT 2 FINALLY (RETURN (CONS E VALUES))) '(1000 10 1 J 100 9 2 K 99))) -EQL-OK: NIL -(NOT (EQUAL (LOOP FOR A FROM 0 UPTO 100 BY 2 REPEAT 1000 WHEN (ZEROP (MOD A 10)) COLLECT A) '(0 10 20 30 40 50 60 70 80 90 100))) -EQL-OK: NIL -(NOT (LET ((IT '0)) (EQUAL (LOOP FOR A IN '(NIL X Y NIL Z) WHEN A COLLECT IT AND COLLECT IT) '(X 0 Y 0 Z 0)))) -EQL-OK: NIL -(NOT (LET ((IT '0)) (EQUAL (LOOP FOR A IN '(X NIL Y NIL Z NIL) IF A COLLECT IT END COLLECT IT) '(X 0 0 Y 0 0 Z 0 0)))) -EQL-OK: NIL -(NOT (SUBSETP '(CAR CDR LIST) (LET (BAG) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF 'COMMON-LISP DO (PUSH SYM BAG)) BAG))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - PRESENT-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - PRESENT-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - EXTERNAL-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not - EXTERNAL-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - EXTERNAL-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not - EXTERNAL-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - PRESENT-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - PRESENT-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - EXTERNAL-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not - EXTERNAL-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not - EXTERNAL-SYMBOLS -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -WARNING: LOOP: After THE a plural loop keyword is required, not - EXTERNAL-SYMBOL -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR SYMBOL BEING THE SYMBOLS OF 'CL FINALLY (RETURN T)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM OF-TYPE SYMBOL BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM T BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM OF-TYPE T BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) -EQL-OK: NIL -(NOT (EQ T (LOOP FOR C IN '(#\A #\S #\Z #\a) ALWAYS (EQ T (LOOP FOR S IN (LOOP FOR S BEING THE EXTERNAL-SYMBOLS OF 'CL WHEN (CHAR= C (CHAR (SYMBOL-NAME S) 0)) COLLECT S) ALWAYS (CHAR= C (CHAR (SYMBOL-NAME S) 0))))))) -EQL-OK: NIL -RUN-TEST: finished "must-loop" (0 errors out of 851 tests) -RUN-TEST: started # -(NOT (LISTP (LIST-ALL-PACKAGES))) -EQL-OK: NIL -(NOT (FIND "COMMON-LISP" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (FIND "COMMON-LISP-USER" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (FIND "KEYWORD" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (EVERY #'PACKAGEP (LIST-ALL-PACKAGES))) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE "COMMON-LISP"))) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE "CL"))) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE "COMMON-LISP-USER"))) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE "CL-USER"))) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE "KEYWORD"))) -EQL-OK: NIL -(NOT (LET ((CL (FIND-PACKAGE "COMMON-LISP"))) (EQ CL (FIND-PACKAGE CL)))) -EQL-OK: NIL -(NOT (EQ (FIND-PACKAGE "CL") (FIND-PACKAGE "COMMON-LISP"))) -EQL-OK: NIL -(NOT (EQ (FIND-PACKAGE 'CL) (FIND-PACKAGE "COMMON-LISP"))) -EQL-OK: NIL -(NOT (EQ (FIND-PACKAGE 'CL) (FIND-PACKAGE 'COMMON-LISP))) -EQL-OK: NIL -(NOT (LET ((NAME "NO-SUCH-PACKAGE")) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME)) (NOT (FIND-PACKAGE NAME)))) -EQL-OK: NIL -(NOT (= (LENGTH (MULTIPLE-VALUE-LIST (FIND-PACKAGE "CL"))) 1)) -EQL-OK: NIL -(NOT (= (LENGTH (MULTIPLE-VALUE-LIST (FIND-PACKAGE "NO-SUCH-PACKAGE"))) 1)) -EQL-OK: NIL -(NOT (PACKAGEP (FIND-PACKAGE (FIND-PACKAGE (FIND-PACKAGE "KEYWORD"))))) -EQL-OK: NIL -(NOT (EVERY (COMPLEMENT #'PACKAGEP) '(NIL A B "CL" "KEYWORD" (A) CL COMMON-LISP-USER))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE #\a)) (DELETE-PACKAGE "a")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE '|a|)) (DELETE-PACKAGE "a")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a")) (DELETE-PACKAGE "a")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE NIL)) (DELETE-PACKAGE "a")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL))) (DELETE-PACKAGE "a")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b"))) (DELETE-PACKAGE "b")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b" "c"))) (DELETE-PACKAGE "c")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(#\b "c"))) (DELETE-PACKAGE "b")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))) (DELETE-PACKAGE "b")))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "b") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "b" :USE '(CL))) (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "b") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL))) (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "d") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b" "c"))) (PACKAGEP (MAKE-PACKAGE "d" :USE '(CL) :NICKNAMES '("c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (PACKAGEP (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL)) (EXPORT (INTERN "CAR" 'TB-BAR-TO-USE) 'TB-BAR-TO-USE) (MAKE-PACKAGE "TB-FOO" :USE '(CL "TB-BAR-TO-USE")))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME "COMMON-LISP") "COMMON-LISP")) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME 'COMMON-LISP) "COMMON-LISP")) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME (FIND-PACKAGE 'COMMON-LISP)) "COMMON-LISP")) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME "CL") "COMMON-LISP")) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME 'CL) "COMMON-LISP")) -EQL-OK: NIL -(NOT (STRING= (PACKAGE-NAME (FIND-PACKAGE 'CL)) "COMMON-LISP")) -EQL-OK: NIL -(NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'STRINGP (MAPCAR #'PACKAGE-NAME DESIGNATOR-LIST)))) -EQL-OK: NIL -(NOT (EVERY #'STRINGP (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (LET* ((NAME "TB-FOO") (PACKAGE (OR (FIND-PACKAGE NAME) (MAKE-PACKAGE NAME :USE NIL)))) (AND (DELETE-PACKAGE NAME) (NOT (FIND-PACKAGE NAME)) (NULL (PACKAGE-NAME PACKAGE))))) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES "COMMON-LISP") :TEST #'STRING=)) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES 'COMMON-LISP) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES (FIND-PACKAGE 'COMMON-LISP)) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES "CL") :TEST #'STRING=)) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES 'CL) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (MEMBER "CL" (PACKAGE-NICKNAMES (FIND-PACKAGE 'CL)) :TEST #'STRING=)) -EQL-OK: NIL -(NOT (LET ((NAME 'TEST-FOO) (NICKNAMES '(TEST-FOO-NICKNAME1 TEST-FOO-NICKNAME2 TEST-FOO-NICKNAME3))) (DOLIST (NAME (CONS NAME NICKNAMES)) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) (EVERY #'STRINGP (PACKAGE-NICKNAMES (MAKE-PACKAGE NAME :NICKNAMES NICKNAMES))))) -EQL-OK: NIL -(NOT (EVERY #'STRINGP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-NICKNAMES PACKAGE))) (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES (MAKE-PACKAGE 'TEST-FOO :NICKNAMES '("TB-FOO" "test-foo"))) '("TB-FOO" "test-foo") :TEST #'STRING=)))) -EQL-OK: NIL -(NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'STRINGP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-NICKNAMES DESIGNATOR))) DESIGNATOR-LIST)))) -EQL-OK: NIL -(NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-SHADOWING-SYMBOLS (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (EVERY #'SYMBOLP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-SHADOWING-SYMBOLS PACKAGE))) (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS 'CL))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS "CL-USER"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS "COMMON-LISP"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS (FIND-PACKAGE 'KEYWORD)))) -EQL-OK: NIL -(NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'SYMBOLP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-SHADOWING-SYMBOLS DESIGNATOR))) DESIGNATOR-LIST)))) -EQL-OK: NIL -(NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-USE-LIST (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-USE-LIST PACKAGE))) (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USE-LIST 'CL))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USE-LIST "CL-USER"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USE-LIST "COMMON-LISP"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USE-LIST (FIND-PACKAGE 'KEYWORD)))) -EQL-OK: NIL -(NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-USE-LIST DESIGNATOR))) DESIGNATOR-LIST)))) -EQL-OK: NIL -(NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-USED-BY-LIST (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-USED-BY-LIST PACKAGE))) (LIST-ALL-PACKAGES)))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USED-BY-LIST 'CL))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USED-BY-LIST "CL-USER"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USED-BY-LIST "COMMON-LISP"))) -EQL-OK: NIL -(NOT (LISTP (PACKAGE-USED-BY-LIST (FIND-PACKAGE 'KEYWORD)))) -EQL-OK: NIL -(NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-USED-BY-LIST DESIGNATOR))) DESIGNATOR-LIST)))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO" "TB-FOO-RENAMED")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (EQ (RENAME-PACKAGE "TB-FOO" "TB-FOO-RENAMED") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-RENAMED") PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL))) (AND (EQ (RENAME-PACKAGE "TB-FOO-0" "TB-FOO-1") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-1" "TB-FOO-2") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-2" "TB-FOO-3") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-3" "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL))) (AND (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-0") "TB-FOO-1") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-1") "TB-FOO-2") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-2") "TB-FOO-3") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-3") "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '(#\a #\b)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (AND (EQ (RENAME-PACKAGE #\a #\b) PACKAGE) (EQ (FIND-PACKAGE #\b) PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) #\b))))) -EQL-OK: NIL -(NOT (LET ((NAME-LIST (LIST #\a 'B "TB-FOO-0" "TB-FOO-1" 'TEST-FOO-2))) (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) NAME-LIST) (LET* ((OLD (POP NAME-LIST)) (PACKAGE (MAKE-PACKAGE OLD :USE NIL))) (DOLIST (NEW NAME-LIST T) (UNLESS (EQ (RENAME-PACKAGE OLD NEW) PACKAGE) (RETURN NIL)) (SETQ OLD NEW))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO" "TB-FOO-RENAMED" "TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL :NICKNAMES '("TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1")))) (AND (EQ (RENAME-PACKAGE "TB-FOO" "TB-FOO-RENAMED") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-RENAMED") PACKAGE) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES "TB-FOO-RENAMED") '("TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1") :TEST #'STRING=)))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4" "TB-FOO-5")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3" '("TB-FOO-4" "TB-FOO-5")) PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-3") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-5") PACKAGE) (NOT (EVERY #'FIND-PACKAGE '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2"))))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1")))) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-1" '("TB-FOO-2")) PACKAGE)))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4" "TB-FOO-5")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-1" '("TB-FOO-2")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-2" '("TB-FOO-3")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3" '("TB-FOO-4")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-4" '("TB-FOO-5")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-5" '("TB-FOO-0")) PACKAGE) (EQ (FIND-PACKAGE 'TEST-FOO-5) (FIND-PACKAGE 'TEST-FOO-0)))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-2" '("TB-FOO-3" "TB-FOO-1")) PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) "TB-FOO-2") (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES PACKAGE) '("TB-FOO-3" "TB-FOO-1") :TEST #'STRING=)))))) -EQL-OK: NIL -(NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3") PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) "TB-FOO-3") (NULL (PACKAGE-NICKNAMES PACKAGE)))))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "CL")) '(CAR :EXTERNAL))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" "CL")) '(CDR :EXTERNAL))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'CL)) '(CDR :EXTERNAL))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" (FIND-PACKAGE 'CL))) '(CDR :EXTERNAL))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL" "CL")) '(NIL :EXTERNAL))) -EQL-OK: NIL -(NOT (LET ((*PACKAGE* (FIND-PACKAGE 'CL))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" #\A)) '(NIL NIL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" "TB-FOO")) '(NIL NIL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (MULTIPLE-VALUE-BIND (SYMBOL0 STATUS0) (INTERN "A" "TB-FOO") (MULTIPLE-VALUE-BIND (SYMBOL1 STATUS1) (FIND-SYMBOL "A" "TB-FOO") (AND (EQ SYMBOL0 SYMBOL1) (NULL STATUS0) (EQ STATUS1 :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE '("CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "TB-FOO")) '(CAR :INHERITED)))) -EQL-OK: NIL -(NOT (DO-EXTERNAL-SYMBOLS (SYMBOL "CL" T) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL) "COMMON-LISP-USER") (UNLESS (AND (EQ SYMBOL SYMBOL-FOUND) (EQ STATUS :INHERITED)) (ERROR "Symbol ~S is ~S" SYMBOL-FOUND STATUS))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '("COMMON-LISP")))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "APPEND")) '(APPEND :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FIND")) '(FIND :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)))))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL" 'CL)) '(NIL :EXTERNAL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE (LIST 'CL))) (SYMBOL (INTERN "car" *PACKAGE*))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "car")) (LIST SYMBOL :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST 'CAR :INHERITED)))))) -EQL-OK: NIL -(NOT (MEMBER 'CAR (FIND-ALL-SYMBOLS 'CAR))) -EQL-OK: NIL -(NOT (MEMBER 'CDR (FIND-ALL-SYMBOLS "CDR"))) -EQL-OK: NIL -(NOT (EVERY #'SYMBOLP (FIND-ALL-SYMBOLS "LOOP"))) -EQL-OK: NIL -(NOT (EVERY #'(LAMBDA (NAME) (STRING= NAME "FIND")) (MAPCAR #'SYMBOL-NAME (FIND-ALL-SYMBOLS "FIND")))) -EQL-OK: NIL -(NOT (DOLIST (NAME (LIST "CAR" "CDR" #\a #\A 'COMMON-LISP 'JOIN "" "XXX" "aA" "LONGLONGLONGLONGLONGLONGLONGLONGLONGLONG" 'LONG-LONG-LONG-LONG-LONG-LONG-NAME) T) (UNLESS (EVERY #'(LAMBDA (SYMBOL-NAME) (STRING= SYMBOL-NAME NAME)) (MAPCAR #'SYMBOL-NAME (FIND-ALL-SYMBOLS NAME))) (RETURN NIL)))) -EQL-OK: NIL -(NOT (SYMBOLP (INTERN "SYMBOL"))) -EQL-OK: NIL -(NOT (SYMBOLP (INTERN "long-long-name-in-lower-case"))) -EQL-OK: NIL -(NOT (EQUAL (MULTIPLE-VALUE-LIST (INTERN "NIL" 'CL)) '(NIL :EXTERNAL))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (BOO STATUS) (INTERN "BOO") (AND (SYMBOLP BOO) (MEMBER STATUS '(NIL :INTERNAL :EXTERNAL :INHERITED)) (STRING= (SYMBOL-NAME BOO) "BOO")))) -EQL-OK: NIL -(NOT (LET ((*PACKAGE* (FIND-PACKAGE "CL"))) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "CAR")) '(CAR :EXTERNAL)))) -EQL-OK: NIL -(NOT (LET ((*PACKAGE* (FIND-PACKAGE "KEYWORD"))) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "TEST")) '(:TEST :EXTERNAL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (MULTIPLE-VALUE-LIST (INTERN "BOO" 'TB-FOO)) (LIST (FIND-SYMBOL "BOO" 'TB-FOO) NIL) (EQ (SYMBOL-PACKAGE (FIND-SYMBOL "BOO" 'TB-FOO)) (FIND-PACKAGE 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQ (INTERN "CAR") 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") NIL)) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") :INTERNAL)) (EXPORT (FIND-SYMBOL "ZZZ")) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") :EXTERNAL)))))) -EQL-OK: NIL -(NOT (EQ (EXPORT NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BUZ) (AND (SETQ BUZ (INTERN "BUZ")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)) (EQ (EXPORT BUZ) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT '(CAR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :INHERITED)) (EQ (EXPORT '(CAR CDR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL))) (BUZ (MAKE-SYMBOL "BUZ"))) (IMPORT BUZ) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)) (EQ (EXPORT (LIST 'CAR BUZ 'CDR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR (FIND-PACKAGE 'A)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (UNUSE-PACKAGE 'CL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (EXPORT BUZ 'TB-BAR-TO-USE) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :INHERITED)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EXPORT 'CAR "TB-FOO")) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (INTERN "BUZ" 'TB-FOO) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ (FIND-PACKAGE "A")) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'TB-FOO)) 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '("A" "BC" "DEF" "GHIJ")) (SYMBOLS (MAPCAR #'INTERN NAMES))) (AND (EXPORT SYMBOLS) (EQ (UNEXPORT SYMBOLS) T) (EVERY #'(LAMBDA (STATUS) (EQ STATUS :INTERNAL)) (MAPCAR #'(LAMBDA (NAME) (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME)))) NAMES)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IMPORT '(NIL)) (EXPORT '(NIL)) (AND (EQ (UNEXPORT 'NIL) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL")) '(NIL :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IMPORT '(NIL)) (EXPORT '(NIL)) (AND (EQ (UNEXPORT '(NIL)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL")) '(NIL :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQ (UNEXPORT (LIST BAZ) *PACKAGE*) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*)) (WOO (INTERN "WOO" *PACKAGE*))) (EXPORT WOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :EXTERNAL)) (EQ (UNEXPORT (LIST BAZ WOO) *PACKAGE*) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :INTERNAL)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (UNEXPORT 'CAR))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*)) (WOO (INTERN "WOO" *PACKAGE*))) (EXPORT WOO) (UNEXPORT (LIST BAZ 'NIL WOO) *PACKAGE*))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQ (SHADOW 'NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW "A" 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (EQ (SHADOW 'NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW #\A 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (EQ (SHADOW 'NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW 'A 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '(A) 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '("A") 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '(#\A) 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" #\A) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" "A") T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" 'A) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" (FIND-PACKAGE 'A)) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '(A #\B "C" "BUZ"))) (AND (EQ (SHADOW NAMES) T) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL (STRING NAME)))) :INTERNAL)) NAMES) (NULL (SET-DIFFERENCE (MAPCAR #'FIND-SYMBOL (MAPCAR #'STRING NAMES)) (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL))) (NAMES '(A #\B "C" "BUZ" "CAR")) A B C) (SETQ A (INTERN "A")) (EXPORT (SETQ B (INTERN "B"))) (SHADOWING-IMPORT (SETQ C (INTERN "C"))) (AND (EQ (SHADOW NAMES) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A")) (LIST A :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "B")) (LIST B :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "C")) (LIST C :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ"))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR"))) :INTERNAL) (NOT (EQ (CAR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR"))) 'CAR)) (NULL (SET-DIFFERENCE (MAPCAR #'FIND-SYMBOL (MAPCAR #'STRING NAMES)) (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))))))) -EQL-OK: NIL -(NOT (EQ (SHADOWING-IMPORT 'NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (SHADOWING-IMPORT 'NIL (MAKE-PACKAGE "TB-FOO" :USE NIL)) (LET ((LIST NIL)) (NULL (DO-SYMBOLS (SYMBOL "TB-FOO" LIST) (PUSH SYMBOL LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (NOT (FIND-SYMBOL "CDR")) (NOT (FIND-SYMBOL "LIST")) (EQ (SHADOWING-IMPORT '(CAR CDR LIST)) T) (EQ (FIND-SYMBOL "CAR") 'CAR) (EQ (FIND-SYMBOL "CDR") 'CDR) (EQ (FIND-SYMBOL "LIST") 'LIST))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE (LIST 'CL))) (NAMES '("CAR" "CDR" "LIST" "APPEND")) (SYMBOLS (MAPCAR #'MAKE-SYMBOL NAMES))) (AND (EQ (SHADOWING-IMPORT SYMBOLS) T) (EVERY #'EQ SYMBOLS (MAPCAR #'FIND-SYMBOL NAMES)) (EVERY #'(LAMBDA (SYMBOL) (MEMBER SYMBOL (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))) SYMBOLS))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL (FIND-PACKAGE 'A)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :INTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (SHADOW BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :INTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (EXPORT BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :EXTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (EXPORT BUZ0 'TB-FOO) (SHADOW BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :EXTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) -EQL-OK: NIL -(NOT (EQ (IMPORT 'NIL) T)) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((LIST NIL)) (AND (EQ (IMPORT 'NIL "TB-FOO") T) (NULL (DO-SYMBOLS (SYMBOL "TB-FOO" LIST) (PUSH SYMBOL LIST))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR (FIND-PACKAGE "A")) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT 'CAR 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT (LIST 'CAR 'CDR 'LIST :TEST) 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO)) '(CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO)) '(:TEST :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT (LIST 'CAR 'CDR 'LIST :TEST)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO)) '(CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO)) '(:TEST :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET (BUZ) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" "TB-FOO")) "TB-FOO") (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :EXTERNAL)) (EQ (IMPORT BUZ "TB-FOO") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :EXTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET (BUZ) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (SETQ BUZ (INTERN "BUZ" "TB-FOO")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :INTERNAL)) (EQ (IMPORT BUZ "TB-FOO") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (IMPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ (MAKE-SYMBOL "BUZ"))) (AND (NULL (SYMBOL-PACKAGE BUZ)) (EQ (IMPORT BUZ 'TB-FOO) T) (EQ (SYMBOL-PACKAGE BUZ) (FIND-PACKAGE 'TB-FOO)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (IMPORT (MAKE-SYMBOL "CAR")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (INTERN "BUZ") (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (EXPORT (INTERN "BUZ")) (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (SHADOWING-IMPORT (MAKE-SYMBOL "BUZ")) (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (NOT (UNINTERN 'CAR "TB-FOO")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "TB-FOO") "TB-FOO") (NOT (FIND-SYMBOL "BUZ" "TB-FOO"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (NOT (UNINTERN 'CAR))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (UNINTERN (INTERN "BUZ")) (NOT (FIND-SYMBOL "BUZ")))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") #\A) (NOT (FIND-SYMBOL "BUZ" "A"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") "A") (NOT (FIND-SYMBOL "BUZ" "A"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") 'A) (NOT (FIND-SYMBOL "BUZ" "A"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") (FIND-PACKAGE 'A)) (NOT (FIND-SYMBOL "BUZ" "A"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (NOT (UNINTERN 'CAR)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (IMPORT 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)) (UNINTERN 'CAR) (NOT (FIND-SYMBOL "CAR")))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (IMPORT 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)) (UNINTERN 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BUZ (MAKE-SYMBOL "BUZ"))) (AND (NULL (SYMBOL-PACKAGE BUZ)) (IMPORT BUZ) (SHADOW BUZ) (EQ (SYMBOL-PACKAGE BUZ) *PACKAGE*) (MEMBER BUZ (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*)) (UNINTERN BUZ) (NOT (FIND-SYMBOL "BUZ")) (NOT (MEMBER BUZ (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))) (NULL (SYMBOL-PACKAGE BUZ)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) SYMBOL) (AND (SETQ SYMBOL (INTERN "CAR")) (SHADOW "CAR") (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (INTERN "CAR" "TB-BAR-TO-USE") "TB-BAR-TO-USE") (USE-PACKAGE (LIST "TB-BAR-TO-USE" "CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST SYMBOL :INTERNAL)) (UNINTERN SYMBOL)))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) SYMBOL) (AND (SETQ SYMBOL (INTERN "CAR")) (SHADOW "CAR") (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (IMPORT 'CAR "TB-BAR-TO-USE") (EXPORT 'CAR "TB-BAR-TO-USE") (USE-PACKAGE (LIST "TB-BAR-TO-USE" "CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST SYMBOL :INTERNAL)) (UNINTERN SYMBOL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE 'CL) T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE "COMMON-LISP") T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE (FIND-PACKAGE "COMMON-LISP")) T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE '(CL)) T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE '("COMMON-LISP")) T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP"))) T) (FIND-SYMBOL "CAR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) PACKAGE) T) (FIND-SYMBOL "CAR" PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) "TB-FOO") T) (FIND-SYMBOL "CAR" PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) 'TB-FOO) T) (FIND-SYMBOL "CAR" PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) (FIND-PACKAGE 'TB-FOO)) T) (FIND-SYMBOL "CAR" PACKAGE))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (USE-PACKAGE 'CL) (MEMBER (FIND-PACKAGE 'CL) (PACKAGE-USE-LIST *PACKAGE*)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BOO WOO BUZ) (AND (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (LIST (SETQ BOO (INTERN "BOO" 'TB-BAR-TO-USE))) 'TB-BAR-TO-USE) (SETQ WOO (INTERN "WOO")) (EXPORT (LIST (SETQ BUZ (INTERN "BUZ")))) (USE-PACKAGE (LIST 'TB-BAR-TO-USE 'CL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BOO")) (LIST BOO :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST 'CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "LIST")) (LIST 'LIST :INHERITED)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (INTERN "CAR" 'TB-FOO) (USE-PACKAGE 'CL 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EXPORT (INTERN "CAR" 'TB-FOO) 'TB-FOO) (USE-PACKAGE 'CL 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-FOO" :USE '(CL)) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (INTERN "CAR" 'TB-BAR-TO-USE) 'TB-BAR-TO-USE) (USE-PACKAGE 'TB-BAR-TO-USE 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-FOO-TO-USE") "TB-FOO-TO-USE")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-BAR-TO-USE") "TB-BAR-TO-USE")) (WHEN (FIND-PACKAGE "TB-FOO-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-FOO-TO-USE")) (DELETE-PACKAGE "TB-FOO-TO-USE")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (MAKE-PACKAGE "TB-FOO-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE '("TB-FOO-TO-USE")) (USE-PACKAGE "TB-BAR-TO-USE" "TB-FOO-TO-USE") (EXPORT (INTERN "FOO" "TB-FOO-TO-USE") "TB-FOO-TO-USE") (EXPORT (INTERN "BAR" "TB-BAR-TO-USE") "TB-BAR-TO-USE") (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FOO" "TB-FOO-TO-USE"))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAR" "TB-FOO-TO-USE"))) :INHERITED) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FOO" "TB-BAR-TO-USE"))) :INHERITED) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAR" "TB-BAR-TO-USE"))) :EXTERNAL) (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-FOO-TO-USE") "TB-FOO-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-BAR-TO-USE") "TB-BAR-TO-USE")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE "a") (NOT (FIND-PACKAGE "a"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE #\a) (NOT (FIND-PACKAGE "a"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE '|a|) (NOT (FIND-PACKAGE "a"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE (FIND-PACKAGE '|a|)) (NOT (FIND-PACKAGE "a"))))) -EQL-OK: NIL -(NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("a" "b" "c" "d" "e")) (AND (MAKE-PACKAGE "a" :NICKNAMES '("b" "c" "d" "e") :USE NIL) (DELETE-PACKAGE "a") (NOT (FIND-PACKAGE "a")) (NOT (FIND-PACKAGE "b")) (NOT (FIND-PACKAGE "c")) (NOT (FIND-PACKAGE "d")) (NOT (FIND-PACKAGE "e"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NOT (FIND-PACKAGE "TB-FOO")) (PACKAGEP PACKAGE) (NULL (PACKAGE-NAME PACKAGE)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NOT (MEMBER PACKAGE (LIST-ALL-PACKAGES))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NULL (DELETE-PACKAGE PACKAGE)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((CAR-HOME-PACKAGE (SYMBOL-PACKAGE 'CAR))) (AND (MAKE-PACKAGE "TB-FOO" :USE NIL) (IMPORT 'CAR "TB-FOO") (DELETE-PACKAGE 'TB-FOO) (EQ 'CAR (FIND-SYMBOL "CAR" 'CL)) (EQ (SYMBOL-PACKAGE 'CAR) CAR-HOME-PACKAGE) (EQ (INTERN "CAR" 'CL) 'CAR))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE"))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IN-PACKAGE CL-USER) (EQ *PACKAGE* (FIND-PACKAGE 'CL-USER))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IN-PACKAGE "CL-USER") (EQ *PACKAGE* (FIND-PACKAGE 'CL-USER))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE "A") (EQ *PACKAGE* (FIND-PACKAGE 'A))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE #\A) (EQ *PACKAGE* (FIND-PACKAGE 'A))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE A) (EQ *PACKAGE* (FIND-PACKAGE 'A))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (HANDLER-CASE (PROGN (IN-PACKAGE "A")) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE #\A)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE A)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE "A")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO")) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES))) (NULL (PACKAGE-NICKNAMES 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES) (:SHADOW))) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES) (:SHADOW) (:SHADOWING-IMPORT-FROM COMMON-LISP))) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("TB-FOO" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2" "TB-FOO-NICKNAME-3")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES TB-FOO-NICKNAME-1))) (EQUAL (PACKAGE-NICKNAMES 'TB-FOO) '("TB-FOO-NICKNAME-1"))))) -EQL-OK: NIL -(NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("A" "B" "C" "D")) (AND (PACKAGEP (DEFPACKAGE "A" (:NICKNAMES #\B C "D"))) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES 'A) '("B" "C" "D") :TEST #'STRING=))))) -EQL-OK: NIL -(NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("A" "B" "C" "D")) (AND (PACKAGEP (DEFPACKAGE "A" (:NICKNAMES) (:NICKNAMES #\B) (:NICKNAMES C "D"))) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES 'A) '("B" "C" "D") :TEST #'STRING=))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE))) (NULL (PACKAGE-USE-LIST 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL))) (EQUAL (PACKAGE-USE-LIST 'TB-FOO) (LIST (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL TB-BAR-TO-USE))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE TB-BAR-TO-USE))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE "TB-BAR-TO-USE"))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE "B"))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE #\B))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE ,(FIND-PACKAGE #\B))))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW))) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW "A"))) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW A #\b "c" "D"))) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (MAPCAR #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("A" "b" "c" "D"))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW A) (:SHADOW) (:SHADOW #\b "c" "D")))) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (MAPCAR #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("A" "b" "c" "D")))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM CL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP"))) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) '(CAR CDR LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM "COMMON-LISP") (:SHADOWING-IMPORT-FROM "COMMON-LISP" LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) '(CAR CDR LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ BAZ))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW "BOO") (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ" "BOO")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ BAZ (FIND-SYMBOL "BOO" 'TB-FOO)))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM ,(FIND-PACKAGE 'CL) "CAR" "CDR")))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:IMPORT-FROM ,(FIND-PACKAGE 'CL) "CAR" "CDR")))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM CL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM CL "CAR" "CDR"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM "COMMON-LISP") (:IMPORT-FROM "COMMON-LISP" LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM TB-BAR-TO-USE "BUZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR")) (EQ (FIND-SYMBOL "BUZ" 'TB-FOO) BUZ))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ")) (EQ (FIND-SYMBOL "BUZ" 'TB-FOO) BUZ) (EQ (FIND-SYMBOL "BAZ" 'TB-FOO) BAZ))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT) (:EXPORT))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A"))) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :EXTERNAL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A") (:EXPORT "B") (:EXPORT "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:USE CL))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:SHADOWING-IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR" "CDR" "BUZ") (:USE TB-BAR-TO-USE) (:IMPORT-FROM CL "CDR") (:SHADOWING-IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR" "CDR" "BUZ")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR) (EQ (FIND-SYMBOL "CDR" 'TB-FOO) 'CDR) (EQ (FIND-SYMBOL "BUZ" 'TB-BAR-TO-USE) BUZ))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN) (:INTERN))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A"))) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A") (:INTERN "B") (:INTERN "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C" "CAR") (:USE CL))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INHERITED))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 10)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 0)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 1000)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 10) (:SHADOW "SHADOW1" "SHADOW2") (:SHADOWING-IMPORT-FROM CL "CAR" "CDR") (:USE TB-BAR-TO-USE) (:IMPORT-FROM KEYWORD "TEST") (:INTERN "S0" "S1") (:NICKNAMES "TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2") (:EXPORT "SHADOW1" "CAR"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO-NICKNAME-0)) (LIST BUZ :INHERITED)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW1" 'TB-FOO-NICKNAME-2))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW2" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO-NICKNAME-2)) (LIST 'CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO-NICKNAME-2)) (LIST 'CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO-NICKNAME-2)) (LIST :TEST :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S0" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S1" 'TB-FOO-NICKNAME-2))) :INTERNAL))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "SHADOW1") (:SIZE 10) (:NICKNAMES "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2") (:SHADOW "SHADOW1") (:SHADOWING-IMPORT-FROM CL "CAR") (:INTERN "S1") (:SHADOWING-IMPORT-FROM CL) (:USE TB-BAR-TO-USE) (:NICKNAMES "TB-FOO-NICKNAME-0") (:SHADOWING-IMPORT-FROM CL "CDR") (:SHADOW "SHADOW2") (:IMPORT-FROM KEYWORD "TEST") (:INTERN "S0") (:NICKNAMES) (:EXPORT "CAR"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO-NICKNAME-0)) (LIST BUZ :INHERITED)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW1" 'TB-FOO-NICKNAME-2))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW2" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO-NICKNAME-2)) (LIST 'CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO-NICKNAME-2)) (LIST 'CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO-NICKNAME-2)) (LIST :TEST :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S0" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S1" 'TB-FOO-NICKNAME-2))) :INTERNAL))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET "CL" :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET (FIND-PACKAGE 'CL) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET '(CL) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET (LIST "CL") :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET (LIST (FIND-PACKAGE "COMMON-LISP")) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL :INTERNAL :INHERITED) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (MEMBER STATUS '(:EXTERNAL :INTERNAL :INHERITED)) (EQ PKG (FIND-PACKAGE 'CL)))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET (LIST 'CL) :INTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (OR (NOT MORE) (AND (SYMBOLP SYMBOL) (EQ STATUS :INTERNAL) (EQ PKG (FIND-PACKAGE 'CL))))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET (LIST 'CL) :INHERITED) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (OR (NOT MORE) (AND (SYMBOLP SYMBOL) (EQ STATUS :INHERITED) (EQ PKG (FIND-PACKAGE 'CL))))))) -EQL-OK: NIL -(NOT (PROGN (WITH-PACKAGE-ITERATOR (GET "CL" :EXTERNAL) (DECLARE (OPTIMIZE (SAFETY 3))) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (AND (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL LIST))) (NULL LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE #\a) (DELETE-PACKAGE #\a)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET #\a :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE #\a) (DELETE-PACKAGE #\a)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET (LIST #\a) :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL)) (PACKAGE-1 (MAKE-PACKAGE "TB-FOO" :USE (LIST PACKAGE))) (SYMBOL-LIST NIL)) (EXPORT (INTERN "S" PACKAGE) PACKAGE) (SHADOW '("S") PACKAGE-1) (WITH-PACKAGE-ITERATOR (GET PACKAGE-1 :INTERNAL :EXTERNAL :INHERITED) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL SYMBOL-LIST)))) (NOT (MEMBER (INTERN "S" PACKAGE) SYMBOL-LIST))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (SYMBOL-LIST NIL)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL :EXTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL SYMBOL-LIST)))) (NULL SYMBOL-LIST)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (SYMBOL-LIST '(A B C D CAR CDR I LISP)) (LIST NIL)) (DOLIST (SYMBOL SYMBOL-LIST) (SHADOWING-IMPORT SYMBOL PACKAGE)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL LIST)))) (NULL (SET-DIFFERENCE SYMBOL-LIST LIST))))) -EQL-OK: NIL -(NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PACKAGE) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :EXTERNAL) (EQ PACKAGE (FIND-PACKAGE 'CL)) (EQ SYMBOL (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'CL-USER))) (RETURN NIL)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE 'CL))) (SHADOW '("CAR") PACKAGE) (WITH-PACKAGE-ITERATOR (GET PACKAGE :EXTERNAL :INHERITED :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE PKG STATUS)) (UNLESS MORE (RETURN T)) (WHEN (EQ SYMBOL 'CAR) (RETURN NIL)))))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '("BLACK" "RED" "WHITE" "YELLOW" "VIOLET" "BROWN" "BLUE")) LIST) (MAPC #'INTERN NAMES) (EXPORT (MAPCAR #'FIND-SYMBOL (MAPCAN #'(LAMBDA (NAME) (WHEN (= (LENGTH NAME) 5) (LIST NAME))) NAMES))) (WITH-PACKAGE-ITERATOR (GET *PACKAGE* :EXTERNAL :INHERITED :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE PKG)) (UNLESS MORE (RETURN)) (PUSH (SYMBOL-NAME SYMBOL) (GETF LIST STATUS))))) (AND (NULL (SET-DIFFERENCE (GETF LIST :EXTERNAL) '("BLACK" "WHITE" "BROWN") :TEST #'STRING=)) (NULL (SET-DIFFERENCE (GETF LIST :INTERNAL) '("RED" "YELLOW" "VIOLET" "BLUE") :TEST #'STRING=)) (NULL (GETF LIST :INHERITED)))))) -EQL-OK: NIL -(NOT (FLET ((TEST-PACKAGE-ITERATOR (PACKAGE) (UNLESS (PACKAGEP PACKAGE) (SETQ PACKAGE (FIND-PACKAGE PACKAGE))) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL)) (DO-SYMBOLS (X PACKAGE) (MULTIPLE-VALUE-BIND (SYMBOL ACCESSIBILITY) (FIND-SYMBOL (SYMBOL-NAME X) PACKAGE) (PUSH (LIST SYMBOL ACCESSIBILITY) ALL-ENTRIES))) (WITH-PACKAGE-ITERATOR (GENERATOR-FN PACKAGE :INTERNAL :EXTERNAL :INHERITED) (LOOP (MULTIPLE-VALUE-BIND (MORE? SYMBOL ACCESSIBILITY PKG) (GENERATOR-FN) (DECLARE (IGNORE PKG)) (UNLESS MORE? (RETURN)) (LET ((L (MULTIPLE-VALUE-LIST (FIND-SYMBOL (SYMBOL-NAME SYMBOL) PACKAGE)))) (UNLESS (EQUAL L (LIST SYMBOL ACCESSIBILITY)) (ERROR "Symbol ~S not found as ~S in package ~A [~S]" SYMBOL ACCESSIBILITY (PACKAGE-NAME PACKAGE) L)) (PUSH L GENERATED-ENTRIES))))) (UNLESS (AND (SUBSETP ALL-ENTRIES GENERATED-ENTRIES :TEST #'EQUAL) (SUBSETP GENERATED-ENTRIES ALL-ENTRIES :TEST #'EQUAL)) (ERROR "Generated entries and Do-Symbols entries don't correspond")) T))) (EVERY #'TEST-PACKAGE-ITERATOR '("CL" "CL-USER" "KEYWORD")))) -EQL-OK: NIL -(NOT (NULL (DO-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) -EQL-OK: NIL -(NOT (NULL (DO-SYMBOLS (SYMBOL *PACKAGE*) (DECLARE (IGNORE SYMBOL))))) -EQL-OK: NIL -(NOT (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) -EQL-OK: NIL -(NOT (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE*) (DECLARE (IGNORE SYMBOL))))) -EQL-OK: NIL -(NOT (NULL (DO-ALL-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) -EQL-OK: NIL -(NOT (DO-SYMBOLS (SYMBOL *PACKAGE* (NULL SYMBOL)))) -EQL-OK: NIL -(NOT (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* (NULL SYMBOL)))) -EQL-OK: NIL -(NOT (DO-ALL-SYMBOLS (SYMBOL (NULL SYMBOL)))) -EQL-OK: NIL -(NOT (DO-SYMBOLS (SYMBOL 'CL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) -EQL-OK: NIL -(NOT (DO-EXTERNAL-SYMBOLS (SYMBOL 'CL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) -EQL-OK: NIL -(NOT (DO-ALL-SYMBOLS (SYMBOL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) -EQL-OK: NIL -(NOT (DO-SYMBOLS (SYMBOL 'CL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) -EQL-OK: NIL -(NOT (DO-EXTERNAL-SYMBOLS (SYMBOL 'CL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) -EQL-OK: NIL -(NOT (DO-ALL-SYMBOLS (SYMBOL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) -EQL-OK: NIL -(NOT (LET ((I 0) (LIST NIL) (*PACKAGE* (FIND-PACKAGE "COMMON-LISP-USER"))) (DO-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST) (INCF I) (WHEN (= I 10) (RETURN))) (EVERY #'SYMBOLP LIST))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (EXPORT (MAPCAR #'INTERN NAME-LIST)) (NULL (SET-DIFFERENCE (DO-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)) (MAPCAR #'FIND-SYMBOL NAME-LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-SYMBOLS (SYMBOL *PACKAGE*) (PUSH SYMBOL LIST)) (NULL LIST)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (NULL LIST)))) -EQL-OK: NIL -(NOT (DO-SYMBOLS (SYMBOL 'CL T) (UNLESS (EQ SYMBOL (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'CL)) (RETURN NIL)))) -EQL-OK: NIL -(NOT (DO-SYMBOLS (SYMBOL 'KEYWORD T) (UNLESS (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'KEYWORD)) (LIST SYMBOL :EXTERNAL)) (RETURN NIL)))) -EQL-OK: NIL -(NOT (LET (LIST1 LIST2) (AND (DO-EXTERNAL-SYMBOLS (SYMBOL 'KEYWORD T) (PUSH SYMBOL LIST1)) (DO-SYMBOLS (SYMBOL 'KEYWORD T) (PUSH SYMBOL LIST2)) (NULL (SET-DIFFERENCE LIST1 LIST2))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE*) (PUSH SYMBOL LIST)) (NULL LIST)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-EXTERNAL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (NULL LIST)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (EXPORT (MAPCAR #'INTERN NAME-LIST)) (NULL (SET-DIFFERENCE (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)) (MAPCAR #'FIND-SYMBOL NAME-LIST)))))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (MAPCAR #'INTERN NAME-LIST) (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)))))) -EQL-OK: NIL -(NOT (LET ((I 0) (LIST NIL)) (DO-ALL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST) (INCF I) (WHEN (= I 10) (RETURN))) (EVERY #'SYMBOLP LIST))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (DO-ALL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (WITH-PACKAGE-ITERATOR (GET (LIST-ALL-PACKAGES) :EXTERNAL :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PACKAGE) (GET) (DECLARE (IGNORE STATUS PACKAGE)) (UNLESS MORE (RETURN T)) (UNLESS (MEMBER SYMBOL LIST) (RETURN NIL))))))) -EQL-OK: NIL -RUN-TEST: finished "must-package" (0 errors out of 334 tests) -RUN-TEST: started # -(NOT (EQL *PRINT-BASE* 10)) -EQL-OK: NIL -(NOT (NULL *PRINT-RADIX*)) -EQL-OK: NIL -(NOT (EQ *PRINT-CASE* :UPCASE)) -EQL-OK: NIL -(NOT *PRINT-GENSYM*) -EQL-OK: NIL -(NOT (NULL *PRINT-LEVEL*)) -EQL-OK: NIL -(NOT (NULL *PRINT-LENGTH*)) -EQL-OK: NIL -(NOT *PRINT-ESCAPE*) -EQL-OK: NIL -(NOT (NULL *PRINT-READABLY*)) -EQL-OK: NIL -(NOT *PRINT-PPRINT-DISPATCH*) -EQL-OK: NIL -(NOT (NULL *PRINT-LINES*)) -EQL-OK: NIL -(NOT (NULL *PRINT-RIGHT-MARGIN*)) -EQL-OK: NIL -(NOT (STRING= "abc" (WRITE-TO-STRING "abc" :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\"abc\"" (WRITE-TO-STRING "abc" :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"abc\"" (WRITE-TO-STRING "abc" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "ABC" (WRITE-TO-STRING "ABC" :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\"ABC\"" (WRITE-TO-STRING "ABC" :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"ABC\"" (WRITE-TO-STRING "ABC" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"A\\\\B\\\"C\"" (WRITE-TO-STRING "A\\B\"C" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"A\\\\B\\\"C\"" (WRITE-TO-STRING "A\\B\"C"))) -EQL-OK: NIL -(NOT (STRING= "A\\B\"C" (WRITE-TO-STRING "A\\B\"C" :ESCAPE NIL))) -EQL-OK: NIL -(NOT (LET ((STR "a\\b\"")) (AND (= 4 (LENGTH STR)) (STRING= STR (READ-FROM-STRING (WRITE-TO-STRING STR)))))) -EQL-OK: NIL -(NOT (LET ((STR "a\\b\"")) (AND (= 4 (LENGTH STR)) (STRING= STR (READ-FROM-STRING (WRITE-TO-STRING STR :ESCAPE NIL :READABLY T)))))) -EQL-OK: NIL -(NOT (STRING= "\"\\\"\"" (WRITE-TO-STRING "\""))) -EQL-OK: NIL -(NOT (STRING= "\"\\\"\"" (WRITE-TO-STRING "\"" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"" (READ-FROM-STRING (WRITE-TO-STRING "\"")))) -EQL-OK: NIL -(NOT (STRING= "\"" (READ-FROM-STRING (WRITE-TO-STRING "\"" :ESCAPE NIL :READABLY T)))) -EQL-OK: NIL -(NOT (STRING= "\"\"" (WRITE-TO-STRING ""))) -EQL-OK: NIL -(NOT (STRING= "\"\"" (WRITE-TO-STRING "" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "" (WRITE-TO-STRING "" :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\" \"" (WRITE-TO-STRING " "))) -EQL-OK: NIL -(NOT (STRING= "\" \"" (WRITE-TO-STRING " " :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= " " (WRITE-TO-STRING " " :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\" \"" (WRITE-TO-STRING " "))) -EQL-OK: NIL -(NOT (STRING= "\" \"" (WRITE-TO-STRING " " :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= " " (WRITE-TO-STRING " " :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\" -\"" (WRITE-TO-STRING " -" :ESCAPE NIL :READABLY T))) -EQL-OK: NIL -(NOT (STRING= " -" (WRITE-TO-STRING " -" :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\"\\\"\\\"\\\"\\\"\\\"\\\"\"" (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"\"\"\"\"\"" (READ-FROM-STRING (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY T)))) -EQL-OK: NIL -(NOT (STRING= "\"\"\"\"\"\"" (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY NIL :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "\" \"" (WRITE-TO-STRING " " :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"\\\"Hi\\\" \\\"Oh, hi!\\\"\"" (WRITE-TO-STRING "\"Hi\" \"Oh, hi!\"" :READABLY T))) -EQL-OK: NIL -(NOT (STRING= "\"Hi\" \"Oh, hi!\"" (WRITE-TO-STRING "\"Hi\" \"Oh, hi!\"" :PRETTY NIL :READABLY NIL :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "abc" (WRITE-TO-STRING "abc" :ARRAY NIL :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= "abc" (WRITE-TO-STRING (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij" :FILL-POINTER 3) :ESCAPE NIL))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 0) "0")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 0) "0")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 9) "9")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING -10) "-10")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "1234567890987654321234567890987654321")) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 0) "0."))) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -52) "-52."))) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "-1234567890987654321234567890987654321."))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 0) "0"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 10) "1010"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "-111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 11) "#b1011"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -15) "#b-1111"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "#b111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 10) "12"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -21) "-25"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 11) "#o13"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -13) "#o-15"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "7334234540230567516425620517326613016261"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "#o-7334234540230567516425620517326613016261"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 20) "14"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING -22) "-16"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -30)) "-1E"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 21) "#x15"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -23) "#x-17"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 1234567890987654321234567890987654321)) "EDC4E5813177A7457214F6B62C1CB1"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -1234567890987654321234567890987654321)) "#X-EDC4E5813177A7457214F6B62C1CB1"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24)) (STRING= (WRITE-TO-STRING 9) "9"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 17)) "H"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -17)) "-H"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 9) "#24r9"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 23) "#24rN"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING -23) "#24r-N"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 1234567890987654321234567890987654321)) "1EDFC9EAF544D8D12FI44J4FMCH"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING 0) "0"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING -1) "-1"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (STRING-UPCASE (WRITE-TO-STRING (1- *PRINT-BASE*))) (STRING (CHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" (1- *PRINT-BASE*)))))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING *PRINT-BASE*) "10"))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2))) (PUSH (STRING-UPCASE (WRITE-TO-STRING 40)) LIST))) '("101000" "1111" "220" "130" "104" "55" "50" "44" "40" "37" "34" "31" "2C" "2A" "28" "26" "24" "22" "20" "1J" "1I" "1H" "1G" "1F" "1E" "1D" "1C" "1B" "1A" "19" "18" "17" "16" "15" "14")))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2)) (*PRINT-RADIX* T)) (PUSH (STRING-UPCASE (WRITE-TO-STRING 40)) LIST))) '("#B101000" "#3R1111" "#4R220" "#5R130" "#6R104" "#7R55" "#O50" "#9R44" "40." "#11R37" "#12R34" "#13R31" "#14R2C" "#15R2A" "#X28" "#17R26" "#18R24" "#19R22" "#20R20" "#21R1J" "#22R1I" "#23R1H" "#24R1G" "#25R1F" "#26R1E" "#27R1D" "#28R1C" "#29R1B" "#30R1A" "#31R19" "#32R18" "#33R17" "#34R16" "#35R15" "#36R14")))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 1/3) "1/3")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING -1/2) "-1/2")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING -3/5) "-3/5")) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/15) "#10r1/15"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -4/15) "#10r-4/15"))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/1234567890987654321234567890987654321")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321/4) "1234567890987654321234567890987654321/4")) -EQL-OK: NIL -(NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "#10r2/1234567890987654321234567890987654321"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 1/3) "1/11"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1/2) "-1/10"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -3/5) "-11/101"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/15) "#b1/1111"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -3/16) "#b-11/10000"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "10/111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321/2) "-111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001/10"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "#b10/111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 1/3) "1/3"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -1/4) "-1/4"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -3/7) "-3/7"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/3) "#o1/3"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -3/7) "#o-3/7"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -15/11) "#o-17/13"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/7334234540230567516425620517326613016261"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321/4) "#o-7334234540230567516425620517326613016261/4"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 1/8) "1/8"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING -1/9) "-1/9"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING-EQUAL (WRITE-TO-STRING -9/10) "-9/A"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/3) "#x1/3"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 3/8) "#x3/8"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -4/9) "#x-4/9"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/EDC4E5813177A7457214F6B62C1CB1"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/4) "#xEDC4E5813177A7457214F6B62C1CB1/4"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/1234) "#xEDC4E5813177A7457214F6B62C1CB1/4D2"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING 1/8) "1/8"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING -1/9) "-1/9"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21)) (STRING-EQUAL (WRITE-TO-STRING -9/10) "-9/A"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/4) "#21r1/4"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING -1/20) "#21r-1/K"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/29FADE40CGDJK4D0654KEAD5K6EK"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/1234) "#21r29FADE40CGDJK4D0654KEAD5K6EK/2GG"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 3 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING 1/2) "1/2"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 4 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING -1/3) "-1/3"))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 3 UPTO 36 ALWAYS (STRING= (STRING-UPCASE (WRITE-TO-STRING (/ 1 (1- *PRINT-BASE*)))) (CONCATENATE 'STRING "1/" (STRING (CHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" (1- *PRINT-BASE*))))))) -EQL-OK: NIL -(NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING (/ 1 *PRINT-BASE*)) "1/10"))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2))) (PUSH (STRING-UPCASE (WRITE-TO-STRING 41/40)) LIST))) '("101001/101000" "1112/1111" "221/220" "131/130" "105/104" "56/55" "51/50" "45/44" "41/40" "38/37" "35/34" "32/31" "2D/2C" "2B/2A" "29/28" "27/26" "25/24" "23/22" "21/20" "1K/1J" "1J/1I" "1I/1H" "1H/1G" "1G/1F" "1F/1E" "1E/1D" "1D/1C" "1C/1B" "1B/1A" "1A/19" "19/18" "18/17" "17/16" "16/15" "15/14")))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2)) (*PRINT-RADIX* T)) (PUSH (STRING-UPCASE (WRITE-TO-STRING 41/40)) LIST))) '("#B101001/101000" "#3R1112/1111" "#4R221/220" "#5R131/130" "#6R105/104" "#7R56/55" "#O51/50" "#9R45/44" "#10R41/40" "#11R38/37" "#12R35/34" "#13R32/31" "#14R2D/2C" "#15R2B/2A" "#X29/28" "#17R27/26" "#18R25/24" "#19R23/22" "#20R21/20" "#21R1K/1J" "#22R1J/1I" "#23R1I/1H" "#24R1H/1G" "#25R1G/1F" "#26R1F/1E" "#27R1E/1D" "#28R1D/1C" "#29R1C/1B" "#30R1B/1A" "#31R1A/19" "#32R19/18" "#33R18/17" "#34R17/16" "#35R16/15" "#36R15/14")))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\a) "a"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* NIL)) (STRING= (WRITE-TO-STRING #\d) "d"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\m) "m"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\z) "z"))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* NIL)) (LOOP FOR C ACROSS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (STRING C))))) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL)) (LOOP FOR C ACROSS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (STRING C))))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING #\b) "#\\b")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING #\n) "#\\n")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING #\x) "#\\x")) -EQL-OK: NIL -(NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* T)) (STRING= (WRITE-TO-STRING #\c) "#\\c"))) -EQL-OK: NIL -(NOT (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C))))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING #\\) "#\\\\")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING #\") "#\\\"")) -EQL-OK: NIL -(NOT (LET ((*PRINT-READABLY* T) (*PRINT-ESCAPE* NIL)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) -EQL-OK: NIL -(NOT (LET ((*PRINT-READABLY* T) (*PRINT-ESCAPE* T)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) -EQL-OK: NIL -(NOT (LET ((*PRINT-READABLY* NIL) (*PRINT-ESCAPE* T)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) -EQL-OK: NIL -(NOT (PROGN (LET ((*PRINT-READABLY* T)) (STRING= (WRITE-TO-STRING #\ ) "#\\ ")) 'SKIPPED)) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "Abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "Abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "Abc-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-Abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-Abc" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "Abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-ABC" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-Abc" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-ABC" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :CAPITALIZE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :UPCASE)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :DOWNCASE)))) -EQL-OK: NIL -(NOT (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN '(ZEBRA |Zebra| |zebra|) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T))) -EQL-OK: NIL -(NOT (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN '(:ZEBRA :|Zebra| :|zebra|) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "TEST-PKG0")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) -EQL-OK: NIL -(NOT (EQ '| | (READ-FROM-STRING (WRITE-TO-STRING '| | :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '| -| (READ-FROM-STRING (WRITE-TO-STRING '| -| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '| | (READ-FROM-STRING (WRITE-TO-STRING '| | :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|"| (READ-FROM-STRING (WRITE-TO-STRING '|"| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|#| (READ-FROM-STRING (WRITE-TO-STRING '|#| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|'| (READ-FROM-STRING (WRITE-TO-STRING '|'| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|(| (READ-FROM-STRING (WRITE-TO-STRING '|(| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|)| (READ-FROM-STRING (WRITE-TO-STRING '|)| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|,| (READ-FROM-STRING (WRITE-TO-STRING '|,| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|;| (READ-FROM-STRING (WRITE-TO-STRING '|;| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|\\| (READ-FROM-STRING (WRITE-TO-STRING '|\\| :READABLY T)))) -EQL-OK: NIL -(NOT (= 1 (LENGTH (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING '|\\| :READABLY T)))))) -EQL-OK: NIL -(NOT (EQ '|`| (READ-FROM-STRING (WRITE-TO-STRING '|`| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|\|| (READ-FROM-STRING (WRITE-TO-STRING '|\|| :READABLY T)))) -EQL-OK: NIL -(NOT (= 1 (LENGTH (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING '|\|| :READABLY T)))))) -EQL-OK: NIL -(NOT (LOOP FOR SYMBOL IN '(-!- /*/ $$$ ^^^^^^^^^^^^^) ALWAYS (LOOP WITH *READTABLE* = (COPY-READTABLE NIL) FOR TABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (SETF (READTABLE-CASE *READTABLE*) TABLE-CASE) ALWAYS (LOOP FOR *PRINT-CASE IN '(:UPCASE :DOWNCASE :CAPITALIZE) ALWAYS (STRING= (SYMBOL-NAME SYMBOL) (WRITE-TO-STRING SYMBOL :ESCAPE NIL)))))) -EQL-OK: NIL -(NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :UPCASE))))) -EQL-OK: NIL -(NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :DOWNCASE))))) -EQL-OK: NIL -(NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :CAPITALIZE))))) -EQL-OK: NIL -(NOT (STRING= "G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE T :GENSYM NIL))) -EQL-OK: NIL -(NOT (STRING= "G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE NIL :GENSYM NIL))) -EQL-OK: NIL -(NOT (STRING= "#:G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE T :GENSYM T))) -EQL-OK: NIL -(NOT (LET ((FACE (LET ((*PRINT-BASE* 16)) (WRITE-TO-STRING 'FACE :READABLY T))) (*READ-BASE* 16)) (EQ 'FACE (READ-FROM-STRING FACE)))) -EQL-OK: NIL -(NOT (EQ '|01| (READ-FROM-STRING (WRITE-TO-STRING '|01| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|1| (READ-FROM-STRING (WRITE-TO-STRING '|1| :READABLY T)))) -EQL-OK: NIL -(NOT (EQ '|0123456789| (READ-FROM-STRING (WRITE-TO-STRING '|0123456789| :READABLY T)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "Test-Pkg0") (DELETE-PACKAGE "Test-Pkg0")) (MAKE-PACKAGE "Test-Pkg0" :USE NIL) (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test-Pkg0")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "Test|Pkg 0;") (DELETE-PACKAGE "Test|Pkg 0;")) (MAKE-PACKAGE "Test|Pkg 0;" :USE NIL) (LOOP NAMED LOOP0 WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test|Pkg 0;")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) UNLESS (EQ SYMBOL (READ-FROM-STRING (WRITE-TO-STRING SYMBOL :READABLY T))) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE "Test|Pkg 0;") (DELETE-PACKAGE "Test|Pkg 0;")) (MAKE-PACKAGE "Test|Pkg 0;" :USE NIL) (LOOP NAMED LOOP0 WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test|Pkg 0;")) '("Z\\E\"BRA" "Z;e|bra" "z:e bra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) UNLESS (EQ SYMBOL (READ-FROM-STRING (WRITE-TO-STRING SYMBOL :READABLY T))) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*" (WRITE-TO-STRING #* :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*" (WRITE-TO-STRING #* :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :READABLY T :ARRAY NIL))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*" (WRITE-TO-STRING #* :ARRAY T))) -EQL-OK: NIL -(NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :ARRAY T))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*0101 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*01 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*0 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*1 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #* :ARRAY NIL)))) -EQL-OK: NIL -(NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*10101111000 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (STRING= "#*01" (WRITE-TO-STRING (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1 0 1) :FILL-POINTER 2) :READABLY T :ARRAY T))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING (WRITE-TO-STRING 'NIL)))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1) :PRETTY NIL) "(1)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2) :PRETTY NIL) "(1 2)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3) :PRETTY NIL) "(1 2 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4) :PRETTY NIL) "(1 2 3 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 . 2) :PRETTY NIL) "(1 . 2)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL) "(1 2 . 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 . 4) :PRETTY NIL) "(1 2 3 . 4)")) -EQL-OK: NIL -(NOT (LET ((LIST (LOOP FOR I FROM 0 UPTO 100 COLLECT I))) (EQUAL (READ-FROM-STRING (WRITE-TO-STRING LIST)) LIST))) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1) "(1 #)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2) "(1 (2 #))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 3) "(1 (2 (3 #)))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 4) "(1 (2 (3 (4 #))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 4) "(1 (2 (3 (4 #))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 5) "(1 (2 (3 (4 (5 #)))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 6) "(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 7) "(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 100) "(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 0) "(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 1) "(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 2) "(1 2 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 3) "(1 2 3 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 4) "(1 2 3 4 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 5) "(1 2 3 4 5 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 6) "(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 7) "(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 100) "(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 0) "(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 1) "(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 2) "(1 2 . 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 3) "(1 2 . 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0 :LENGTH 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1 :LENGTH 0) "(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0 :LENGTH 1) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1 :LENGTH 1) "(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2 :LENGTH 1) "(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2 :LENGTH 2) "(1 (2 #))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 0 :LENGTH 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 1 :LENGTH 0) "(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 1 :LENGTH 4) "(# # # 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 2 :LENGTH 3) "((#) (#) (3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 3 :LENGTH 3) "(((#)) ((2)) (3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 4 :LENGTH 3) "((((1))) ((2)) (3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 2 :LENGTH 4) "((#) (#) (3) 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 4 :LENGTH 4) "((((1))) ((2)) (3) 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4 (5) ((6)) (((7)))) :PRETTY NIL :LEVEL 3 :LENGTH 6) "(((#)) ((2)) (3) 4 (5) ((6)) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 6 :LENGTH 3) "((((1 ((2)) (3)))) ((2 (3) 4 ...)) (3 (4 (5 6))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 2 :LENGTH 2) "((#) (#) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 3 :LENGTH 2) "(((#)) ((2 # ...)) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '(((1)) ((1) 2 ((3)) (((4)))) 3 (4)) :PRETTY NIL :LEVEL 2 :LENGTH 3) "((#) (# 2 # ...) 3 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#() :PRETTY NIL :ARRAY T) "#()")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1) :PRETTY NIL :ARRAY T) "#(1)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3) :PRETTY NIL :ARRAY T) "#(1 2 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9) :FILL-POINTER 3) :PRETTY NIL :ARRAY T) "#(0 1 2)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 1) "#(1 #)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 2) "#(1 (2 #))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 3) "#(1 (2 (3 #)))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 4) "#(1 (2 (3 (4 #))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 4) "#(1 (2 (3 (4 #))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 5) "#(1 (2 (3 (4 (5 #)))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 6) "#(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 7) "#(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 100) "#(1 (2 (3 (4 (5 (6))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 0) "#(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 1) "#(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 2) "#(1 2 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 3) "#(1 2 3 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 4) "#(1 2 3 4 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 5) "#(1 2 3 4 5 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 6) "#(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 7) "#(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 100) "#(1 2 3 4 5 6)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 1) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 1) "#(1 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#(1 #(2 #))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 4) "#(# # # 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#(#(#) #(#) #(3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#(#(#(#)) #(#(2)) #(3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 3) "#(#(#(#(1))) #(#(2)) #(3) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 4) "#(#(#) #(#) #(3) 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 4) "#(#(#(#(1))) #(#(2)) #(3) 4)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4 #(5) #(#(6)) #(#(#(7)))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 6) "#(#(#(#)) #(#(2)) #(3) 4 #(5) #(#(6)) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 6 :LENGTH 3) "#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 ...)) #(3 #(4 #(5 6))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#(#(#) #(#) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#(#(#(#)) #(#(2 # ...)) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(#(#(1)) #(#(1) 2 #(#(3)) #(#(#(4)))) 3 #(4)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#(#(#) #(# 2 # ...) 3 ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#0A1 :PRETTY NIL :ARRAY T) "#0A1")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#() :PRETTY NIL :ARRAY T) "#()")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#(1 2 3) :PRETTY NIL :ARRAY T) "#(1 2 3)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((1 2 3) (4 5 6)) :PRETTY NIL :ARRAY T) "#2A((1 2 3) (4 5 6))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#3A(((1 A) (2 B) (3 C)) ((4 D) (5 E) (6 F))) :PRETTY NIL :ARRAY T) "#3A(((1 A) (2 B) (3 C)) ((4 D) (5 E) (6 F)))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T) "#20A((((((((((((((((((((0))))))))))))))))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#0A10 :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#0A10")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#2A(# ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((0) (1) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 0) "#2A(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#3A(((0) (1) ...) ((3) (4) ...))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 100) "#")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 100 :LENGTH 0) "#20A(...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 10 :LENGTH 100) "#20A((((((((((#))))))))))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((0 1 2) (3 4 5) (6 7 8) (9 10 11)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((0 1 ...) (3 4 ...) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#2A((0 1 2) (3 4 5) (6 7 8) (9 10 11)) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 2) "#2A(# # ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#3A((# # #) (# # #) (# # #) ...)")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 4) "#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11)))")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING "abc" :ARRAY T :ESCAPE NIL) "abc")) -EQL-OK: NIL -(NOT (STRING= (WRITE-TO-STRING "abc" :ARRAY NIL :ESCAPE NIL) "abc")) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #() :ARRAY NIL)))) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #(1 2 3) :ARRAY NIL)))) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #*1010 :ARRAY NIL)))) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #2A((0 1 2) (3 4 5)) :ARRAY NIL)))) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #3A(((0 1) (2 3)) ((4 5) (6 7))) :ARRAY NIL)))) -EQL-OK: NIL -(NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #4A((((0) (1)) ((2) (3))) (((4) (5)) ((6) (7))) (((8) (9)) ((10) (11))) (((12) (13)) ((14) (15)))) :ARRAY NIL)))) -EQL-OK: NIL -(NOT (LET* ((LIST '#1=(#1# . #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ X (CAR X)) (EQ X (CDR X))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#1=(A . #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (CAR X) 'A) (EQ X (CDR X))))) -EQL-OK: NIL -(NOT (LET* ((LIST '(A . #1=(B C . #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (FIRST X) 'A) (EQ (SECOND X) 'B) (EQ (THIRD X) 'C) (EQ (FOURTH X) 'B) (EQ (CDR X) (NTHCDR 3 X))))) -EQL-OK: NIL -(NOT (LET* ((LIST '(#1=#:G1041 #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (= 2 (LENGTH X)) (SYMBOLP (FIRST X)) (EQ (FIRST X) (SECOND X))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#1=(A (B #2=(X Y Z) . #1#) . #2#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (FIRST X) 'A) (EQ X (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#1=#(#1# A)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ X (AREF X 0)) (EQ 'A (AREF X 1))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#1=#(A #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (AREF X 0) 'A) (EQ X (AREF X 1))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#(#1=#:G00 #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (AREF X 0) (AREF X 1)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (NULL (SYMBOL-PACKAGE (AREF X 0)))))) -EQL-OK: NIL -(NOT (LET* ((LIST '#(#(#1=#:G00) #2=#(#1# A) #(#2# #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (= 3 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 2 (LENGTH (AREF X 1))) (= 2 (LENGTH (AREF X 2))) (EQ (AREF (AREF X 0) 0) (AREF (AREF X 1) 0)) (EQ 'A (AREF (AREF X 1) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF X 2) 1)) (EQ (AREF X 1) (AREF (AREF X 2) 0))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#1=#0A#1#) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (NULL (ARRAY-DIMENSIONS ARRAY)) (EQ X (AREF X))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#1=#2A((1 2 3) (4 5 #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3)) (= 1 (AREF X 0 0)) (= 2 (AREF X 0 1)) (= 3 (AREF X 0 2)) (= 4 (AREF X 1 0)) (= 5 (AREF X 1 1)) (EQ X (AREF X 1 2))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY #1=#3A(((1 A) (2 B) (3 #1#)) ((4 D) (5 E) (6 F)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (= 1 (AREF X 0 0 0)) (EQ 'A (AREF X 0 0 1)) (= 2 (AREF X 0 1 0)) (EQ 'B (AREF X 0 1 1)) (= 3 (AREF X 0 2 0)) (EQ X (AREF X 0 2 1)) (= 4 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 5 (AREF X 1 1 0)) (EQ 'E (AREF X 1 1 1)) (= 6 (AREF X 1 2 0)) (EQ 'F (AREF X 1 2 1))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY #3A(((1 #1=#:G0) (#2=#:G1 B) (3 #1#)) ((4 D) (5 E) (#2# F)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (= 1 (AREF X 0 0 0)) (EQ (AREF X 0 0 1) (AREF X 0 2 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1))) (STRING= "G0" (SYMBOL-NAME (AREF X 0 0 1))) (EQ (AREF X 0 1 0) (AREF X 1 2 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 1 0))) (STRING= "G1" (SYMBOL-NAME (AREF X 0 1 0))) (EQ 'B (AREF X 0 1 1)) (= 3 (AREF X 0 2 0)) (= 4 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 5 (AREF X 1 1 0)) (EQ 'E (AREF X 1 1 1)) (EQ 'F (AREF X 1 2 1))))) -EQL-OK: NIL -(NOT (LET* ((ARRAY #1=#3A(((#1# #2=#:G0) (#3=#:G1 #2#) (#3# #1#)) ((#1# #2#) (#2# #3#) (#2# #1#)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (EQ X (AREF X 0 0 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1))) (STRING= (SYMBOL-NAME (AREF X 0 0 1)) "G0") (NULL (SYMBOL-PACKAGE (AREF X 0 1 0))) (STRING= (SYMBOL-NAME (AREF X 0 1 0)) "G1") (EQ (AREF X 0 1 0) (AREF X 0 2 0)) (EQ X (AREF X 0 2 1)) (EQ X (AREF X 1 0 0)) (EQ (AREF X 1 0 1) (AREF X 0 0 1)) (EQ (AREF X 1 1 0) (AREF X 0 0 1)) (EQ (AREF X 1 1 1) (AREF X 0 1 0)) (EQ (AREF X 1 2 0) (AREF X 0 0 1)) (EQ (AREF X 1 2 1) X)))) -EQL-OK: NIL -(NOT (LET* ((ARRAY #4A((((0 #1=#:G00 2) (#1# 4 #2=#:G01)) ((#3=#:G02 #2# 8) (9 #4=#:G03 #3#)) ((#4# 12 #5=#:G04) (#6=#:G05 #6# #5#))))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(1 3 2 3)) (= 0 (AREF X 0 0 0 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 0 1))) (STRING= (SYMBOL-NAME (AREF X 0 0 0 1)) "G00") (= 2 (AREF X 0 0 0 2)) (EQ (AREF X 0 0 1 0) (AREF X 0 0 0 1)) (= 4 (AREF X 0 0 1 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1 2))) (STRING= (SYMBOL-NAME (AREF X 0 0 1 2)) "G01") (NULL (SYMBOL-PACKAGE (AREF X 0 1 0 0))) (STRING= (SYMBOL-NAME (AREF X 0 1 0 0)) "G02") (EQ (AREF X 0 1 0 1) (AREF X 0 0 1 2)) (= 8 (AREF X 0 1 0 2)) (= 9 (AREF X 0 1 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 1 1 1))) (STRING= (SYMBOL-NAME (AREF X 0 1 1 1)) "G03") (EQ (AREF X 0 1 1 2) (AREF X 0 1 0 0)) (EQ (AREF X 0 2 0 0) (AREF X 0 1 1 1)) (= 12 (AREF X 0 2 0 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 2 0 2))) (STRING= (SYMBOL-NAME (AREF X 0 2 0 2)) "G04") (NULL (SYMBOL-PACKAGE (AREF X 0 2 1 0))) (STRING= (SYMBOL-NAME (AREF X 0 2 1 0)) "G05") (EQ (AREF X 0 2 1 1) (AREF X 0 2 1 0)) (EQ (AREF X 0 2 1 2) (AREF X 0 2 0 2))))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#1=(#(0 #2=(#1#) #1# 3) #3=#2A((#1# #2#) (#3# 4)))) (X (READ-FROM-STRING (WRITE-TO-STRING SEQUENCE :ARRAY T :CIRCLE T)))) (AND (= 2 (LENGTH X)) (= 4 (LENGTH (FIRST X))) (= 0 (AREF (FIRST X) 0)) (EQ X (FIRST (AREF (FIRST X) 1))) (EQ X (AREF (FIRST X) 2)) (= 3 (AREF (FIRST X) 3)) (EQUAL (ARRAY-DIMENSIONS (SECOND X)) '(2 2)) (EQ X (AREF (SECOND X) 0 0)) (EQ (AREF (SECOND X) 0 1) (AREF (FIRST X) 1)) (EQ (AREF (SECOND X) 1 0) (SECOND X)) (= 4 (AREF (SECOND X) 1 1))))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#1=#(#2=(0 1 . #3=(2)) #(#3# #2# #1#) #3A(((#1# #2# #3#))))) (X (READ-FROM-STRING (WRITE-TO-STRING SEQUENCE :ARRAY T :CIRCLE T)))) (AND (= 3 (LENGTH X)) (= 3 (LENGTH (AREF X 0))) (= 0 (FIRST (AREF X 0))) (= 1 (SECOND (AREF X 0))) (= 2 (THIRD (AREF X 0))) (= 3 (LENGTH (AREF X 1))) (EQ (AREF (AREF X 1) 0) (CDDR (AREF X 0))) (EQ (AREF (AREF X 1) 1) (AREF X 0)) (EQ (AREF (AREF X 1) 2) X) (EQUAL (ARRAY-DIMENSIONS (AREF X 2)) '(1 1 3)) (EQ (AREF (AREF X 2) 0 0 0) X) (EQ (AREF (AREF X 2) 0 0 1) (AREF X 0)) (EQ (AREF (AREF X 2) 0 0 2) (CDDR (AREF X 0)))))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 10) "#"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 10) "(# # #)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 10) "((1 2 3) #(4 5 6) #2A(# #))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 10) "((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "((1 ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "((1 2 ...) #(4 5 ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9 10) (11 12 13 14))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "((1 2 3) #(4 5 6) #2A((7 8 9 ...) (11 12 13 ...)))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 10) "#"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 10) "#(# # #)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 10) "#((1 2 3) #(4 5 6) #2A(# #))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 10) "#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "#((1 ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#((1 2 ...) #(4 5 ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) -EQL-OK: NIL -(NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9 10) (11 12 13 14))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#((1 2 3) #(4 5 6) #2A((7 8 9 ...) (11 12 13 ...)))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#2A(...)"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#2A(# ...)"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 1) "#2A((# ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((# #) (# #))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "#2A(((10) ...) ...)"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#2A(((10) #(100)) ((0 1 ...) #2A(# # ...)))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 2) "#2A(((10) #(100)) ((0 1 ...) #2A((3) (4) ...)))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 3) "#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) ...)))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 5) "#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7))))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 5) "#2A(((10) #(#)) ((0 # #) #2A(# # # # #)))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 5) "#2A(((10) #((100))) ((0 (1) (#)) #2A((3) (#) (#) (#) (7))))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 5 :LENGTH 5) "#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) ((#)) ((6)) (7))))"))) -EQL-OK: NIL -(NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 6 :LENGTH 4) "#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) ...)))"))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING (WRITE-TO-STRING '(0 1 2) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING (WRITE-TO-STRING #(0 1 2) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING (WRITE-TO-STRING #2A((0) (1) (2)) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) #2A((0) (1) (2)))) -EQL-OK: NIL -(NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LEVEL 0))) -EQL-OK: NIL -(NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LENGTH 2))) -EQL-OK: NIL -(NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LEVEL 0 :LENGTH 0))) -EQL-OK: NIL -(NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LEVEL 0))) -EQL-OK: NIL -(NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LENGTH 2))) -EQL-OK: NIL -(NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LEVEL 0 :LENGTH 0))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LEVEL 0))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LENGTH 2))) -EQL-OK: NIL -(NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LEVEL 0 :LENGTH 0))) -EQL-OK: NIL -RUN-TEST: finished "must-printer" (0 errors out of 437 tests) -RUN-TEST: started # -(NOT (SYMBOLP (READ-FROM-STRING "|ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!$\"'(),_-./:;?+<=>#%&*@[\\]{|}`^~|"))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "this") 'THIS)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "cl:car") 'CAR)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING ":ok") :OK)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "ok#") 'OK#)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "x#x") 'X#X)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc(x y z)") 'ABC)) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (OBJ POS) (READ-FROM-STRING "abc(x y z)") (AND (EQ OBJ 'ABC) (EQUAL (READ-FROM-STRING "abc(x y z)" T NIL :START POS) '(X Y Z))))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "ABC"))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "|ABC|"))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "a|B|c"))) -EQL-OK: NIL -(NOT (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "|abc|")))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\A\\B\\C"))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "a\\Bc"))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\ABC"))) -EQL-OK: NIL -(NOT (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\abc")))) -EQL-OK: NIL -(NOT (= 1 (EVAL (READ-FROM-STRING "(length '(this-that))")))) -EQL-OK: NIL -(NOT (= 3 (EVAL (READ-FROM-STRING "(length '(this - that))")))) -EQL-OK: NIL -(NOT (= 2 (EVAL (READ-FROM-STRING "(length '(a - b))")))) -EQL-OK: NIL -(NOT (= 34 (EVAL (READ-FROM-STRING "(+ 34)")))) -EQL-OK: NIL -(NOT (= 7 (EVAL (READ-FROM-STRING "(+ 3 4)")))) -EQL-OK: NIL -(NOT (EQ :KEY (LET ((*PACKAGE* (FIND-PACKAGE "KEYWORD"))) (READ-FROM-STRING "key")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (LET ((*PACKAGE* (MAKE-PACKAGE 'TEST-FOO :USE NIL))) (AND (NOT (FIND-SYMBOL "BAR")) (EQ (READ-FROM-STRING "bar") (FIND-SYMBOL "BAR")))))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "1.0") 1.0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "2/3") 2/3)) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0.0"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/3"))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING "()"))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a)") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c)") '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d)") '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d e)") '(A B C D E))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d e f)") '(A B C D E F))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d e f g)") '(A B C D E F G))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d e f g h)") '(A B C D E F G H))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING ".") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "...") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "0") 0))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "1") 1))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "2") 2))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "3") 3))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "4") 4))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "5") 5))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "6") 6))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "7") 7))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "8.") 8))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "10") 8))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "11") 9))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "12") 10))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "13") 11))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "14") 12))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "15") 13))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "16") 14))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "17") 15))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "20") 16))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "21") 17))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "0") 0))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1") 1))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "2") 2))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "3") 3))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "4") 4))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "5") 5))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "6") 6))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "7") 7))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "8") 8))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "9") 9))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "A") 10))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "a") 10))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "B") 11))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "b") 11))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "C") 12))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "c") 12))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "D") 13))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "d") 13))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "E") 14))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "e") 14))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "F") 15))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "f") 15))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "10") 16))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "11") 17))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "12") 18))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "13") 19))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "14") 20))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "15") 21))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "16") 22))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "17") 23))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "18") 24))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "19") 25))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1A") 26))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1a") 26))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1B") 27))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1b") 27))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1C") 28))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1c") 28))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1D") 29))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1d") 29))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1E") 30))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1e") 30))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1F") 31))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1f") 31))) -EQL-OK: NIL -(NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "20") 32))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-0") 0)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "0"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+0"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-0"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "1") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+1") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-1") -1)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "1"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+1"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-1"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "12") 12)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+12") 12)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-12") -12)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "12"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+12"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-12"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "123") 123)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+123") 123)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-123") -123)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "123"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+123"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-123"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "1234") 1234)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+1234") 1234)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-1234") -1234)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "1234"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+1234"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-1234"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "12345") 12345)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+12345") 12345)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-12345") -12345)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "12345"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+12345"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-12345"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "48148148031244413808971345"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+48148148031244413808971345"))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-48148148031244413808971345"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "0.") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+0.") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-0.") 0)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "0."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+0."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-0."))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "1.") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+1.") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-1.") -1)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "1."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+1."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-1."))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "12.") 12)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+12.") 12)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-12.") -12)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "12."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+12."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-12."))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "123.") 123)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+123.") 123)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-123.") -123)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "123."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+123."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-123."))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "1234.") 1234)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+1234.") 1234)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-1234.") -1234)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "1234."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+1234."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-1234."))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "12345.") 12345)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "+12345.") 12345)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "-12345.") -12345)) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "12345."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+12345."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-12345."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "48148148031244413808971345."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "+48148148031244413808971345."))) -EQL-OK: NIL -(NOT (INTEGERP (READ-FROM-STRING "-48148148031244413808971345."))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-0")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+1")))) -EQL-OK: NIL -(NOT (= -1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-1")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+10")))) -EQL-OK: NIL -(NOT (= -2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-10")))) -EQL-OK: NIL -(NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11")))) -EQL-OK: NIL -(NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+11")))) -EQL-OK: NIL -(NOT (= -3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11")))) -EQL-OK: NIL -(NOT (= -11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11.")))) -EQL-OK: NIL -(NOT (INTEGERP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11.")))) -EQL-OK: NIL -(NOT (= 21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10101")))) -EQL-OK: NIL -(NOT (= 21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+10101")))) -EQL-OK: NIL -(NOT (= -21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-10101")))) -EQL-OK: NIL -(NOT (= -1.0101 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-1.0101")))) -EQL-OK: NIL -(NOT (= 1.0101 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1.0101")))) -EQL-OK: NIL -(NOT (= 123 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "123.")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-0")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+1")))) -EQL-OK: NIL -(NOT (= -1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-1")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "2")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+2")))) -EQL-OK: NIL -(NOT (= -2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-2")))) -EQL-OK: NIL -(NOT (= 3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "10")))) -EQL-OK: NIL -(NOT (= 3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+10")))) -EQL-OK: NIL -(NOT (= -3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-10")))) -EQL-OK: NIL -(NOT (= 4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "11")))) -EQL-OK: NIL -(NOT (= 4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+11")))) -EQL-OK: NIL -(NOT (= -4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-11")))) -EQL-OK: NIL -(NOT (= 5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "12")))) -EQL-OK: NIL -(NOT (= 5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+12")))) -EQL-OK: NIL -(NOT (= -5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-12")))) -EQL-OK: NIL -(NOT (= 6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "20")))) -EQL-OK: NIL -(NOT (= 6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+20")))) -EQL-OK: NIL -(NOT (= -6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-20")))) -EQL-OK: NIL -(NOT (= 7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "21")))) -EQL-OK: NIL -(NOT (= 7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+21")))) -EQL-OK: NIL -(NOT (= -7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-21")))) -EQL-OK: NIL -(NOT (= 8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "22")))) -EQL-OK: NIL -(NOT (= 8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+22")))) -EQL-OK: NIL -(NOT (= -8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-22")))) -EQL-OK: NIL -(NOT (= 391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "201220001112")))) -EQL-OK: NIL -(NOT (= 391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+201220001112")))) -EQL-OK: NIL -(NOT (= -391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-201220001112")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-0")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+1")))) -EQL-OK: NIL -(NOT (= -1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-1")))) -EQL-OK: NIL -(NOT (= 7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "7")))) -EQL-OK: NIL -(NOT (= 7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+7")))) -EQL-OK: NIL -(NOT (= -7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-7")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+0")))) -EQL-OK: NIL -(NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-0")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+1")))) -EQL-OK: NIL -(NOT (= -1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-1")))) -EQL-OK: NIL -(NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9")))) -EQL-OK: NIL -(NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+9")))) -EQL-OK: NIL -(NOT (= -9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-9")))) -EQL-OK: NIL -(NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "F")))) -EQL-OK: NIL -(NOT (= -15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-F")))) -EQL-OK: NIL -(NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "F")))) -EQL-OK: NIL -(NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "f")))) -EQL-OK: NIL -(NOT (= -15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-f")))) -EQL-OK: NIL -(NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "f")))) -EQL-OK: NIL -(NOT (= 31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1F")))) -EQL-OK: NIL -(NOT (= 31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+1F")))) -EQL-OK: NIL -(NOT (= -31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-1F")))) -EQL-OK: NIL -(NOT (= 63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "3F")))) -EQL-OK: NIL -(NOT (= 63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+3F")))) -EQL-OK: NIL -(NOT (= -63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-3F")))) -EQL-OK: NIL -(NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9.")))) -EQL-OK: NIL -(NOT (INTEGERP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9.")))) -EQL-OK: NIL -(NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "10.")))) -EQL-OK: NIL -(NOT (INTEGERP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "10.")))) -EQL-OK: NIL -(NOT (EQUAL (LET (STACK) (DOTIMES (I 6 STACK) (LET ((*READ-BASE* (+ 10 I))) (LET ((OBJECT (READ-FROM-STRING "(\\DAD DAD |BEE| BEE 123. 123)"))) (PUSH (LIST *READ-BASE* OBJECT) STACK))))) '((15 (DAD 3088 BEE 2699 123 258)) (14 (DAD 2701 BEE BEE 123 227)) (13 (DAD DAD BEE BEE 123 198)) (12 (DAD DAD BEE BEE 123 171)) (11 (DAD DAD BEE BEE 123 146)) (10 (DAD DAD BEE BEE 123 123))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "0"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "+0"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "-0"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= 1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "1"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= 1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "+1"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= -1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "-1"))))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "10.")) ALWAYS (AND (INTEGERP N) (= 10 N)))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "+10.")) ALWAYS (AND (INTEGERP N) (= 10 N)))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "-10.")) ALWAYS (AND (INTEGERP N) (= -10 N)))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "1.1")) ALWAYS (= 1.1 N))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "+1.1")) ALWAYS (= 1.1 N))) -EQL-OK: NIL -(NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "-1.1")) ALWAYS (= -1.1 N))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/2"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/3"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/4"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/5"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/6"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/7"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/8"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/9"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/10"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/11"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/12"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/13"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/14"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/15"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/16"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/17"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/18"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/19"))) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "0/20"))) -EQL-OK: NIL -(NOT (= 1/2 (READ-FROM-STRING "1/2"))) -EQL-OK: NIL -(NOT (= 1/3 (READ-FROM-STRING "1/3"))) -EQL-OK: NIL -(NOT (= 1/4 (READ-FROM-STRING "1/4"))) -EQL-OK: NIL -(NOT (= 1/5 (READ-FROM-STRING "1/5"))) -EQL-OK: NIL -(NOT (= 1/6 (READ-FROM-STRING "1/6"))) -EQL-OK: NIL -(NOT (= 1/7 (READ-FROM-STRING "1/7"))) -EQL-OK: NIL -(NOT (= 1/8 (READ-FROM-STRING "1/8"))) -EQL-OK: NIL -(NOT (= 1/9 (READ-FROM-STRING "1/9"))) -EQL-OK: NIL -(NOT (= 1/10 (READ-FROM-STRING "1/10"))) -EQL-OK: NIL -(NOT (= 1/11 (READ-FROM-STRING "1/11"))) -EQL-OK: NIL -(NOT (= 1/12 (READ-FROM-STRING "1/12"))) -EQL-OK: NIL -(NOT (= 1/13 (READ-FROM-STRING "1/13"))) -EQL-OK: NIL -(NOT (= 1/14 (READ-FROM-STRING "1/14"))) -EQL-OK: NIL -(NOT (= 1/15 (READ-FROM-STRING "1/15"))) -EQL-OK: NIL -(NOT (= 1/16 (READ-FROM-STRING "1/16"))) -EQL-OK: NIL -(NOT (= 1/17 (READ-FROM-STRING "1/17"))) -EQL-OK: NIL -(NOT (= 1/18 (READ-FROM-STRING "1/18"))) -EQL-OK: NIL -(NOT (= 1/19 (READ-FROM-STRING "1/19"))) -EQL-OK: NIL -(NOT (= 1/20 (READ-FROM-STRING "1/20"))) -EQL-OK: NIL -(NOT (= 1 (READ-FROM-STRING "2/2"))) -EQL-OK: NIL -(NOT (= 2/3 (READ-FROM-STRING "2/3"))) -EQL-OK: NIL -(NOT (= 1/2 (READ-FROM-STRING "2/4"))) -EQL-OK: NIL -(NOT (= 2/5 (READ-FROM-STRING "2/5"))) -EQL-OK: NIL -(NOT (= 1/3 (READ-FROM-STRING "2/6"))) -EQL-OK: NIL -(NOT (= 2/7 (READ-FROM-STRING "2/7"))) -EQL-OK: NIL -(NOT (= 1/4 (READ-FROM-STRING "2/8"))) -EQL-OK: NIL -(NOT (= 2/9 (READ-FROM-STRING "2/9"))) -EQL-OK: NIL -(NOT (= 1/5 (READ-FROM-STRING "2/10"))) -EQL-OK: NIL -(NOT (= 2/11 (READ-FROM-STRING "2/11"))) -EQL-OK: NIL -(NOT (= 1/6 (READ-FROM-STRING "2/12"))) -EQL-OK: NIL -(NOT (= 2/13 (READ-FROM-STRING "2/13"))) -EQL-OK: NIL -(NOT (= 1/7 (READ-FROM-STRING "2/14"))) -EQL-OK: NIL -(NOT (= 2/15 (READ-FROM-STRING "2/15"))) -EQL-OK: NIL -(NOT (= 1/8 (READ-FROM-STRING "2/16"))) -EQL-OK: NIL -(NOT (= 2/17 (READ-FROM-STRING "2/17"))) -EQL-OK: NIL -(NOT (= 1/9 (READ-FROM-STRING "2/18"))) -EQL-OK: NIL -(NOT (= 2/19 (READ-FROM-STRING "2/19"))) -EQL-OK: NIL -(NOT (= 1/10 (READ-FROM-STRING "2/20"))) -EQL-OK: NIL -(NOT (= 17/2 (READ-FROM-STRING "17/2"))) -EQL-OK: NIL -(NOT (= 17/3 (READ-FROM-STRING "17/3"))) -EQL-OK: NIL -(NOT (= 17/4 (READ-FROM-STRING "17/4"))) -EQL-OK: NIL -(NOT (= 17/5 (READ-FROM-STRING "17/5"))) -EQL-OK: NIL -(NOT (= 17/6 (READ-FROM-STRING "17/6"))) -EQL-OK: NIL -(NOT (= 17/7 (READ-FROM-STRING "17/7"))) -EQL-OK: NIL -(NOT (= 17/8 (READ-FROM-STRING "17/8"))) -EQL-OK: NIL -(NOT (= 17/9 (READ-FROM-STRING "17/9"))) -EQL-OK: NIL -(NOT (= 17/10 (READ-FROM-STRING "17/10"))) -EQL-OK: NIL -(NOT (= 17/11 (READ-FROM-STRING "17/11"))) -EQL-OK: NIL -(NOT (= 17/12 (READ-FROM-STRING "17/12"))) -EQL-OK: NIL -(NOT (= 17/13 (READ-FROM-STRING "17/13"))) -EQL-OK: NIL -(NOT (= 17/14 (READ-FROM-STRING "17/14"))) -EQL-OK: NIL -(NOT (= 17/15 (READ-FROM-STRING "17/15"))) -EQL-OK: NIL -(NOT (= 17/16 (READ-FROM-STRING "17/16"))) -EQL-OK: NIL -(NOT (= 1 (READ-FROM-STRING "17/17"))) -EQL-OK: NIL -(NOT (= 17/18 (READ-FROM-STRING "17/18"))) -EQL-OK: NIL -(NOT (= 17/19 (READ-FROM-STRING "17/19"))) -EQL-OK: NIL -(NOT (= 17/20 (READ-FROM-STRING "17/20"))) -EQL-OK: NIL -(NOT (= 0 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "0/1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/11")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/100")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/101")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/110")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/111")))) -EQL-OK: NIL -(NOT (= 1/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1000")))) -EQL-OK: NIL -(NOT (= 1/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1001")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1010")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1011")))) -EQL-OK: NIL -(NOT (= 1/12 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1100")))) -EQL-OK: NIL -(NOT (= 1/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1101")))) -EQL-OK: NIL -(NOT (= 1/14 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1110")))) -EQL-OK: NIL -(NOT (= 1/15 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1111")))) -EQL-OK: NIL -(NOT (= 1/16 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10000")))) -EQL-OK: NIL -(NOT (= 1/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10001")))) -EQL-OK: NIL -(NOT (= 1/18 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10010")))) -EQL-OK: NIL -(NOT (= 1/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10011")))) -EQL-OK: NIL -(NOT (= 1/20 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10100")))) -EQL-OK: NIL -(NOT (= 1/21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10101")))) -EQL-OK: NIL -(NOT (= 1/22 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10110")))) -EQL-OK: NIL -(NOT (= 1/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10111")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10")))) -EQL-OK: NIL -(NOT (= 2/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/11")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/100")))) -EQL-OK: NIL -(NOT (= 2/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/101")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/110")))) -EQL-OK: NIL -(NOT (= 2/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/111")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1000")))) -EQL-OK: NIL -(NOT (= 2/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1001")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1010")))) -EQL-OK: NIL -(NOT (= 2/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1011")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1100")))) -EQL-OK: NIL -(NOT (= 2/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1101")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1110")))) -EQL-OK: NIL -(NOT (= 2/15 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1111")))) -EQL-OK: NIL -(NOT (= 1/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10000")))) -EQL-OK: NIL -(NOT (= 2/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10001")))) -EQL-OK: NIL -(NOT (= 1/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10010")))) -EQL-OK: NIL -(NOT (= 2/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10011")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10100")))) -EQL-OK: NIL -(NOT (= 2/21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10101")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10110")))) -EQL-OK: NIL -(NOT (= 2/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10111")))) -EQL-OK: NIL -(NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1")))) -EQL-OK: NIL -(NOT (= 3/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/11")))) -EQL-OK: NIL -(NOT (= 3/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/100")))) -EQL-OK: NIL -(NOT (= 3/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/101")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/110")))) -EQL-OK: NIL -(NOT (= 3/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/111")))) -EQL-OK: NIL -(NOT (= 3/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1000")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1001")))) -EQL-OK: NIL -(NOT (= 3/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1010")))) -EQL-OK: NIL -(NOT (= 3/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1011")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1100")))) -EQL-OK: NIL -(NOT (= 3/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1101")))) -EQL-OK: NIL -(NOT (= 3/14 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1110")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1111")))) -EQL-OK: NIL -(NOT (= 3/16 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10000")))) -EQL-OK: NIL -(NOT (= 3/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10001")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10010")))) -EQL-OK: NIL -(NOT (= 3/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10011")))) -EQL-OK: NIL -(NOT (= 3/20 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10100")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10101")))) -EQL-OK: NIL -(NOT (= 3/22 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10110")))) -EQL-OK: NIL -(NOT (= 3/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10111")))) -EQL-OK: NIL -(NOT (= 0 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "0/1")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/2")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/3")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/4")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/5")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/6")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/7")))) -EQL-OK: NIL -(NOT (= 1/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/10")))) -EQL-OK: NIL -(NOT (= 1/9 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/11")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/12")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/13")))) -EQL-OK: NIL -(NOT (= 1/12 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/14")))) -EQL-OK: NIL -(NOT (= 1/13 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/15")))) -EQL-OK: NIL -(NOT (= 1/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/16")))) -EQL-OK: NIL -(NOT (= 1/15 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/17")))) -EQL-OK: NIL -(NOT (= 1/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/20")))) -EQL-OK: NIL -(NOT (= 1/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/21")))) -EQL-OK: NIL -(NOT (= 1/18 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/22")))) -EQL-OK: NIL -(NOT (= 1/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/23")))) -EQL-OK: NIL -(NOT (= 1/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/24")))) -EQL-OK: NIL -(NOT (= 3/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/2")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/3")))) -EQL-OK: NIL -(NOT (= 3/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/4")))) -EQL-OK: NIL -(NOT (= 3/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/5")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/6")))) -EQL-OK: NIL -(NOT (= 3/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/7")))) -EQL-OK: NIL -(NOT (= 3/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/10")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/11")))) -EQL-OK: NIL -(NOT (= 3/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/12")))) -EQL-OK: NIL -(NOT (= 3/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/13")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/14")))) -EQL-OK: NIL -(NOT (= 3/13 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/15")))) -EQL-OK: NIL -(NOT (= 3/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/16")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/17")))) -EQL-OK: NIL -(NOT (= 3/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/20")))) -EQL-OK: NIL -(NOT (= 3/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/21")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/22")))) -EQL-OK: NIL -(NOT (= 3/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/23")))) -EQL-OK: NIL -(NOT (= 3/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/24")))) -EQL-OK: NIL -(NOT (= 13/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/2")))) -EQL-OK: NIL -(NOT (= 13/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/3")))) -EQL-OK: NIL -(NOT (= 13/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/4")))) -EQL-OK: NIL -(NOT (= 13/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/5")))) -EQL-OK: NIL -(NOT (= 13/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/6")))) -EQL-OK: NIL -(NOT (= 13/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/7")))) -EQL-OK: NIL -(NOT (= 13/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/10")))) -EQL-OK: NIL -(NOT (= 13/9 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/11")))) -EQL-OK: NIL -(NOT (= 13/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/12")))) -EQL-OK: NIL -(NOT (= 13/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/13")))) -EQL-OK: NIL -(NOT (= 13/12 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/14")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/15")))) -EQL-OK: NIL -(NOT (= 13/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/16")))) -EQL-OK: NIL -(NOT (= 13/15 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/17")))) -EQL-OK: NIL -(NOT (= 13/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/20")))) -EQL-OK: NIL -(NOT (= 13/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/21")))) -EQL-OK: NIL -(NOT (= 13/18 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/22")))) -EQL-OK: NIL -(NOT (= 13/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/23")))) -EQL-OK: NIL -(NOT (= 13/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/24")))) -EQL-OK: NIL -(NOT (= 0 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "0/1")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/2")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/3")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/4")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/5")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/6")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/7")))) -EQL-OK: NIL -(NOT (= 1/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/8")))) -EQL-OK: NIL -(NOT (= 1/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/9")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/A")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/B")))) -EQL-OK: NIL -(NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/C")))) -EQL-OK: NIL -(NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/D")))) -EQL-OK: NIL -(NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/E")))) -EQL-OK: NIL -(NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/F")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/a")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/b")))) -EQL-OK: NIL -(NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/c")))) -EQL-OK: NIL -(NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/d")))) -EQL-OK: NIL -(NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/e")))) -EQL-OK: NIL -(NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/f")))) -EQL-OK: NIL -(NOT (= 1/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/10")))) -EQL-OK: NIL -(NOT (= 1/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/11")))) -EQL-OK: NIL -(NOT (= 1/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/12")))) -EQL-OK: NIL -(NOT (= 1/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/13")))) -EQL-OK: NIL -(NOT (= 1/20 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/14")))) -EQL-OK: NIL -(NOT (= 1/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/15")))) -EQL-OK: NIL -(NOT (= 1/22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/16")))) -EQL-OK: NIL -(NOT (= 1/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/17")))) -EQL-OK: NIL -(NOT (= 1/24 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/18")))) -EQL-OK: NIL -(NOT (= 1/25 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/19")))) -EQL-OK: NIL -(NOT (= 1/26 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1A")))) -EQL-OK: NIL -(NOT (= 1/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1B")))) -EQL-OK: NIL -(NOT (= 1/28 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1C")))) -EQL-OK: NIL -(NOT (= 1/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1D")))) -EQL-OK: NIL -(NOT (= 1/30 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1E")))) -EQL-OK: NIL -(NOT (= 1/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1F")))) -EQL-OK: NIL -(NOT (= 1/32 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/20")))) -EQL-OK: NIL -(NOT (= 1/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/21")))) -EQL-OK: NIL -(NOT (= 1/34 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/22")))) -EQL-OK: NIL -(NOT (= 1/35 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/23")))) -EQL-OK: NIL -(NOT (= 1/36 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/24")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/2")))) -EQL-OK: NIL -(NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/3")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/4")))) -EQL-OK: NIL -(NOT (= 2/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/5")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/6")))) -EQL-OK: NIL -(NOT (= 2/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/7")))) -EQL-OK: NIL -(NOT (= 1/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/8")))) -EQL-OK: NIL -(NOT (= 2/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/9")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/A")))) -EQL-OK: NIL -(NOT (= 2/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/B")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/C")))) -EQL-OK: NIL -(NOT (= 2/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/D")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/E")))) -EQL-OK: NIL -(NOT (= 2/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/F")))) -EQL-OK: NIL -(NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/a")))) -EQL-OK: NIL -(NOT (= 2/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/b")))) -EQL-OK: NIL -(NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/c")))) -EQL-OK: NIL -(NOT (= 2/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/d")))) -EQL-OK: NIL -(NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/e")))) -EQL-OK: NIL -(NOT (= 2/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/f")))) -EQL-OK: NIL -(NOT (= 1/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/10")))) -EQL-OK: NIL -(NOT (= 2/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/11")))) -EQL-OK: NIL -(NOT (= 1/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/12")))) -EQL-OK: NIL -(NOT (= 2/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/13")))) -EQL-OK: NIL -(NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/14")))) -EQL-OK: NIL -(NOT (= 2/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/15")))) -EQL-OK: NIL -(NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/16")))) -EQL-OK: NIL -(NOT (= 2/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/17")))) -EQL-OK: NIL -(NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/18")))) -EQL-OK: NIL -(NOT (= 2/25 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/19")))) -EQL-OK: NIL -(NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1A")))) -EQL-OK: NIL -(NOT (= 2/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1B")))) -EQL-OK: NIL -(NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1C")))) -EQL-OK: NIL -(NOT (= 2/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1D")))) -EQL-OK: NIL -(NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1E")))) -EQL-OK: NIL -(NOT (= 2/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1F")))) -EQL-OK: NIL -(NOT (= 1/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/20")))) -EQL-OK: NIL -(NOT (= 2/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/21")))) -EQL-OK: NIL -(NOT (= 1/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/22")))) -EQL-OK: NIL -(NOT (= 2/35 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/23")))) -EQL-OK: NIL -(NOT (= 1/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/24")))) -EQL-OK: NIL -(NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/2")))) -EQL-OK: NIL -(NOT (= 10/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/3")))) -EQL-OK: NIL -(NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/4")))) -EQL-OK: NIL -(NOT (= 2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/5")))) -EQL-OK: NIL -(NOT (= 5/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/6")))) -EQL-OK: NIL -(NOT (= 10/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/7")))) -EQL-OK: NIL -(NOT (= 5/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/8")))) -EQL-OK: NIL -(NOT (= 10/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/9")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/A")))) -EQL-OK: NIL -(NOT (= 10/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/B")))) -EQL-OK: NIL -(NOT (= 5/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/C")))) -EQL-OK: NIL -(NOT (= 10/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/D")))) -EQL-OK: NIL -(NOT (= 5/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/E")))) -EQL-OK: NIL -(NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/F")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/a")))) -EQL-OK: NIL -(NOT (= 10/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/b")))) -EQL-OK: NIL -(NOT (= 5/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/c")))) -EQL-OK: NIL -(NOT (= 10/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/d")))) -EQL-OK: NIL -(NOT (= 5/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/e")))) -EQL-OK: NIL -(NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/f")))) -EQL-OK: NIL -(NOT (= 5/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/10")))) -EQL-OK: NIL -(NOT (= 10/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/11")))) -EQL-OK: NIL -(NOT (= 5/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/12")))) -EQL-OK: NIL -(NOT (= 10/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/13")))) -EQL-OK: NIL -(NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/14")))) -EQL-OK: NIL -(NOT (= 10/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/15")))) -EQL-OK: NIL -(NOT (= 5/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/16")))) -EQL-OK: NIL -(NOT (= 10/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/17")))) -EQL-OK: NIL -(NOT (= 5/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/18")))) -EQL-OK: NIL -(NOT (= 2/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/19")))) -EQL-OK: NIL -(NOT (= 5/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1A")))) -EQL-OK: NIL -(NOT (= 10/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1B")))) -EQL-OK: NIL -(NOT (= 5/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1C")))) -EQL-OK: NIL -(NOT (= 10/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1D")))) -EQL-OK: NIL -(NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1E")))) -EQL-OK: NIL -(NOT (= 10/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1F")))) -EQL-OK: NIL -(NOT (= 5/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/20")))) -EQL-OK: NIL -(NOT (= 10/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/21")))) -EQL-OK: NIL -(NOT (= 5/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/22")))) -EQL-OK: NIL -(NOT (= 2/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/23")))) -EQL-OK: NIL -(NOT (= 5/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/24")))) -EQL-OK: NIL -(NOT (= 35/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/2")))) -EQL-OK: NIL -(NOT (= 35/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/3")))) -EQL-OK: NIL -(NOT (= 35/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/4")))) -EQL-OK: NIL -(NOT (= 7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/5")))) -EQL-OK: NIL -(NOT (= 35/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/6")))) -EQL-OK: NIL -(NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/7")))) -EQL-OK: NIL -(NOT (= 35/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/8")))) -EQL-OK: NIL -(NOT (= 35/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/9")))) -EQL-OK: NIL -(NOT (= 7/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/A")))) -EQL-OK: NIL -(NOT (= 35/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/B")))) -EQL-OK: NIL -(NOT (= 35/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/C")))) -EQL-OK: NIL -(NOT (= 35/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/D")))) -EQL-OK: NIL -(NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/E")))) -EQL-OK: NIL -(NOT (= 7/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/F")))) -EQL-OK: NIL -(NOT (= 7/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/a")))) -EQL-OK: NIL -(NOT (= 35/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/b")))) -EQL-OK: NIL -(NOT (= 35/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/c")))) -EQL-OK: NIL -(NOT (= 35/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/d")))) -EQL-OK: NIL -(NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/e")))) -EQL-OK: NIL -(NOT (= 7/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/f")))) -EQL-OK: NIL -(NOT (= 35/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/10")))) -EQL-OK: NIL -(NOT (= 35/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/11")))) -EQL-OK: NIL -(NOT (= 35/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/12")))) -EQL-OK: NIL -(NOT (= 35/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/13")))) -EQL-OK: NIL -(NOT (= 7/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/14")))) -EQL-OK: NIL -(NOT (= 5/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/15")))) -EQL-OK: NIL -(NOT (= 35/22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/16")))) -EQL-OK: NIL -(NOT (= 35/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/17")))) -EQL-OK: NIL -(NOT (= 35/24 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/18")))) -EQL-OK: NIL -(NOT (= 7/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/19")))) -EQL-OK: NIL -(NOT (= 35/26 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1A")))) -EQL-OK: NIL -(NOT (= 35/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1B")))) -EQL-OK: NIL -(NOT (= 5/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1C")))) -EQL-OK: NIL -(NOT (= 35/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1D")))) -EQL-OK: NIL -(NOT (= 7/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1E")))) -EQL-OK: NIL -(NOT (= 35/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1F")))) -EQL-OK: NIL -(NOT (= 35/32 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/20")))) -EQL-OK: NIL -(NOT (= 35/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/21")))) -EQL-OK: NIL -(NOT (= 35/34 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/22")))) -EQL-OK: NIL -(NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/23")))) -EQL-OK: NIL -(NOT (= 35/36 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/24")))) -EQL-OK: NIL -(NOT (= 55 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/2")))) -EQL-OK: NIL -(NOT (= 110/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/3")))) -EQL-OK: NIL -(NOT (= 55/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/4")))) -EQL-OK: NIL -(NOT (= 22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/5")))) -EQL-OK: NIL -(NOT (= 55/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/6")))) -EQL-OK: NIL -(NOT (= 110/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/7")))) -EQL-OK: NIL -(NOT (= 55/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/8")))) -EQL-OK: NIL -(NOT (= 110/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/9")))) -EQL-OK: NIL -(NOT (= 11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/A")))) -EQL-OK: NIL -(NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/B")))) -EQL-OK: NIL -(NOT (= 55/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/C")))) -EQL-OK: NIL -(NOT (= 110/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/D")))) -EQL-OK: NIL -(NOT (= 55/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/E")))) -EQL-OK: NIL -(NOT (= 22/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/F")))) -EQL-OK: NIL -(NOT (= 11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/a")))) -EQL-OK: NIL -(NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/b")))) -EQL-OK: NIL -(NOT (= 55/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/c")))) -EQL-OK: NIL -(NOT (= 110/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/d")))) -EQL-OK: NIL -(NOT (= 55/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/e")))) -EQL-OK: NIL -(NOT (= 22/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/f")))) -EQL-OK: NIL -(NOT (= 55/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/10")))) -EQL-OK: NIL -(NOT (= 110/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/11")))) -EQL-OK: NIL -(NOT (= 55/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/12")))) -EQL-OK: NIL -(NOT (= 110/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/13")))) -EQL-OK: NIL -(NOT (= 11/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/14")))) -EQL-OK: NIL -(NOT (= 110/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/15")))) -EQL-OK: NIL -(NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/16")))) -EQL-OK: NIL -(NOT (= 110/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/17")))) -EQL-OK: NIL -(NOT (= 55/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/18")))) -EQL-OK: NIL -(NOT (= 22/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/19")))) -EQL-OK: NIL -(NOT (= 55/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1A")))) -EQL-OK: NIL -(NOT (= 110/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1B")))) -EQL-OK: NIL -(NOT (= 55/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1C")))) -EQL-OK: NIL -(NOT (= 110/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1D")))) -EQL-OK: NIL -(NOT (= 11/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1E")))) -EQL-OK: NIL -(NOT (= 110/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1F")))) -EQL-OK: NIL -(NOT (= 55/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/20")))) -EQL-OK: NIL -(NOT (= 10/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/21")))) -EQL-OK: NIL -(NOT (= 55/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/22")))) -EQL-OK: NIL -(NOT (= 22/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/23")))) -EQL-OK: NIL -(NOT (= 55/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/24")))) -EQL-OK: NIL -(NOT (= 1/101010101010101010101010101010101 (READ-FROM-STRING "11/1111111111111111111111111111111111"))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "0.0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+0.0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-0.0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING ".0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+.0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-.0"))) (AND (FLOATP F) (ZEROP F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1.0"))) (AND (FLOATP F) (= 1.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1.0"))) (AND (FLOATP F) (= 1.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1.0"))) (AND (FLOATP F) (= -1.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d+1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l+1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s+1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D+1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L+1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S+1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d-1"))) (AND (FLOATP F) (= 0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l-1"))) (AND (FLOATP F) (= 0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s-1"))) (AND (FLOATP F) (= 0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D-1"))) (AND (FLOATP F) (= 0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L-1"))) (AND (FLOATP F) (= 0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S-1"))) (AND (FLOATP F) (= 0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d+1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l+1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s+1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D+1"))) (AND (FLOATP F) (= 10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F+1"))) (AND (FLOATP F) (= 10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L+1"))) (AND (FLOATP F) (= 10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S+1"))) (AND (FLOATP F) (= 10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d-1"))) (AND (FLOATP F) (= 0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l-1"))) (AND (FLOATP F) (= 0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s-1"))) (AND (FLOATP F) (= 0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D-1"))) (AND (FLOATP F) (= 0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F-1"))) (AND (FLOATP F) (= 0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L-1"))) (AND (FLOATP F) (= 0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S-1"))) (AND (FLOATP F) (= 0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d1"))) (AND (FLOATP F) (= -10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l1"))) (AND (FLOATP F) (= -10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s1"))) (AND (FLOATP F) (= -10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D1"))) (AND (FLOATP F) (= -10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L1"))) (AND (FLOATP F) (= -10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S1"))) (AND (FLOATP F) (= -10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d+1"))) (AND (FLOATP F) (= -10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e+1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f+1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l+1"))) (AND (FLOATP F) (= -10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s+1"))) (AND (FLOATP F) (= -10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D+1"))) (AND (FLOATP F) (= -10.0d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E+1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F+1"))) (AND (FLOATP F) (= -10.0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L+1"))) (AND (FLOATP F) (= -10.0L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S+1"))) (AND (FLOATP F) (= -10.0s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d-1"))) (AND (FLOATP F) (= -0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e-1"))) (AND (FLOATP F) (= -0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f-1"))) (AND (FLOATP F) (= -0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l-1"))) (AND (FLOATP F) (= -0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s-1"))) (AND (FLOATP F) (= -0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D-1"))) (AND (FLOATP F) (= -0.1d0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E-1"))) (AND (FLOATP F) (= -0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F-1"))) (AND (FLOATP F) (= -0.1 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L-1"))) (AND (FLOATP F) (= -0.1L0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S-1"))) (AND (FLOATP F) (= -0.1s0 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d+10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l+10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s+10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D+10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L+10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S+10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1d-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1e-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1f-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1l-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1s-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1D-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1E-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1F-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1L-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "1S-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d+10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l+10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s+10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D+10"))) (AND (FLOATP F) (= 1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F+10"))) (AND (FLOATP F) (= 1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L+10"))) (AND (FLOATP F) (= 1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S+10"))) (AND (FLOATP F) (= 1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1d-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1e-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1f-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1l-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1s-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1D-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1E-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1F-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1L-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "+1S-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d10"))) (AND (FLOATP F) (= -1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l10"))) (AND (FLOATP F) (= -1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s10"))) (AND (FLOATP F) (= -1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D10"))) (AND (FLOATP F) (= -1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L10"))) (AND (FLOATP F) (= -1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S10"))) (AND (FLOATP F) (= -1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d+10"))) (AND (FLOATP F) (= -1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e+10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f+10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l+10"))) (AND (FLOATP F) (= -1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s+10"))) (AND (FLOATP F) (= -1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D+10"))) (AND (FLOATP F) (= -1.0d10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E+10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F+10"))) (AND (FLOATP F) (= -1.0E10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L+10"))) (AND (FLOATP F) (= -1.0L10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S+10"))) (AND (FLOATP F) (= -1.0s10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1d-10"))) (AND (FLOATP F) (= -1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1e-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1f-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1l-10"))) (AND (FLOATP F) (= -1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1s-10"))) (AND (FLOATP F) (= -1.0s-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1D-10"))) (AND (FLOATP F) (= -1.0d-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1E-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1F-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1L-10"))) (AND (FLOATP F) (= -1.0L-10 F)))) -EQL-OK: NIL -(NOT (LET ((F (READ-FROM-STRING "-1S-10"))) (AND (FLOATP F) (= -1.0s-10 F)))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-1.23"))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-823.0023D10"))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-324.0293E10"))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-12.0023F10"))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-911.823L10"))) -EQL-OK: NIL -(NOT (FLOATP (READ-FROM-STRING "-788.823S10"))) -EQL-OK: NIL -(NOT (EQ '|256| (READ-FROM-STRING "\\256"))) -EQL-OK: NIL -(NOT (EQ '|2564| (READ-FROM-STRING "25\\64"))) -EQL-OK: NIL -(NOT (EQ '|1.0E6| (READ-FROM-STRING "1.0\\E6"))) -EQL-OK: NIL -(NOT (EQ '|100| (READ-FROM-STRING "|100|"))) -EQL-OK: NIL -(NOT (EQ '|3.14159| (READ-FROM-STRING "3\\.14159"))) -EQL-OK: NIL -(NOT (EQ '|3/4| (READ-FROM-STRING "|3/4|"))) -EQL-OK: NIL -(NOT (EQ '|3/4| (READ-FROM-STRING "3\\/4"))) -EQL-OK: NIL -(NOT (EQ '|5| (READ-FROM-STRING "5||"))) -EQL-OK: NIL -(NOT (EQ '|5| (READ-FROM-STRING "||5"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "||567"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "5||67"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "56||7"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "567||"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "||5||6||7||"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "||||5||||6||||7||||"))) -EQL-OK: NIL -(NOT (EQ '|567| (READ-FROM-STRING "567||||||"))) -EQL-OK: NIL -(NOT (EQ '/ (READ-FROM-STRING "/"))) -EQL-OK: NIL -(NOT (EQ '/5 (READ-FROM-STRING "/5"))) -EQL-OK: NIL -(NOT (EQ '+ (READ-FROM-STRING "+"))) -EQL-OK: NIL -(NOT (EQ '1+ (READ-FROM-STRING "1+"))) -EQL-OK: NIL -(NOT (EQ '1- (READ-FROM-STRING "1-"))) -EQL-OK: NIL -(NOT (EQ 'FOO+ (READ-FROM-STRING "foo+"))) -EQL-OK: NIL -(NOT (EQ 'AB.CD (READ-FROM-STRING "ab.cd"))) -EQL-OK: NIL -(NOT (EQ '_ (READ-FROM-STRING "_"))) -EQL-OK: NIL -(NOT (EQ '^ (READ-FROM-STRING "^"))) -EQL-OK: NIL -(NOT (EQ '^/- (READ-FROM-STRING "^/-"))) -EQL-OK: NIL -(NOT (EQ :A (READ-FROM-STRING ":a"))) -EQL-OK: NIL -(NOT (EQ :B (READ-FROM-STRING ":b"))) -EQL-OK: NIL -(NOT (EQ :C (READ-FROM-STRING ":c"))) -EQL-OK: NIL -(NOT (EQ :D (READ-FROM-STRING ":d"))) -EQL-OK: NIL -(NOT (EQ :KEYWORD-SYMBOL (READ-FROM-STRING ":keyword-symbol"))) -EQL-OK: NIL -(NOT (EQ 'CDR (READ-FROM-STRING "cl::cdr"))) -EQL-OK: NIL -(NOT (EQ 'APPEND (READ-FROM-STRING "cl:append"))) -EQL-OK: NIL -(NOT (EQ 'APPEND (READ-FROM-STRING "cl-user::append"))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (MAKE-PACKAGE 'TEST-FOO :USE NIL) (HANDLER-CASE (READ-FROM-STRING "test-foo:no-such-symbol") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (MAKE-PACKAGE 'TEST-FOO :USE NIL) (AND (NOT (FIND-SYMBOL "NEW-ONE" "TEST-FOO")) (READ-FROM-STRING "test-foo::new-one") (FIND-SYMBOL "NEW-ONE" "TEST-FOO")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (LET ((*PACKAGE* (MAKE-PACKAGE 'TEST-FOO :USE NIL))) (READ-FROM-STRING "my-symbol")))) -EQL-OK: NIL -(NOT (STRING= " " (SYMBOL-NAME (READ-FROM-STRING "cl-user::\\ ")))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'NO-SUCH-PACKAGE) (DELETE-PACKAGE 'NO-SUCH-PACKAGE)) (HANDLER-CASE (READ-FROM-STRING "no-such-package::bar") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (WHEN (FIND-PACKAGE 'NO-SUCH-PACKAGE) (DELETE-PACKAGE 'NO-SUCH-PACKAGE)) (HANDLER-CASE (READ-FROM-STRING "no-such-package::no-such-symbol") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "FROBBOZ")))) -EQL-OK: NIL -(NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "frobboz")))) -EQL-OK: NIL -(NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "fRObBoz")))) -EQL-OK: NIL -(NOT (STRING= "UNWIND-PROTECT" (SYMBOL-NAME (READ-FROM-STRING "unwind-protect")))) -EQL-OK: NIL -(NOT (STRING= "+$" (SYMBOL-NAME (READ-FROM-STRING "+$")))) -EQL-OK: NIL -(NOT (STRING= "1+" (SYMBOL-NAME (READ-FROM-STRING "1+")))) -EQL-OK: NIL -(NOT (= 1 (READ-FROM-STRING "+1"))) -EQL-OK: NIL -(NOT (STRING= "PASCAL_STYLE" (SYMBOL-NAME (READ-FROM-STRING "pascal_style")))) -EQL-OK: NIL -(NOT (STRING= "FILE.REL.43" (SYMBOL-NAME (READ-FROM-STRING "file.rel.43")))) -EQL-OK: NIL -(NOT (STRING= "(" (SYMBOL-NAME (READ-FROM-STRING "\\(")))) -EQL-OK: NIL -(NOT (STRING= "+1" (SYMBOL-NAME (READ-FROM-STRING "\\+1")))) -EQL-OK: NIL -(NOT (STRING= "+1" (SYMBOL-NAME (READ-FROM-STRING "+\\1")))) -EQL-OK: NIL -(NOT (STRING= "fROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "\\frobboz")))) -EQL-OK: NIL -(NOT (STRING= "3.14159265s0" (SYMBOL-NAME (READ-FROM-STRING "3.14159265\\s0")))) -EQL-OK: NIL -(NOT (STRING= "3.14159265S0" (SYMBOL-NAME (READ-FROM-STRING "3.14159265\\S0")))) -EQL-OK: NIL -(NOT (STRING= "FOo" (SYMBOL-NAME (READ-FROM-STRING "fo\\o")))) -EQL-OK: NIL -(NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "APL\\\\360")))) -EQL-OK: NIL -(NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "apl\\\\360")))) -EQL-OK: NIL -(NOT (STRING= "(B^2)-4*A*C" (SYMBOL-NAME (READ-FROM-STRING "\\(b^2\\)\\-\\4*a*c")))) -EQL-OK: NIL -(NOT (STRING= "(b^2)-4*a*c" (SYMBOL-NAME (READ-FROM-STRING "\\(\\b^2\\)\\-\\4*\\a*\\c")))) -EQL-OK: NIL -(NOT (STRING= "\"" (SYMBOL-NAME (READ-FROM-STRING "|\"|")))) -EQL-OK: NIL -(NOT (STRING= "(b^2) - 4*a*c" (SYMBOL-NAME (READ-FROM-STRING "|(b^2) - 4*a*c|")))) -EQL-OK: NIL -(NOT (STRING= "frobboz" (SYMBOL-NAME (READ-FROM-STRING "|frobboz|")))) -EQL-OK: NIL -(NOT (STRING= "APL360" (SYMBOL-NAME (READ-FROM-STRING "|APL\\360|")))) -EQL-OK: NIL -(NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "|APL\\\\360|")))) -EQL-OK: NIL -(NOT (STRING= "apl\\360" (SYMBOL-NAME (READ-FROM-STRING "|apl\\\\360|")))) -EQL-OK: NIL -(NOT (STRING= "||" (SYMBOL-NAME (READ-FROM-STRING "|\\|\\||")))) -EQL-OK: NIL -(NOT (STRING= "(B^2) - 4*A*C" (SYMBOL-NAME (READ-FROM-STRING "|(B^2) - 4*A*C|")))) -EQL-OK: NIL -(NOT (STRING= "(b^2) - 4*a*c" (SYMBOL-NAME (READ-FROM-STRING "|(b^2) - 4*a*c|")))) -EQL-OK: NIL -(NOT (STRING= "." (SYMBOL-NAME (READ-FROM-STRING "\\.")))) -EQL-OK: NIL -(NOT (STRING= ".." (SYMBOL-NAME (READ-FROM-STRING "|..|")))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING "()"))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING "( )"))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING "( )"))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a)") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a)") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a )") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a )") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a b)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a #| |# b)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a #| |# b #| |# )") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a #| |# b -)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "( -a -b -)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a . b)") '(A . B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a . nil)") '(A))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a . (b))") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a . (b . (c . (d))))") '(A B C D))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(a .$b)"))) (AND (= 2 (LENGTH X)) (EQ (FIRST X) 'A) (EQ (SECOND X) '.$B)))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c . d)") (CONS 'A (CONS 'B (CONS 'C 'D))))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(this-one . that-one)") (CONS 'THIS-ONE 'THAT-ONE))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a b c d . (e f . (g)))") '(A B C D E F G))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30)") '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING ")") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a (b (c d)))") '(A (B (C D))))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "'a") ''A)) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "'(a b c)") ''(A B C))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "'''(a b c)") ''''(A B C))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "'(a 'b '('c))") ''(A 'B '('C)))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "'('('a '('b 'c)))") ''('('A '('B 'C))))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "''''''a") '''''''A)) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "' a") ''A)) -EQL-OK: NIL -(NOT (EQ 'QUOTE (EVAL (READ-FROM-STRING "(car ''foo)")))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "; comment -a") 'A)) -EQL-OK: NIL -(NOT (= 7 (EVAL (READ-FROM-STRING "(+ 3 ; three -4)")))) -EQL-OK: NIL -(NOT (EQ 'A (READ-FROM-STRING ";;;;;;; -a"))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a ;;;;;;; -b ;; -;; -c;;;;;;;;;;;;;;;;;;;;;;;;;;; -d)") '(A B C D))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a ; comment - ; - ; -; -b)") '(A B))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(a\\;b c)") '(|A;B| C))) -EQL-OK: NIL -(NOT (STRING= (READ-FROM-STRING "\"hello\"") "hello")) -EQL-OK: NIL -(NOT (STRING= (READ-FROM-STRING "\"\\\"hello\\\"\"") "\"hello\"")) -EQL-OK: NIL -(NOT (STRING= (READ-FROM-STRING "\"|hello|\"") "|hello|")) -EQL-OK: NIL -(NOT (STRING= "string" (READ-FROM-STRING " \"string\""))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "\"\\\\\""))) (AND (= 1 (LENGTH X)) (CHAR= #\\ (CHAR X 0))))) -EQL-OK: NIL -(NOT (STRING= " This is a sentence. " (READ-FROM-STRING "\" This is a sentence. \""))) -EQL-OK: NIL -(NOT (SIMPLE-STRING-P (READ-FROM-STRING "\"a simple string\""))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "\"\\\"\""))) (AND (= 1 (LENGTH X)) (CHAR= #\" (CHAR X 0))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "\"|\""))) (AND (= 1 (LENGTH X)) (CHAR= #\| (CHAR X 0))))) -EQL-OK: NIL -(NOT (EQ (EVAL (READ-FROM-STRING "`a")) 'A)) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,x))")) '(A 1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,`(,x)))")) '(A (1)))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a 0) (c 2) (d '(3))) `((,a b) ,c ,@d))")) '((0 B) 2 3))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a 0) (c 2) (d '(3 4 5))) `((,a b) ,c ,@d))")) '((0 B) 2 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a '(0 1)) (c 2) (d '(3 4 5))) - `((,a b) ,c ,@d))")) '(((0 1) B) 2 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a '(0 1)) (c 2) (d '(3 4 5))) - `((,@a b) ,c ,@d))")) '((0 1 B) 2 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`(a b ,`c)")) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(map 'list #'char-upcase \"bcd\") e f)")) '(A #\B #\C #\D E F))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . ,x))")) '(A . 1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x '(b c))) `(a . ,x))")) '(A B C))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x #(b c))) `(a . ,x))")) '(A . #(B C)))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c))) `#(a ,x))")) #(A (B C)))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 'b ) (y 'c)) `#(a ,x ,y))")) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c))) `#(a ,@x))")) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "`\"abc\"")) "abc")) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c)) (y '(d e)) (z '(f g))) `(a ,@x ,@y ,@z))")) '(A B C D E F G))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c)) (y 'd) (z '(e f g h))) `(a ,@x ,y ,@z))")) '(A B C D E F G H))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(mapcar #'char-downcase `(,(char-upcase #\\b) ,(char-upcase #\\c) ,(char-upcase #\\d))) e f)")) '(A #\b #\c #\d E F))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(map 'list #'char-downcase `#(,(char-upcase #\\b) ,(char-upcase #\\c) ,(char-upcase #\\d))) e f)")) '(A #\b #\c #\d E F))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a (,x)))")) '(A (1)))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ((,x))))")) '(A ((1))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a (((,x)))))")) '(A (((1)))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ((#(,x)))))")) '(A ((#(1)))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a #((#(,x)))))")) '(A #((#(1)))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `#(a #((#(,x)))))")) '#(A #((#(1)))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `(,x (,y) ((,z))))")) '(1 (2) ((3))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `((,x) ((,y)) (((,z)))))")) '((1) ((2)) (((3)))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `(((,x)) (((,y))) ((((,z))))))")) '(((1)) (((2))) ((((3))))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `((((,x))) ((((,y)))) (((((,z)))))))")) '((((1))) ((((2)))) (((((3)))))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#(,x (,y) ((,z))))")) '#(1 (2) ((3))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#((,x) ((,y)) (((,z)))))")) '#((1) ((2)) (((3)))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#(((,x)) (((,y))) ((((,z))))))")) '#(((1)) (((2))) ((((3))))))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#((((,x))) ((((,y)))) (((((,z)))))))")) '#((((1))) ((((2)))) (((((3)))))))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `'(,x))")) ''(1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `'(',x))")) ''('1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`'(','x))")) ''('X))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "`(a . b)")) '(A . B))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . ,x))")) '(A . 1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . (b . (,x))))")) '(A B 1))) -EQL-OK: NIL -(NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,x . z))")) '(A 1 . Z))) -EQL-OK: NIL -(NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a #(#(#(,x))) . z))")) '(A #(#(#(1))) . Z))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING ",") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "'(,x)") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "`(,(append ,x y))") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\a") #\a)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\b") #\b)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\c") #\c)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\d") #\d)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\e") #\e)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\f") #\f)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\g") #\g)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\h") #\h)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\i") #\i)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\j") #\j)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\k") #\k)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\l") #\l)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\m") #\m)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\n") #\n)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\o") #\o)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\p") #\p)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\q") #\q)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\r") #\r)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\s") #\s)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\t") #\t)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\u") #\u)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\v") #\v)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\w") #\w)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\x") #\x)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\y") #\y)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\z") #\z)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\A") #\A)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\B") #\B)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\C") #\C)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\D") #\D)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\E") #\E)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\F") #\F)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\G") #\G)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\H") #\H)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\I") #\I)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\J") #\J)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\K") #\K)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\L") #\L)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\M") #\M)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\N") #\N)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\O") #\O)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\P") #\P)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\Q") #\Q)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\R") #\R)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\S") #\S)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\T") #\T)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\U") #\U)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\V") #\V)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\W") #\W)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\X") #\X)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\Y") #\Y)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\Z") #\Z)) -EQL-OK: NIL -(NOT (NOT (CHAR= (READ-FROM-STRING "#\\Z") (READ-FROM-STRING "#\\z")))) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\0") #\0)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\1") #\1)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\2") #\2)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\3") #\3)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\4") #\4)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\5") #\5)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\6") #\6)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\7") #\7)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\8") #\8)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\9") #\9)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\!") #\!)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\$") #\$)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\\"") #\")) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\'") #\')) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\(") #\()) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\)") #\))) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\,") #\,)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\_") #\_)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\-") #\-)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\.") #\.)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\/") #\/)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\:") #\:)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\;") #\;)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\?") #\?)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\+") #\+)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\<") #\<)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\=") #\=)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\>") #\>)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\#") #\#)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\%") #\%)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\&") #\&)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\*") #\*)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\@") #\@)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\[") #\[)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\\\") #\\)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\]") #\])) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\{") #\{)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\|") #\|)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\}") #\})) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\`") #\`)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\^") #\^)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\~") #\~)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\newline") #\Newline)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\space") #\ )) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\Newline") #\Newline)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\Space") #\ )) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\NeWlInE") #\Newline)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\SpAcE") #\ )) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\NEWLINE") #\Newline)) -EQL-OK: NIL -(NOT (CHAR= (READ-FROM-STRING "#\\SPACE") #\ )) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "#'car") '#'CAR)) -EQL-OK: NIL -(NOT (EQ (EVAL (READ-FROM-STRING "#'car")) #'CAR)) -EQL-OK: NIL -(NOT (SIMPLE-VECTOR-P (READ-FROM-STRING "#(a)"))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a)") #(A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#()") #())) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b)") #(A B))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c)") #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c d)") #(A B C D))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c d e)") #(A B C D E))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c d e f)") #(A B C D E F))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c d e f g)") #(A B C D E F G))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#(a b c c c c)") #(A B C C C C))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6(a b c c c c)") #(A B C C C C))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6(a b c)") #(A B C C C C))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6(a b c c)") #(A B C C C C))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#(a b c)"))) (= 3 (LENGTH X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#()"))) (AND (SIMPLE-VECTOR-P X) (ZEROP (LENGTH X)) (EQUALP X #())))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#0()"))) (AND (SIMPLE-VECTOR-P X) (ZEROP (LENGTH X)) (EQUALP X #())))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#1(a)") #(A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#2(a b)") #(A B))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#3(a b c)") #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#4(a b c d)") #(A B C D))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#5(a b c d e)") #(A B C D E))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6(a b c d e f)") #(A B C D E F))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#2(a)") #(A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#3(a)") #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#4(a)") #(A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#5(a)") #(A A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6(a)") #(A A A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#7(a)") #(A A A A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#8(a)") #(A A A A A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#9(a)") #(A A A A A A A A A))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#10(a)") #(A A A A A A A A A A))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#100(a)"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'SYMBOLP X) (EVERY #'(LAMBDA (S) (EQ S 'A)) X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#100(#\\z)"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'CHARACTERP X) (EVERY #'(LAMBDA (C) (CHAR= C #\z)) X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#100(#())"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'SIMPLE-VECTOR-P X) (EVERY #'(LAMBDA (V) (ZEROP (LENGTH V))) X)))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*0") #*0)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*1") #*1)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*01") #*01)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*10") #*10)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*11") #*11)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#0*") #*)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*") #*)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#3*1") #*111)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#3*10") #*100)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#*101111") #*101111)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6*101111") #*101111)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6*101") #*101111)) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#6*1011") #*101111)) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#*10"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 2 (LENGTH X)) (= 1 (BIT X 0)) (= 0 (BIT X 1))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#*"))) (AND (SIMPLE-BIT-VECTOR-P X) (ZEROP (LENGTH X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#100*0"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'ZEROP X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#100*1"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'(LAMBDA (N) (= 1 N)) X)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "#3*1110") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "#3*") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "#3*abc") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:ok"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "OK")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:g10"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "G10")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:10"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "10")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:0"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "0")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:-"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "-")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:\\-"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "-")))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (READ-FROM-STRING "#:$$-$$"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "$$-$$")))) -EQL-OK: NIL -(NOT (EQ 'A (READ-FROM-STRING "#.'a"))) -EQL-OK: NIL -(NOT (PACKAGEP (READ-FROM-STRING "#.*package*"))) -EQL-OK: NIL -(NOT (= 11 (READ-FROM-STRING "#.(let ((x 10)) (1+ x))"))) -EQL-OK: NIL -(NOT (= 4 (READ-FROM-STRING "#.(1+ 3)"))) -EQL-OK: NIL -(NOT (HANDLER-CASE (LET ((*READ-EVAL* NIL)) (READ-FROM-STRING "#.(1+ 3)")) (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQUAL '(A B . 3) (READ-FROM-STRING "#.(let ((x 3)) `(a b . ,x))"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#b0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#B0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#b01") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#B01") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#B1101") 13)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#b101/11") 5/3)) -EQL-OK: NIL -(NOT (= 172236929 (READ-FROM-STRING "#b1010010001000010000010000001"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#O0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o37/15") 31/13)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o777") 511)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o105") 69)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#O37/15") 31/13)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#O777") 511)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#O105") 69)) -EQL-OK: NIL -(NOT (= 342391 (READ-FROM-STRING "#o1234567"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#x0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#xF00") 3840)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#x105") 261)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#X0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#XF00") 3840)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#Xf00") 3840)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#X105") 261)) -EQL-OK: NIL -(NOT (= 81985529216486895 (READ-FROM-STRING "#X0123456789ABCDEF"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#3r0") 0)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#2r11010101") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#b11010101") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#b+11010101") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o325") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#xD5") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#16r+D5") 213)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#o-300") -192)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#3r-21010") -192)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#25R-7H") -192)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#xACCEDED") 181202413)) -EQL-OK: NIL -(NOT (ZEROP (READ-FROM-STRING "#c(0 0)"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#c(1 0)") 1)) -EQL-OK: NIL -(NOT (COMPLEXP (READ-FROM-STRING "#c(1 10)"))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#c(1 0)") 1)) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#c(0 1)") #C(0 1))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#c(1 1)") #C(1 1))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#C(3.0s1 2.0s-1)") #C(30.0s0 0.2s0))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#C(5 -3)") #C(5 -3))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#C(5/3 7.0)") #C(5/3 7.0))) -EQL-OK: NIL -(NOT (= (READ-FROM-STRING "#C(0 1)") #C(0 1))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#1A(0 1)") #(0 1))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1A(0 1)"))) (AND (VECTORP X) (= 2 (LENGTH X)) (= 0 (AREF X 0)) (= 1 (AREF X 1))))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#2A((0 1 5) (foo 2 (hot dog)))") #2A((0 1 5) (FOO 2 (HOT DOG))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#2A((0 1 5) (foo 2 (hot dog)))"))) (AND (ARRAYP X) (EQUAL (ARRAY-DIMENSIONS X) '(2 3)) (ZEROP (AREF X 0 0)) (= (AREF X 0 1) 1) (= (AREF X 0 2) 5) (EQ (AREF X 1 0) 'FOO) (= (AREF X 1 1) 2) (EQUAL (AREF X 1 2) '(HOT DOG))))) -EQL-OK: NIL -(NOT (EQUAL (AREF (READ-FROM-STRING "#0A((0 1 5) (foo 2 (hot dog)))")) '((0 1 5) (FOO 2 (HOT DOG))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#0A((0 1 5) (foo 2 (hot dog)))"))) (AND (ARRAYP X) (NULL (ARRAY-DIMENSIONS X)) (EQUAL (AREF X) '((0 1 5) (FOO 2 (HOT DOG))))))) -EQL-OK: NIL -(NOT (EQUALP (READ-FROM-STRING "#0A foo") #0AFOO)) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#0A foo"))) (AND (ARRAYP X) (NULL (ARRAY-DIMENSIONS X)) (EQ (AREF X) 'FOO)))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (READ-FROM-STRING "#3A((() ()) (() ()) (() ()))")) '(3 2 0))) -EQL-OK: NIL -(NOT (EQUAL (ARRAY-DIMENSIONS (READ-FROM-STRING "#10A(() ())")) '(2 0 0 0 0 0 0 0 0 0))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING " -#4A((((0 1 2 3) (4 5 6 7) (8 9 10 11)) - ((12 13 14 15) (16 17 18 19) (20 21 22 23))))"))) (AND (ARRAYP X) (EQUAL (ARRAY-DIMENSIONS X) '(1 2 3 4)) (LOOP FOR I BELOW 24 ALWAYS (= I (ROW-MAJOR-AREF X I)))))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "#1=a") 'A)) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(#1=a #1#)") '(A A))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=(a . #1#)"))) (EQ X (CDR X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "((a b) . #1=(#2=(p q) foo #2# . #1#))"))) (AND (EQ (NTHCDR 1 X) (NTHCDR 4 X)) (EQ (NTHCDR 4 X) (NTHCDR 7 X)) (EQ (NTHCDR 7 X) (NTHCDR 10 X)) (EQ (NTH 1 X) (NTH 3 X)) (EQ (NTH 3 X) (NTH 6 X)) (EQ (NTH 6 X) (NTH 9 X)) (EQ (NTH 9 X) (NTH 12 X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(#1=(a . #1#) #2=(#1# . #2#))"))) (AND (EQ (CAR X) (CAADR X)) (EQ (CAR X) (CDAR X)) (EQ (CADR X) (CDADR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #1#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #2#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #3#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 #1# #2# #3#)"))) (AND (= 4 (LENGTH X)) (ZEROP (FIRST X)) (EQ X (SECOND X)) (EQ X (THIRD X)) (EQ X (FOURTH X))))) -EQL-OK: NIL -(NOT (EQUAL (READ-FROM-STRING "(#1000=a #1000#)") '(A A))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(#1=#:g10 #1#)"))) (AND (= 2 (LENGTH X)) (STRING= (SYMBOL-NAME (FIRST X)) "G10") (EQ (FIRST X) (SECOND X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=(a (b #2=(x y z) . #1#) . #2#)"))) (AND (EQ (FIRST X) 'A) (EQ X (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(#1=(a (b #2=(x y z) . #1#) . #2#))"))) (AND (EQ (CAAR X) 'A) (EQ (CAR X) (CDDR (SECOND (FIRST X)))) (EQ (SECOND (SECOND (FIRST X))) (CDDR (FIRST X)))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=(a #2=(b #3=(c . #3#) . #2#) . #1#)"))) (AND (EQ (FIRST X) 'A) (EQ (FIRST (SECOND X)) 'B) (EQ (FIRST (SECOND (SECOND X))) 'C) (EQ X (CDDR X)) (EQ (SECOND X) (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDR (SECOND (SECOND X))))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=(a #2=(b #3=(c . #1#) . #2#) . #3#)"))) (AND (EQ (FIRST X) 'A) (EQ (FIRST (SECOND X)) 'B) (EQ (FIRST (SECOND (SECOND X))) 'C) (EQ X (CDR (SECOND (SECOND X)))) (EQ (SECOND X) (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(#1=#(0 1 2) #1#)"))) (AND (= 2 (LENGTH X)) (EQ (FIRST X) (SECOND X)) (EQUALP (FIRST X) #(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#1# 1 2)"))) (AND (= 3 (LENGTH X)) (EQ (AREF X 0) X) (= (AREF X 1) 1) (= (AREF X 2) 2)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#(#1=#:g00 a b #1#)"))) (AND (= 4 (LENGTH X)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (EQ (AREF X 0) (AREF X 3)) (EQ (AREF X 1) 'A) (EQ (AREF X 2) 'B)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#:g00 a #2# #1#)"))) (AND (= 4 (LENGTH X)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (EQ X (AREF X 3)) (EQ (AREF X 0) (AREF X 2)) (EQ (AREF X 1) 'A)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#1# #1# #1#)"))) (AND (= 3 (LENGTH X)) (EQ X (AREF X 0)) (EQ (AREF X 0) (AREF X 1)) (EQ (AREF X 1) (AREF X 2))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#(#1#))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (EQ X (AREF (AREF X 0) 0))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#(#3=#(#3# #2# #1#))))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 3 (LENGTH (AREF (AREF X 0) 0))) (EQ X (AREF (AREF (AREF X 0) 0) 2)) (EQ (AREF X 0) (AREF (AREF (AREF X 0) 0) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF (AREF X 0) 0) 0))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#(#3=#(#1# #2# #3#))))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 3 (LENGTH (AREF (AREF X 0) 0))) (EQ X (AREF (AREF (AREF X 0) 0) 0)) (EQ (AREF X 0) (AREF (AREF (AREF X 0) 0) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF (AREF X 0) 0) 2))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(#1=#(0 #2=#:g100 2) #2# #1#)"))) (AND (= 3 (LENGTH X)) (EQ (FIRST X) (THIRD X)) (STRING= (SYMBOL-NAME (AREF (FIRST X) 1)) "G100") (NULL (SYMBOL-PACKAGE (AREF (FIRST X) 1))) (EQ (AREF (FIRST X) 1) (SECOND X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "(a #1=#(0 (#1#) 2) c)"))) (AND (= 3 (LENGTH X)) (EQ (FIRST X) 'A) (EQ (SECOND X) (FIRST (AREF (SECOND X) 1))) (EQ (THIRD X) 'C) (= 0 (AREF (SECOND X) 0)) (= 2 (AREF (SECOND X) 2))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2A((a b) (c #1#))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) 'A) (EQ (AREF X 0 1) 'B) (EQ (AREF X 1 0) 'C) (EQ (AREF X 1 1) X)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#2A((#1=#:G10 b) (#1# d))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) (AREF X 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0))) (STRING= (SYMBOL-NAME (AREF X 0 0)) "G10") (EQ (AREF X 0 1) 'B) (EQ (AREF X 1 1) 'D)))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#2A((#2=#:GG #1#) (#2# #1#))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) (AREF X 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0))) (STRING= "GG" (SYMBOL-NAME (AREF X 0 0))) (EQ X (AREF X 0 1)) (EQ X (AREF X 1 1))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#0A#1#"))) (AND (ARRAYP X) (EQ X (AREF X))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#0A(#1#)"))) (AND (ARRAYP X) (CONSP (AREF X)) (= 1 (LENGTH (AREF X))) (EQ X (FIRST (AREF X)))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#1A(#1#)"))) (AND (VECTORP X) (= 1 (LENGTH X)) (EQ X (AREF X 0))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#1A(#2=(a b c) #1# #2#)"))) (AND (VECTORP X) (= 3 (LENGTH X)) (EQUAL (AREF X 0) '(A B C)) (EQ (AREF X 0) (AREF X 2)) (EQ X (AREF X 1))))) -EQL-OK: NIL -(NOT (LET ((X (READ-FROM-STRING "#1=#3A(((0 a) (1 b) (2 c)) - ((3 d) (4 #2A((41 #2=#(x y z)) (43 #1#))) (5 f)) - ((6 g) (((#2#)) h) (9 i)))"))) (AND (= 18 (ARRAY-TOTAL-SIZE X)) (= 0 (AREF X 0 0 0)) (EQ 'A (AREF X 0 0 1)) (= 1 (AREF X 0 1 0)) (EQ 'B (AREF X 0 1 1)) (= 2 (AREF X 0 2 0)) (EQ 'C (AREF X 0 2 1)) (= 3 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 4 (AREF X 1 1 0)) (= (ARRAY-TOTAL-SIZE (AREF X 1 1 1)) 4) (= 41 (AREF (AREF X 1 1 1) 0 0)) (EQUALP (AREF (AREF X 1 1 1) 0 1) #(X Y Z)) (= 43 (AREF (AREF X 1 1 1) 1 0)) (EQ X (AREF (AREF X 1 1 1) 1 1)) (= 5 (AREF X 1 2 0)) (EQ 'F (AREF X 1 2 1)) (= 6 (AREF X 2 0 0)) (EQ 'G (AREF X 2 0 1)) (EQ (CAAR (AREF X 2 1 0)) (AREF (AREF X 1 1 1) 0 1)) (EQ 'H (AREF X 2 1 1)) (= 9 (AREF X 2 2 0)) (EQ 'I (AREF X 2 2 1))))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+test1 a #-test1 b") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(B)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+test1 a #-test1 b") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(A)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) -EQL-OK: NIL -(NOT (LET ((*FEATURES* '(:TEST1 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "#| comment |# a") 'A)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "#| #| nested comment |# |# a") 'A)) -EQL-OK: NIL -(NOT (EQ (READ-FROM-STRING "#| comment -comment - still comment -|# a") 'A)) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "#") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "# ") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "# -") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "#)") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Cat-And-Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Cat-And-Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Cat*And*Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Cat*And*Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM)) (EQ #\ (READ-CHAR STREAM)) (EQ #\b (READ-CHAR STREAM))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM " ") (READ STREAM)) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((X NIL)) (AND (EQ T (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM "a") (SETQ X (READ STREAM)) (READ STREAM)) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (EQ X 'A)))) -EQL-OK: NIL -(NOT (PROGN (LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-MACRO-CHARACTER #\/ #'(LAMBDA (STREAM CHAR) (DECLARE (IGNORE CHAR)) `(PATH . ,(LOOP FOR DIR = (READ-PRESERVING-WHITESPACE STREAM T) THEN (PROGN (READ-CHAR STREAM T NIL T) (READ-PRESERVING-WHITESPACE STREAM T)) COLLECT DIR WHILE (EQL (PEEK-CHAR NIL STREAM NIL NIL T) #\/))))) (EQUAL (READ-FROM-STRING "(zyedh /usr/games/zork /usr/games/boggle)") '(ZYEDH (PATH USR GAMES ZORK) (PATH USR GAMES BOGGLE)))))) -EQL-OK: NIL -(NOT (PROGN (LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-MACRO-CHARACTER #\/ #'(LAMBDA (STREAM CHAR) (DECLARE (IGNORE CHAR)) `(PATH . ,(LOOP FOR DIR = (READ STREAM T) THEN (PROGN (READ-CHAR STREAM T NIL T) (READ STREAM T)) COLLECT DIR WHILE (EQL (PEEK-CHAR NIL STREAM NIL NIL T) #\/))))) (EQUAL (READ-FROM-STRING "(zyedh /usr/games/zork /usr/games/boggle)") '(ZYEDH (PATH USR GAMES ZORK USR GAMES BOGGLE)))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (SET-SYNTAX-FROM-CHAR #\7 #\;)) (= 1235 (READ-FROM-STRING "123579"))))) -EQL-OK: NIL -(NOT (READTABLEP *READTABLE*)) -EQL-OK: NIL -(NOT (READTABLEP (COPY-READTABLE))) -EQL-OK: NIL -(NOT (READTABLEP (COPY-READTABLE NIL))) -EQL-OK: NIL -(NOT (READTABLEP (COPY-READTABLE NIL (COPY-READTABLE)))) -EQL-OK: NIL -(NOT (LET ((TO (COPY-READTABLE))) (EQ TO (COPY-READTABLE NIL TO)))) -EQL-OK: NIL -(NOT (LET ((ZVAR 123) (TABLE2 (COPY-READTABLE))) (DECLARE (SPECIAL ZVAR)) (AND (= ZVAR 123) (SET-SYNTAX-FROM-CHAR #\z #\' TABLE2) (= ZVAR 123) (LET ((*READTABLE* TABLE2)) (AND (EQUAL ''VAR (READ-FROM-STRING "zvar")) (SETQ *READTABLE* (COPY-READTABLE)) (EQUAL ''VAR (READ-FROM-STRING "zvar")) (SETQ *READTABLE* (COPY-READTABLE NIL)) (= 123 (EVAL (READ-FROM-STRING "zvar")))))))) -EQL-OK: NIL -(NOT (NOT (EQ (COPY-READTABLE) *READTABLE*))) -EQL-OK: NIL -(NOT (NOT (EQ (COPY-READTABLE) (COPY-READTABLE)))) -EQL-OK: NIL -(NOT (NOT (EQ (COPY-READTABLE NIL) *READTABLE*))) -EQL-OK: NIL -(NOT (NOT (EQ (COPY-READTABLE NIL) (COPY-READTABLE NIL)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (HANDLER-CASE (READ-FROM-STRING "# STREAM T)) T) (SET-MACRO-CHARACTER #\> (GET-MACRO-CHARACTER #\))) (EQUAL '(A B) (READ-FROM-STRING ""))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (SETF (READTABLE-CASE *READTABLE*) :INVERT) (SET-MACRO-CHARACTER #\< #'(LAMBDA (STREAM C) (DECLARE (IGNORE C)) (READ-DELIMITED-LIST #\> STREAM T))) (SET-MACRO-CHARACTER #\> (GET-MACRO-CHARACTER #\))) (WITH-INPUT-FROM-STRING (STREAM "xyzjKl") (AND (EQ 'XYZ (READ STREAM)) (EQUAL '(|a| B) (READ STREAM)) (EQ '|jKl| (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GET-MACRO-CHARACTER #\{)) '(NIL NIL)) (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (GET-MACRO-CHARACTER #\{)))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (EQ 'A (READ-FROM-STRING "{$a"))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ (READ STREAM)) (EQ 'A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ T)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ{$A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) -EQL-OK: NIL -(NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ NIL TABLE)) (LET ((*READTABLE* TABLE)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T)) TABLE) (LET ((*READTABLE* TABLE)) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ (READ STREAM)) (EQ 'A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END)))))))) -EQL-OK: NIL -(NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ T TABLE)) (LET ((*READTABLE* TABLE)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T)) TABLE) (LET ((*READTABLE* TABLE)) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ{$A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END)))))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ STREAM T) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ-PRESERVING-WHITESPACE STREAM T) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ STREAM T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ-PRESERVING-WHITESPACE STREAM T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (EQ 'END (READ STREAM NIL 'END)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (EQ 'END (READ-PRESERVING-WHITESPACE STREAM NIL 'END)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM T NIL NIL)) (EQUAL (LOOP FOR C = (READ-CHAR STREAM NIL NIL) WHILE C COLLECTING C) '(#\ #\ #\b))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM T NIL)) (EQUAL (LOOP FOR C = (READ-CHAR STREAM NIL NIL) WHILE C COLLECTING C) '(#\ #\ #\b))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "ok") (LET ((*STANDARD-INPUT* STREAM)) (EQ 'OK (READ))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "ok") (LET ((*STANDARD-INPUT* STREAM)) (EQ 'OK (READ-PRESERVING-WHITESPACE))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (NULL (READ NIL NIL))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (NULL (READ-PRESERVING-WHITESPACE NIL NIL))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a b") (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a b") (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a (b") (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a (b") (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b)") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* ")") (NULL (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b )") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* " a b )") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* " a b ) ") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b c d e f g h i j k l m n o p q r)") (EQUAL '(A B C D E F G H I J K L M N O P Q R) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a (b) c (d) e f g h i j (k l m ) n o p q r)") (EQUAL '(A (B) C (D) E F G H I J (K L M) N O P Q R) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a x\\)x b)") (EQUAL '(A |X)X| B) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b) xyz") (AND (EQUAL '(A B) (READ-DELIMITED-LIST #\))) (EQ 'XYZ (READ))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car)") (EQUAL '(A #'CAR) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car ;; -d #| e f |# g -z)") (EQUAL '(A #'CAR D G Z) (READ-DELIMITED-LIST #\))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car ;; -d #| e f |# g -z) -xyz") (AND (EQUAL '(A #'CAR D G Z) (READ-DELIMITED-LIST #\))) (EQ 'XYZ (READ))))) -EQL-OK: NIL -(NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "1 2 3 4 5 6 ]") (EQUAL (READ-DELIMITED-LIST #\]) '(1 2 3 4 5 6)))) -EQL-OK: NIL -(NOT (GET-MACRO-CHARACTER #\) NIL)) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE NIL)) (F #'(LAMBDA (STREAM CHAR ARG) (DECLARE (IGNORE CHAR ARG)) (MAPCON #'(LAMBDA (X) (MAPCAR #'(LAMBDA (Y) (LIST (CAR X) Y)) (CDR X))) (READ-DELIMITED-LIST #\} STREAM T))))) (SET-DISPATCH-MACRO-CHARACTER #\# #\{ F) (GET-MACRO-CHARACTER #\) NIL) (SET-MACRO-CHARACTER #\} (GET-MACRO-CHARACTER #\) NIL)) (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "#{ p q z a}") (EQUAL (READ) '((P Q) (P Z) (P A) (Q Z) (Q A) (Z A)))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM "1 2 3 . 4)") (READ-DELIMITED-LIST #\) STREAM T)) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\( NIL)) -EQL-OK: NIL -(NOT (SET-SYNTAX-FROM-CHAR #\z #\' (COPY-READTABLE NIL) NIL)) -EQL-OK: NIL -(NOT (EQUAL '(ABC 3) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "abc")))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "") (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "" T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQ 'END (READ-FROM-STRING "" NIL 'END))) -EQL-OK: NIL -(NOT (EQUAL '(B 5) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "(a b c)" T NIL :START 2 :END 6)))) -EQL-OK: NIL -(NOT (EQUAL '(B 4) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "(a b c)" T NIL :START 2 :PRESERVE-WHITESPACE T)))) -EQL-OK: NIL -(NOT (NULL (READ-FROM-STRING "" NIL))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING " a b" T NIL :START 3) (AND (EQ THING 'B) (OR (= POS 4) (= POS 5))))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING "abcdefg" T NIL :END 2) (AND (EQ THING 'AB) (OR (= POS 2) (= POS 3))))) -EQL-OK: NIL -(NOT (EQUAL '(IJK 3) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "ijk xyz" T NIL :PRESERVE-WHITESPACE T)))) -EQL-OK: NIL -(NOT (EQUAL '(DEF 7) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "abc def ghi" T NIL :START 4 :END 9 :PRESERVE-WHITESPACE T)))) -EQL-OK: NIL -(NOT (= 3 (READ-FROM-STRING " 1 3 5" T NIL :START 2))) -EQL-OK: NIL -(NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING "(a b c)") (AND (EQUAL THING '(A B C)) (OR (= POS 7) (= POS 8))))) -EQL-OK: NIL -(NOT (HANDLER-CASE (READ-FROM-STRING "(a b") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (PROGN (HANDLER-CASE (READ-FROM-STRING "# -(NOT (EQL (LENGTH "abc") 3)) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-ARRAY '(3) :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abc" :FILL-POINTER T))) (AND (EQL (LENGTH STR) 3) (EQL (SETF (FILL-POINTER STR) 2) 2) (EQL (LENGTH STR) 2)))) -EQL-OK: NIL -(NOT (ZEROP (LENGTH #*))) -EQL-OK: NIL -(NOT (ZEROP (LENGTH ""))) -EQL-OK: NIL -(NOT (ZEROP (LENGTH #()))) -EQL-OK: NIL -(NOT (ZEROP (LENGTH NIL))) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0)) 1)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1)) 2)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1 2)) 3)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1 2 3)) 4)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1 2 3 4)) 5)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1 2 3 4 5)) 6)) -EQL-OK: NIL -(NOT (EQL (LENGTH '(0 1 2 3 4 5 6)) 7)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0)) 1)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1)) 2)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1 2)) 3)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1 2 3)) 4)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1 2 3 4)) 5)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1 2 3 4 5)) 6)) -EQL-OK: NIL -(NOT (EQL (LENGTH #(0 1 2 3 4 5 6)) 7)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-ARRAY 100)) 100)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-SEQUENCE 'LIST 20)) 20)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-SEQUENCE 'STRING 10)) 10)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-SEQUENCE 'BIT-VECTOR 3)) 3)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-SEQUENCE 'BIT-VECTOR 64)) 64)) -EQL-OK: NIL -(NOT (EQL (LENGTH (MAKE-SEQUENCE 'SIMPLE-VECTOR 64)) 64)) -EQL-OK: NIL -(NOT (STRING= (COPY-SEQ "love") "love")) -EQL-OK: NIL -(NOT (EQUALP (COPY-SEQ '#(A B C D)) '#(A B C D))) -EQL-OK: NIL -(NOT (EQUALP (COPY-SEQ '#*01010101) '#*01010101)) -EQL-OK: NIL -(NOT (EQUAL (COPY-SEQ '(LOVE)) '(LOVE))) -EQL-OK: NIL -(NOT (EQUAL (COPY-SEQ '(LOVE HATE WAR PEACE)) '(LOVE HATE WAR PEACE))) -EQL-OK: NIL -(NOT (NULL (COPY-SEQ NIL))) -EQL-OK: NIL -(NOT (STRING= (COPY-SEQ "") "")) -EQL-OK: NIL -(NOT (LET* ((SEQ0 "love&peace") (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (STRING= SEQ0 SEQ)))) -EQL-OK: NIL -(NOT (LET* ((SEQ0 (LIST 'LOVE 'AND 'PEACE)) (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (EQUAL SEQ0 SEQ)))) -EQL-OK: NIL -(NOT (LET* ((C0 (LIST 'LOVE)) (C1 (LIST 'PEACE)) (SEQ (COPY-SEQ (LIST C0 C1)))) (AND (EQUAL SEQ '((LOVE) (PEACE))) (EQ (CAR SEQ) C0) (EQ (CADR SEQ) C1)))) -EQL-OK: NIL -(NOT (LET* ((SEQ0 '#(T NIL T NIL)) (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (EQUALP SEQ SEQ0)))) -EQL-OK: NIL -(NOT (VECTORP (COPY-SEQ (VECTOR)))) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ #*))) -EQL-OK: NIL -(NOT (SIMPLE-VECTOR-P (COPY-SEQ (VECTOR)))) -EQL-OK: NIL -(NOT (SIMPLE-VECTOR-P (COPY-SEQ (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-ELEMENT NIL)))) -EQL-OK: NIL -(NOT (SIMPLE-VECTOR-P (COPY-SEQ (VECTOR 0 1)))) -EQL-OK: NIL -(NOT (SIMPLE-STRING-P (COPY-SEQ "xyz"))) -EQL-OK: NIL -(NOT (SIMPLE-STRING-P (COPY-SEQ (MAKE-ARRAY 3 :DISPLACED-TO "0123456789" :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (SIMPLE-STRING-P (COPY-SEQ (MAKE-ARRAY 20 :FILL-POINTER T :ELEMENT-TYPE 'BASE-CHAR :INITIAL-ELEMENT #\ )))) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ #*0101))) -EQL-OK: NIL -(NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ (MAKE-ARRAY 30 :FILL-POINTER 3 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)))) -EQL-OK: NIL -(NOT (LET* ((VEC0 (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-CONTENTS "0123456789")) (VEC (COPY-SEQ VEC0))) (AND (SIMPLE-VECTOR-P VEC) (= (LENGTH VEC) 3) (EQUALP VEC #(#\0 #\1 #\2))))) -EQL-OK: NIL -(NOT (CHAR= (ELT "0123456789" 6) #\6)) -EQL-OK: NIL -(NOT (EQ (ELT #(A B C D E F G) 0) 'A)) -EQL-OK: NIL -(NOT (EQ (ELT '(A B C D E F G) 4) 'E)) -EQL-OK: NIL -(NOT (ZEROP (ELT #*0101010 0))) -EQL-OK: NIL -(NOT (DOTIMES (I 10 T) (UNLESS (CHAR= (ELT "0123456789" I) (DIGIT-CHAR I)) (RETURN NIL)))) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "0123456789"))) (AND (CHAR= (ELT STR 6) #\6) (SETF (ELT STR 0) #\#) (STRING= STR "#123456789")))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (= (ELT LIST 2) 2) (SETF (ELT LIST 1) 9) (= (ELT LIST 1) 9) (EQUAL LIST '(0 9 2 3))))) -EQL-OK: NIL -(NOT (LET ((BV #*0101010101)) (DOTIMES (I 10 T) (UNLESS (= (ELT BV I) (IF (EVENP I) 0 1)) (RETURN NIL))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 'A 'B 'C))) (AND (EQ (ELT VEC 0) 'A) (EQ (ELT VEC 1) 'B) (EQ (ELT VEC 2) 'C)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST 'NIL) LIST) (EVERY 'NULL LIST)))) -EQL-OK: NIL -(NOT (LET ((VECTOR (VECTOR 'X 'Y 'Z))) (AND (EQ (FILL VECTOR 'A) VECTOR) (EVERY #'(LAMBDA (ARG) (EQ ARG 'A)) VECTOR)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 2) LIST) (EQUAL LIST '(0 1 9 9))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 1 :END 3) LIST) (EQUAL LIST '(0 9 9 3))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 1 :END NIL) LIST) (EQUAL LIST '(0 9 9 9))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :END 1) LIST) (EQUAL LIST '(9 1 2 3))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 3) VECTOR) (EQUALP VECTOR '#(0 1 2 T))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 2 :END 4) VECTOR) (EQUALP VECTOR '#(0 1 T T))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 2 :END NIL) VECTOR) (EQUALP VECTOR '#(0 1 T T))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :END 3) VECTOR) (EQUALP VECTOR '#(T T T 3))))) -EQL-OK: NIL -(NOT (NULL (MAKE-SEQUENCE 'LIST 0))) -EQL-OK: NIL -(NOT (STRING= (MAKE-SEQUENCE 'STRING 26 :INITIAL-ELEMENT #\.) "..........................")) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE '(VECTOR DOUBLE-FLOAT) 2 :INITIAL-ELEMENT 1.0d0) #(1.0d0 1.0d0))) -EQL-OK: NIL -(NOT (EQUAL (MAKE-SEQUENCE 'LIST 3 :INITIAL-ELEMENT 'A) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (MAKE-SEQUENCE 'CONS 3 :INITIAL-ELEMENT 'A) '(A A A))) -EQL-OK: NIL -(NOT (NULL (MAKE-SEQUENCE 'NULL 0 :INITIAL-ELEMENT 'A))) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE '(VECTOR * *) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE '(VECTOR T *) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) -EQL-OK: NIL -(NOT (STRING= (MAKE-SEQUENCE '(STRING 3) 3 :INITIAL-ELEMENT '#\a) "aaa")) -EQL-OK: NIL -(NOT (STRING= (MAKE-SEQUENCE 'STRING 4 :INITIAL-ELEMENT '#\z) "zzzz")) -EQL-OK: NIL -(NOT (STRING= (MAKE-SEQUENCE '(VECTOR CHARACTER 3) 3 :INITIAL-ELEMENT '#\a) "aaa")) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE '(ARRAY T 1) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) -EQL-OK: NIL -(NOT (EQUALP (MAKE-SEQUENCE '(ARRAY T (3)) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) -EQL-OK: NIL -(NOT (VECTORP (MAKE-SEQUENCE 'VECTOR 10))) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "012345" 2) "2345")) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "012345" 3 5) "34")) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "012345"))) (AND (SETF (SUBSEQ STR 4) "abc") (STRING= STR "0123ab")))) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "012345"))) (SETF (SUBSEQ STR 0 2) "A") (STRING= STR "A12345"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 0) '(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 1) '(1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 2) '(2 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 3) '(3))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 4) 'NIL)) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(A B C D) 0) #(A B C D))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(A B C D) 1) #(B C D))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(A B C D) 2) #(C D))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(A B C D) 3) #(D))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(A B C D) 4) #())) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "0123" 0) "0123")) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "0123" 1) "123")) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "0123" 2) "23")) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "0123" 3) "3")) -EQL-OK: NIL -(NOT (STRING= (SUBSEQ "0123" 4) "")) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #*1010 0) #*1010)) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #*1010 1) #*010)) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #*1010 2) #*10)) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #*1010 3) #*0)) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #*1010 4) #*)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 4) '(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 NIL) '(0 1 2 3))) -EQL-OK: NIL -(NOT (LET* ((LIST0 '(0 1 2 3)) (LIST (SUBSEQ LIST0 0 4))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 LIST)))) -EQL-OK: NIL -(NOT (LET* ((LIST0 '(0 1 2 3)) (LIST (SUBSEQ LIST0 0 NIL))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 LIST)))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 1 3) '(1 2))) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 2 2) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 0) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 1 1) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 2 2) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 3 3) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSEQ '(0 1 2 3) 4 4) 'NIL)) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) '(A B C D)) (EQUAL LIST '(A B C D 4 5 6 7)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) '(A B C D)) (EQUAL LIST '(A B C D)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) '(A B C D)) (EQUAL LIST '(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) '(A B C D)) (EQUAL LIST '(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) '(A B C D)) (EQUAL LIST '(0 A B 3)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) 'NIL) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST 'NIL)) (SETF (SUBSEQ LIST 0) '(A B C D E)) (NULL LIST))) -EQL-OK: NIL -(NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 0 0) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 1 1) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 2 2) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 3 3) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 4 4) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) #(A B C D)) (EQUAL LIST '(A B C D 4 5 6 7)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) #(A B C D)) (EQUAL LIST '(A B C D)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) #(A B C D)) (EQUAL LIST '(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) #(A B C D)) (EQUAL LIST '(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) #(A B C D)) (EQUAL LIST '(0 A B 3)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) #()) (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) "abcd") (EQUAL LIST '(#\a #\b #\c #\d 4 5 6 7)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) "abcd") (EQUAL LIST '(#\a #\b #\c #\d)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) "abcd") (EQUAL LIST '(0 1 #\a #\b)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) "abcd") (EQUAL LIST '(0 1 #\a #\b)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) "abcd") (EQUAL LIST '(0 #\a #\b 3)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) "") (EQUAL LIST '(0 1 2 3)))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 4) #(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 NIL) #(0 1 2 3))) -EQL-OK: NIL -(NOT (LET* ((VEC0 #(0 1 2 3)) (VEC (SUBSEQ VEC0 0 4))) (AND (NOT (EQ VEC0 VEC)) (EQUALP VEC0 VEC)))) -EQL-OK: NIL -(NOT (LET* ((VEC0 #(0 1 2 3)) (VEC (SUBSEQ VEC0 0 NIL))) (AND (NOT (EQ VEC0 VEC)) (EQUALP VEC0 VEC)))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 1 3) #(1 2))) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 2 2) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 0) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 1 1) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 2 2) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 3 3) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSEQ #(0 1 2 3) 4 4) #())) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D 4 5 6 7)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2) #(A B C D)) (EQUALP VEC #(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 3) #(A B C D)) (EQUALP VEC #(0 A B 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #()) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR))) (SETF (SUBSEQ VEC 0) #(A B C D E)) (EQUALP VEC #()))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0 0) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 1) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2 2) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 3 3) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 4 4) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D 4 5 6 7)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2) #(A B C D)) (EQUALP VEC #(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2 NIL) #(A B C D)) (EQUALP VEC #(0 1 A B)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 3) #(A B C D)) (EQUALP VEC #(0 A B 3)))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #()) (EQUALP VEC #(0 1 2 3)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAP 'SYMBOL #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAP 'HASH-TABLE #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (X Y) (CHAR "01234567890ABCDEF" (MOD (+ X Y) 16))) '(1 2 3 4) '(10 9 8 7)) "AAAA")) -EQL-OK: NIL -(NOT (LET ((SEQ (LIST "lower" "UPPER" "" "123"))) (AND (NULL (MAP NIL #'NSTRING-UPCASE SEQ)) (EQUAL SEQ '("LOWER" "UPPER" "" "123"))))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'- '(1 2 3 4)) '(-1 -2 -3 -4))) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (X) (IF (ODDP X) #\1 #\0)) '(1 2 3 4)) "1010")) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST '+ '(0 1) '(1 0)) '(1 1))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST '- '(0 1) '(1 0)) '(-1 1))) -EQL-OK: NIL -(NOT (EVERY 'NULL (LIST (MAP 'LIST #'+ 'NIL) (MAP 'LIST #'+ 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL 'NIL 'NIL)))) -EQL-OK: NIL -(NOT (EVERY 'NULL (LIST (MAP 'LIST #'+ 'NIL) (MAP 'LIST #'+ #() 'NIL) (MAP 'LIST #'+ 'NIL #() 'NIL) (MAP 'LIST #'+ #() 'NIL #() 'NIL) (MAP 'LIST #'+ 'NIL #() 'NIL #() 'NIL)))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3)) '(1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4)) '(3 6 9))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5)) '(6 10 14))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(1 2) '(1 2 3)) '(2 4))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(2 3) '(2 3 4)) '(4 7))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2) '(3 4 5)) '(6))) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (MAP 'CONS #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) -EQL-OK: NIL -(NOT (EQUAL (MAP '(CONS NUMBER CONS) #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) -EQL-OK: NIL -(NOT (EQUAL (MAP '(CONS NUMBER (CONS NUMBER *)) #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) -EQL-OK: NIL -(NOT (NULL (MAP 'NULL #'+ 'NIL))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #() #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #() #() #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #() #() #() #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #() #() #() #() #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ 'NIL #()) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ 'NIL #() "") #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2)) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3)) #(1 3 5))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) '(1 2 3) #(2 3 4)) #(3 6 9))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3) '(2 3 4) #(3 4 5)) #(6 10 14))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(1 2) '(1 2 3)) #(2 4))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(2 3) '(2 3 4)) #(4 7))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(1 2 3) '(2) '(3 4 5)) #(6))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5) 'NIL) #())) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #(1 2) #(1 2 3)) #(2 4))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) #(2 3) #(2 3 4)) #(4 7))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) '(1 2 3) #(2) '(3 4 5)) #(6))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3) '(2 3 4) '(3 4 5) 'NIL) #())) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "" "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "" "" "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" 'NIL) "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" #() 'NIL) "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) 'NIL 'NIL "" "") "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) #() #() #() #() #()) "")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (A B) (IF (CHAR< A B) B A)) "axbycz" "xaybzc") "xxyyzz")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (A B) (IF (CHAR< A B) B A)) "axbycz" "xayb") "xxyy")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) '(0 1 0 1) #*1010101) "0000")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1010101 #*001) "001")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1010101 #*0) "0")) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1000 #*1011) "1000")) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1 2 3 4))) (EQUAL LIST '(7 5 3 1))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1 2 3 4) '(2 3 4 5))) (EQUAL LIST (REVERSE '(3 6 9 12)))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1) '(2 3 4 5))) (EQUAL LIST '(3))))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(VECTOR * 2) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-VECTOR 2) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(ARRAY * 1) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-ARRAY * 1) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(ARRAY * (2)) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-ARRAY * (2)) #'+ #*01 #*10) #(1 1))) -EQL-OK: NIL -(NOT (STRING= (MAP 'STRING #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP 'BASE-STRING #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP 'SIMPLE-STRING #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(STRING 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(BASE-STRING 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(SIMPLE-STRING 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR CHARACTER) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR CHARACTER 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR BASE-CHAR) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR BASE-CHAR 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR STANDARD-CHAR) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(VECTOR STANDARD-CHAR 3) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY CHARACTER 1) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY CHARACTER (3)) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY BASE-CHAR 1) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY BASE-CHAR (3)) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY STANDARD-CHAR 1) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (STRING= (MAP '(ARRAY STANDARD-CHAR (3)) #'CHAR-UPCASE "abc") "ABC")) -EQL-OK: NIL -(NOT (EQUALP (MAP 'BIT-VECTOR #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP 'SIMPLE-BIT-VECTOR #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(BIT-VECTOR 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-BIT-VECTOR 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(ARRAY BIT 1) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(ARRAY BIT (4)) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-ARRAY BIT 1) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(SIMPLE-ARRAY BIT (4)) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(VECTOR BIT) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (MAP '(VECTOR BIT 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) -EQL-OK: NIL -(NOT (EQUAL (MAP 'LIST #'+ '(0 1 2 3) #(3 2 1 0) #*0101) '(3 4 3 4))) -EQL-OK: NIL -(NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2 3) #(3 2 1 0) #*0101) #(3 4 3 4))) -EQL-OK: NIL -(NOT (LET ((A (LIST 1 2 3 4)) (B (LIST 10 10 10 10))) (AND (EQUAL (MAP-INTO A #'+ A B) '(11 12 13 14)) (EQUAL A '(11 12 13 14)) (EQUAL B '(10 10 10 10))))) -EQL-OK: NIL -(NOT (LET ((A '(11 12 13 14)) (K '(ONE TWO THREE))) (EQUAL (MAP-INTO A #'CONS K A) '((ONE . 11) (TWO . 12) (THREE . 13) 14)))) -EQL-OK: NIL -(NOT (NULL (MAP-INTO NIL 'IDENTITY))) -EQL-OK: NIL -(NOT (NULL (MAP-INTO NIL #'IDENTITY))) -EQL-OK: NIL -(NOT (NULL (MAP-INTO NIL #'IDENTITY 'NIL))) -EQL-OK: NIL -(NOT (NULL (MAP-INTO NIL #'IDENTITY '(0 1 2) '(9 8 7)))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2))) (AND (EQ (MAP-INTO LIST 'IDENTITY LIST) LIST) (EQUAL LIST '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((LIST (LIST 0 1 2))) (AND (EQ (MAP-INTO LIST 'IDENTITY 'NIL) LIST) (EQUAL LIST '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC 'IDENTITY VEC) VEC) (EQUALP VEC #(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC 'IDENTITY #()) VEC) (EQUALP VEC #(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC #'+ #() 'NIL #()) VEC) (EQUALP VEC #(0 1 2))))) -EQL-OK: NIL -(NOT (EQUAL (MAP-INTO (LIST NIL NIL) '+ '(0 1) '(1 0)) '(1 1))) -EQL-OK: NIL -(NOT (EQUAL (MAP-INTO (LIST NIL NIL) '- '(0 1) '(1 0)) '(-1 1))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2)) LIST) (EQUAL LIST '(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2) '(1 2 3)) LIST) (EQUAL LIST '(1 3 5))))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4)) LIST) (EQUAL LIST '(3 6 9))))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2) '(1 2 3)) LIST) (EQUAL LIST '(2 4 NIL))))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 1 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2 3) '(1 2 3)) LIST) (EQUAL LIST '(2))))) -EQL-OK: NIL -(NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2 3 4) '(1 2 3) '(0)) LIST) (EQUAL LIST '(2 NIL NIL))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2)) VEC) (EQUALP VEC #(0 1 2))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2) #(1 2 3)) VEC) (EQUALP VEC #(1 3 5))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2) '(1 2 3) #(2 3 4)) VEC) (EQUALP VEC #(3 6 9))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2) #(1 2 3)) VEC) (EQUALP VEC #(2 4 NIL))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 1 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2) #(1 2 3)) VEC) (EQUALP VEC #(2))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2 3 4) #(1 2 3) '(0)) VEC) (EQUALP VEC #(2 NIL NIL))))) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "0123456789" :FILL-POINTER 3))) (AND (EQ (MAP-INTO STR #'CHAR-UPCASE "abcde") STR) (STRING= STR "ABCDE") (= (FILL-POINTER STR) 5)))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 5 :INITIAL-CONTENTS #(0 1 2 3 4) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2 3 4 5 6 7 8 9) '(9 8 7 6 5 4 3 2 1 0)) VEC) (EQUALP VEC #(9 9 9 9 9))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 5 :INITIAL-CONTENTS #(0 1 2 3 4) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'+ '(0 1) '(9 8 7 6 5 4 3 2 1 0)) VEC) (EQUALP VEC #(9 9))))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 5 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #(1 1 1 1 1) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'LOGAND '(0 1) '(1 0 1 0 1 0)) VEC) (EQUALP VEC #*00)))) -EQL-OK: NIL -(NOT (EQL (REDUCE #'* '(1 2 3 4 5)) 120)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'APPEND '((1) (2)) :INITIAL-VALUE '(I N I T)) '(I N I T 1 2))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'APPEND '((1) (2)) :FROM-END T :INITIAL-VALUE '(I N I T)) '(1 2 I N I T))) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- '(1 2 3 4)) -8)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- '(1 2 3 4) :FROM-END T) -2)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'+ 'NIL) 0)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'+ '(3)) 3)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'+ '(FOO)) 'FOO)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(1 2 3 4)) '(((1 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :FROM-END T) '(1 (2 (3 4))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :INITIAL-VALUE 'FOO) '((((FOO 1) 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :FROM-END T :INITIAL-VALUE 'FOO) '(1 (2 (3 (4 FOO)))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3)) '(((0 1) 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 1) '((1 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 1 :END NIL) '((1 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 2) '(2 3))) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 0 :END 0) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 0 :END 0 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 2 :END 2) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 2 :END 2 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 4 :END 4) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 4 :END 4 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'LIST '(0 1 2 3) :START 2 :END 3) 2)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 2 :END 3 :INITIAL-VALUE 'INITIAL-VALUE) '(INITIAL-VALUE 2))) -EQL-OK: NIL -(NOT (EQL (REDUCE #'+ '(0 1 2 3 4 5 6 7 8 9)) 45)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- '(0 1 2 3 4 5 6 7 8 9)) -45)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- '(0 1 2 3 4 5 6 7 8 9) :FROM-END T) -5)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :INITIAL-VALUE 'INITIAL-VALUE) '((((INITIAL-VALUE 0) 1) 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :FROM-END T) '(0 (1 (2 3))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR) '(((1 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END NIL) '(((1 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :INITIAL-VALUE 0) '((((0 1) 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END T) '(1 (2 (3 4))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END T :INITIAL-VALUE 5) '(1 (2 (3 (4 5)))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3)) '(((0 1) 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 1) '((1 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 1 :END NIL) '((1 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 2) '(2 3))) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 0 :END 0) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 0 :END 0 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 2 :END 2) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 2 :END 2 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 4 :END 4) 'NIL)) -EQL-OK: NIL -(NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 4 :END 4 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'LIST #(0 1 2 3) :START 2 :END 3) 2)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 2 :END 3 :INITIAL-VALUE 'INITIAL-VALUE) '(INITIAL-VALUE 2))) -EQL-OK: NIL -(NOT (EQL (REDUCE #'+ #(0 1 2 3 4 5 6 7 8 9)) 45)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- #(0 1 2 3 4 5 6 7 8 9)) -45)) -EQL-OK: NIL -(NOT (EQL (REDUCE #'- #(0 1 2 3 4 5 6 7 8 9) :FROM-END T) -5)) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :INITIAL-VALUE 'INITIAL-VALUE) '((((INITIAL-VALUE 0) 1) 2) 3))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :FROM-END T) '(0 (1 (2 3))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR) '(((1 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END NIL) '(((1 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :INITIAL-VALUE 0) '((((0 1) 2) 3) 4))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END T) '(1 (2 (3 4))))) -EQL-OK: NIL -(NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END T :INITIAL-VALUE 5) '(1 (2 (3 (4 5)))))) -EQL-OK: NIL -(NOT (STRING= (REDUCE #'(LAMBDA (&REST REST) (CONCATENATE 'STRING (STRING (CAR REST)) (STRING (CHAR-UPCASE (CADR REST))))) "abcdefg" :INITIAL-VALUE #\Z) "ZABCDEFG")) -EQL-OK: NIL -(NOT (EQL (COUNT #\a "how many A's are there in here?") 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'ODDP '((1) (2) (3) (4)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'UPPER-CASE-P "The Crying of Lot 49" :START 4) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT #\a (CONCATENATE 'LIST "how many A's are there in here?")) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ALPHA-CHAR-P "-a-b-c-0-1-2-3-4-") 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ALPHANUMERICP "-a-b-c-0-1-2-3-4-") 8)) -EQL-OK: NIL -(NOT (EQL (COUNT 'NIL '(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT 'NIL #(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT 9 '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 'A '(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT 0 '(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT #\a "abcABC" :TEST #'EQUALP) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT #\a "abcABC" :TEST #'CHAR-EQUAL) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT '(A) '((X) (Y) (Z) (A) (B) (C)) :TEST #'EQUALP) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT #\a "abcABC" :TEST-NOT (COMPLEMENT #'EQUALP)) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT #\a "abcABC" :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 2)) -EQL-OK: NIL -(NOT (EQL (COUNT '(A) '((X) (Y) (Z) (A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUALP)) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT 'A '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :TEST #'EQ) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT 'NIL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR :TEST #'EQ) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A '(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B))) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A '(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B)) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 9 #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 'A #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT 0 #(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT '(A) #((X) (Y) (Z) (A) (B) (C)) :TEST #'EQUALP) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT '(A) #((X) (Y) (Z) (A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUALP)) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT 'A #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :TEST #'EQ) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT 'NIL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR :TEST #'EQ) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A #(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B))) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A #(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B)) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'NULL '(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'(LAMBDA (X) (EQL X 9)) #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'(LAMBDA (A) (EQ 'X A)) #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUALP #\a X)) "abcABC") 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (CHAR-EQUAL #\a X)) "abcABC") 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) '((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF 'NULL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) '((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'NULL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) '(A B C D)) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) '(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'NULL #(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) #((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'NULL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) #((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF #'NULL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) #(A B C D)) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) #(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQL X 9))) #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT #'(LAMBDA (A) (NOT (EQ 'X A))) #(0 1 2 3 4)))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUALP #\a X))) "abcABC") 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (CHAR-EQUAL #\a X))) "abcABC") 2)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) '((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) '((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) '(A B C D)) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) '(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #(T NIL T NIL T NIL)) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 1) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 1 :END NIL) 4)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 2) 3)) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 0 :END 0))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 2 :END 2))) -EQL-OK: NIL -(NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 4 :END 4))) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 2 :END 3) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) #((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) #((X) (Y) (Z) (A) (B) (C))) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) #(A B C D)) 1) (EQUAL LIST '(D C B A))))) -EQL-OK: NIL -(NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) #(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) -EQL-OK: NIL -(NOT (NULL (REVERSE NIL))) -EQL-OK: NIL -(NOT (STRING= (REVERSE "") "")) -EQL-OK: NIL -(NOT (EQUALP (REVERSE #*) #*)) -EQL-OK: NIL -(NOT (EQUALP (REVERSE #()) #())) -EQL-OK: NIL -(NOT (EQUAL (REVERSE '(0 1 2 3)) '(3 2 1 0))) -EQL-OK: NIL -(NOT (STRING= (REVERSE "0123") "3210")) -EQL-OK: NIL -(NOT (EQUALP (REVERSE #*1100) #*0011)) -EQL-OK: NIL -(NOT (EQUALP (REVERSE #(A B C D)) #(D C B A))) -EQL-OK: NIL -(NOT (NULL (NREVERSE NIL))) -EQL-OK: NIL -(NOT (STRING= (NREVERSE (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (EQUALP (NREVERSE (COPY-SEQ #*)) #*)) -EQL-OK: NIL -(NOT (EQUALP (NREVERSE (COPY-SEQ #())) #())) -EQL-OK: NIL -(NOT (EQUAL (NREVERSE (LIST 0 1 2 3)) '(3 2 1 0))) -EQL-OK: NIL -(NOT (STRING= (NREVERSE (COPY-SEQ "0123")) "3210")) -EQL-OK: NIL -(NOT (EQUALP (REVERSE (COPY-SEQ #*1100)) #*0011)) -EQL-OK: NIL -(NOT (EQUALP (REVERSE (COPY-SEQ #(A B C D))) #(D C B A))) -EQL-OK: NIL -(NOT (CHAR= (FIND #\d "edcba" :TEST #'CHAR>) #\c)) -EQL-OK: NIL -(NOT (EQL (FIND-IF #'ODDP '(1 2 3 4 5) :END 3 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'COMPLEXP '#(3.5 2 #C(1.0 0.0) #C(0.0 1.0)) :START 2))) -EQL-OK: NIL -(NOT (EQ (FIND 'A '(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B '(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C '(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND 'X '(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'B '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'C '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND 'A '(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B '(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C '(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND 'A '(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B '(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C '(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND 'A '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND 'B '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'C '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B '((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C '((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND 'A LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND 'B LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND 'C LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND 'Z LIST :KEY #'CAR))))) -EQL-OK: NIL -(NOT (NULL (FIND '(A) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND '(A) '((A) (B) (C)) :TEST #'EQUAL) '(A))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") '(("a") ("b") ("c"))))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") '(("A") ("B") ("c")) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQUAL (FIND '("a") '(("A") ("B") ("c")) :TEST #'EQUALP) '("A"))) -EQL-OK: NIL -(NOT (EQ (FIND 'NIL '(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 'FIRST)) -EQL-OK: NIL -(NOT (EQL (FIND 3 '(0 1 2 3 4 5)) 3)) -EQL-OK: NIL -(NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST #'<) 4)) -EQL-OK: NIL -(NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST #'>) 0)) -EQL-OK: NIL -(NOT (EQUAL (FIND '(A) '((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (EQUAL (FIND '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) '("A"))) -EQL-OK: NIL -(NOT (EQ (FIND 'NIL '(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 'FIRST)) -EQL-OK: NIL -(NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) -EQL-OK: NIL -(NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND #\c '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "bcd")) -EQL-OK: NIL -(NOT (EQ (FIND 'A #(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B #(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C #(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND 'X #(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'B #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'C #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND 'A #(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B #(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C #(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND 'A #(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND 'B #(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND 'C #(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND 'A #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND 'B #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND 'C #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B #((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C #((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND 'A VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND 'B VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND 'C VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND 'Z VECTOR :KEY #'CAR))))) -EQL-OK: NIL -(NOT (NULL (FIND '(A) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND '(A) #((A) (B) (C)) :TEST #'EQUAL) '(A))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") #(("a") ("b") ("c"))))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") #(("A") ("B") ("c")) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQUAL (FIND '("a") #(("A") ("B") ("c")) :TEST #'EQUALP) '("A"))) -EQL-OK: NIL -(NOT (EQ (FIND 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 'FIRST)) -EQL-OK: NIL -(NOT (EQL (FIND 3 #(0 1 2 3 4 5)) 3)) -EQL-OK: NIL -(NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST #'<) 4)) -EQL-OK: NIL -(NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST #'>) 0)) -EQL-OK: NIL -(NOT (EQUAL (FIND '(A) #((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A))) -EQL-OK: NIL -(NOT (NULL (FIND '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (EQUAL (FIND '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) '("A"))) -EQL-OK: NIL -(NOT (EQ (FIND 'NIL #(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 'FIRST)) -EQL-OK: NIL -(NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) -EQL-OK: NIL -(NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND #\c #("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "bcd")) -EQL-OK: NIL -(NOT (NULL (FIND #\z "abcABC"))) -EQL-OK: NIL -(NOT (EQL (FIND #\a "abcABC") #\a)) -EQL-OK: NIL -(NOT (EQL (FIND #\A "abcABC") #\A)) -EQL-OK: NIL -(NOT (EQL (FIND #\A "abcABC" :TEST #'CHAR-EQUAL) #\a)) -EQL-OK: NIL -(NOT (EQL (FIND #\A "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) #\A)) -EQL-OK: NIL -(NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) #\A)) -EQL-OK: NIL -(NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 4) #\A)) -EQL-OK: NIL -(NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 3) #\a)) -EQL-OK: NIL -(NOT (ZEROP (FIND 0 #*01))) -EQL-OK: NIL -(NOT (EQL (FIND 1 #*01) 1)) -EQL-OK: NIL -(NOT (NULL (FIND 0 #*01 :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND 1 #*01 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND 0 #*000001 :START 5))) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (ARG) (EQ ARG 'X)) '(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) LIST :KEY #'CAR))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (ARG) (EQ ARG 'X)) #(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) VECTOR :KEY #'CAR))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) LIST :KEY #'CAR))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C)) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C)) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C)) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A B C)))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END NIL) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END NIL) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END NIL) 'C)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 1) 'A)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 2) 'B)) -EQL-OK: NIL -(NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 3) 'C)) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) VECTOR :KEY #'CAR))))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) -EQL-OK: NIL -(NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) -EQL-OK: NIL -(NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) -EQL-OK: NIL -(NOT (EQL (POSITION #\a "baobab" :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'ODDP '((1) (2) (3) (4)) :START 1 :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 595 'NIL))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'INTEGERP '(1 2 3 4 5.0)) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'X '(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'B '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'C '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '(A B C) :END NIL) '0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '(A B C) :END NIL) '1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '(A B C) :END NIL) '2)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '(A B C) :END 1) '0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '(A B C) :END 2) '1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '(A B C) :END 3) '2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION 'B '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'C '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION '(A) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION '(A) '((A) (B) (C)) :TEST #'EQUAL) 0)) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") '(("a") ("b") ("c"))))) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") '(("A") ("B") ("c")) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (POSITION '("a") '(("A") ("B") ("c")) :TEST #'EQUALP) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'NIL '(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 '(0 1 2 3 4 5)) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST #'<) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST #'>) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION '(A) '((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) 0)) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (EQL (POSITION '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'NIL '(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION #\c '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'X #(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'B #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'C #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #(A B C) :END NIL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #(A B C) :END NIL) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #(A B C) :END NIL) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #(A B C) :END 1) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #(A B C) :END 2) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #(A B C) :END 3) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION 'B #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 'C #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION '(A) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION '(A) #((A) (B) (C)) :TEST #'EQUAL) 0)) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") #(("a") ("b") ("c"))))) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") #(("A") ("B") ("c")) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (POSITION '("a") #(("A") ("B") ("c")) :TEST #'EQUALP) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T) :FROM-END T) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 #(0 1 2 3 4 5)) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST #'<) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST #'>) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION '(A) #((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) 0)) -EQL-OK: NIL -(NOT (NULL (POSITION '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) -EQL-OK: NIL -(NOT (EQL (POSITION '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION #\c #("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 1)) -EQL-OK: NIL -(NOT (NULL (POSITION #\z "abcABC"))) -EQL-OK: NIL -(NOT (EQL (POSITION #\a "abcABC") 0)) -EQL-OK: NIL -(NOT (EQL (POSITION #\A "abcABC") 3)) -EQL-OK: NIL -(NOT (EQL (POSITION #\A "abcABC" :TEST #'CHAR-EQUAL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION #\A "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 4) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 3) 0)) -EQL-OK: NIL -(NOT (ZEROP (POSITION 0 #*01))) -EQL-OK: NIL -(NOT (EQL (POSITION 1 #*01) 1)) -EQL-OK: NIL -(NOT (NULL (POSITION 0 #*01 :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION 1 #*01 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION 0 #*000001 :START 5))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (ARG) (EQ ARG 'X)) '(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END NIL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END NIL) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END NIL) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 1) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 2) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 3) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (ARG) (EQ ARG 'X)) #(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END NIL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END NIL) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END NIL) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 1) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 2) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 3) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END NIL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END NIL) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END NIL) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 1) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 2) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 3) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde")))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C)) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C)) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A B C)))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :START 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :START 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2 :FROM-END T))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END NIL) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END NIL) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END NIL) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 1) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 2) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 3) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 0))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 1))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 2))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) -EQL-OK: NIL -(NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) -EQL-OK: NIL -(NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH "dog" "it's a dog's life") 7)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(0 1) '(2 4 6 1 3 5) :KEY #'ODDP) 2)) -EQL-OK: NIL -(NOT (EQL (SEARCH 'NIL 'NIL) 0)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(X Y Z)))) -EQL-OK: NIL -(NOT (EQL (SEARCH 'NIL '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A) '(A)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(X A B C Y Z)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(X Y A B C Z)) 2)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(X Y Z A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 1 :END2 1))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 2 :END2 2))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 3))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 4 :END2 4))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 5 :END2 5))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 6 :END2 6))) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 6) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C)))) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (SEARCH '((A) (B)) '((X) (Y) (Z) (A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A A) (B B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A A) (B B)) '((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(("a" A) ("b" B)) '(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) -EQL-OK: NIL -(NOT (EQL (SEARCH #() 'NIL) 0)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(X Y Z)))) -EQL-OK: NIL -(NOT (EQL (SEARCH #() '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A) '(A)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(X A B C Y Z)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(X Y A B C Z)) 2)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(X Y Z A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 1 :END2 1))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 2 :END2 2))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 3))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 4 :END2 4))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 5 :END2 5))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 6 :END2 6))) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 6) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C)))) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (SEARCH #((A) (B)) '((X) (Y) (Z) (A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A A) (B B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A A) (B B)) '((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(("a" A) ("b" B)) '(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) -EQL-OK: NIL -(NOT (EQL (SEARCH 'NIL #()) 0)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(X Y Z)))) -EQL-OK: NIL -(NOT (EQL (SEARCH 'NIL #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A) #(A)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(X A B C Y Z)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(X Y A B C Z)) 2)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(X Y Z A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 1 :END2 1))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 2 :END2 2))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 3))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 4 :END2 4))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 5 :END2 5))) -EQL-OK: NIL -(NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 6 :END2 6))) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 6) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (NULL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C)))) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (SEARCH '((A) (B)) #((X) (Y) (Z) (A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A A) (B B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH '((A A) (B B)) #((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH '(("a" A) ("b" B)) #(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) -EQL-OK: NIL -(NOT (EQL (SEARCH #() #()) 0)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(X Y Z)))) -EQL-OK: NIL -(NOT (EQL (SEARCH #() #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A) #(A)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(X A B C Y Z)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(X Y A B C Z)) 2)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(X Y Z A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 1 :END2 1))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 2 :END2 2))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 3))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 4 :END2 4))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 5 :END2 5))) -EQL-OK: NIL -(NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 6 :END2 6))) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 6) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) -EQL-OK: NIL -(NOT (NULL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C)))) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z)) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (SEARCH #((A) (B)) #((X) (Y) (Z) (A) (B) (C))))) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A A) (B B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) -EQL-OK: NIL -(NOT (EQL (SEARCH #((A A) (B B)) #((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) -EQL-OK: NIL -(NOT (EQL (SEARCH #(("a" A) ("b" B)) #(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) -EQL-OK: NIL -(NOT (NULL (SEARCH "peace" "LOVE&PEACE"))) -EQL-OK: NIL -(NOT (EQL (SEARCH "peace" "LOVE&PEACE" :TEST #'CHAR-EQUAL) 5)) -EQL-OK: NIL -(NOT (EQL (SEARCH (CONCATENATE 'SIMPLE-VECTOR "peace") (CONCATENATE 'LIST "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) -EQL-OK: NIL -(NOT (EQL (SEARCH (CONCATENATE 'LIST "peace") (CONCATENATE 'VECTOR "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) -EQL-OK: NIL -(NOT (EQL (SEARCH (CONCATENATE 'VECTOR "peace") (CONCATENATE 'VECTOR "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) -EQL-OK: NIL -(NOT (EQL (SEARCH #*10 #*010101) 1)) -EQL-OK: NIL -(NOT (EQL (SEARCH #*10 #*010101 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (SEARCH "PeAcE" "LoVe&pEaCe"))) -EQL-OK: NIL -(NOT (EQL (SEARCH "PeAcE" "LoVe&pEaCe" :KEY #'CHAR-UPCASE) 5)) -EQL-OK: NIL -(NOT (EQL (SEARCH "abc" "abc xyz abc" :FROM-END T) 8)) -EQL-OK: NIL -(NOT (EQL (SEARCH "abc" "abc xyz abc xyz abc xyz abc" :START2 8 :END2 19) 8)) -EQL-OK: NIL -(NOT (EQL (SEARCH "abc" "abc xyz abc xyz abc xyz abc" :FROM-END T :START2 8 :END2 19) 16)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcd" "ABCDE" :TEST #'CHAR-EQUAL) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(3 2 1 1 2 3) '(1 2 3) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(1 2 3) '(2 3 4) :TEST-NOT #'EQ :KEY #'ODDP))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(1 2 3 4 5 6) '(3 4 5 6 7) :START1 2 :END2 4))) -EQL-OK: NIL -(NOT (NULL (MISMATCH 'NIL 'NIL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH 'NIL '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) 'NIL) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A) '(A)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) '(A B C)) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) '(A B C)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E F) '(A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(A B C D E F)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(A B X)) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(A X C)) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 NIL) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 4) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 0 :END1 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 1 :END1 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 2 :END1 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 3 :END1 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 0 :END1 0 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 3 :END1 3 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 0 :END1 0) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 1 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 2 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) '(X Y Z Z) :START1 0 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 3))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) '(X Y Z A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) '(X Y Z A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(A B C X Y Z)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 3 :START2 1) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :END2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 1 :START2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) '(A B C) :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) '(A B C) :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(C) :FROM-END T) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) '(X Y Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :END1 3 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :END1 5 :FROM-END T) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C)) '((A) (B) (C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A) (B) (C)) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A) (B) (C)) '((A) (B) (C)) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(#(A) #(B) #(C)) '(#(A) #(B) #(C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#(A) #(B) #(C)) '(#(A) #(B) #(C)) :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C) (D)) '((A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C)) '((A) (B) (C) (D)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C)) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F))) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #() 'NIL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #() '(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) 'NIL) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A) '(A)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) '(A B C)) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) '(A B C)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E F) '(A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(A B C D E F)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(A B X)) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(A X C)) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 NIL) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 4) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 0 :END1 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 1 :END1 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 2 :END1 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 3 :END1 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 0 :END1 0 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 3 :END1 3 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 0 :END1 0) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 1 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 2 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) '(X Y Z Z) :START1 0 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 3))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) '(X Y Z A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) '(X Y Z A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(A B C X Y Z)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 3 :START2 1) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :END2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 1 :START2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) '(A B C) :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) '(A B C) :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(C) :FROM-END T) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) '(X Y Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :END1 3 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :END1 5 :FROM-END T) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C)) '((A) (B) (C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A) (B) (C)) '((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A) (B) (C)) '((A) (B) (C)) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(#(A) #(B) #(C)) '(#(A) #(B) #(C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#(A) #(B) #(C)) '(#(A) #(B) #(C)) :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C) (D)) '((A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C)) '((A) (B) (C) (D)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C)) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F))) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (NULL (MISMATCH 'NIL #()))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH 'NIL #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #()) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A) #(A)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) #(A B C)) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) #(A B C)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E F) #(A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(A B C D E F)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(A B X)) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(A X C)) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 NIL) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 4) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 0 :END1 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 1 :END1 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 2 :END1 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 3 :END1 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 0 :END1 0 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #() :START1 3 :END1 3 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 0 :END1 0) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 1 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 2 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z) #(X Y Z Z) :START1 0 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 3))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) #(X Y Z A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z) #(X Y Z A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(A B C X Y Z)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 3 :START2 1) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :END2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 1 :START2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(A B C) #(A B C) :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C D) #(A B C) :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(C) :FROM-END T) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(A B C) #(X Y Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :END1 3 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :END1 5 :FROM-END T) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C)) #((A) (B) (C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A) (B) (C)) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A) (B) (C)) #((A) (B) (C)) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(#(A) #(B) #(C)) #(#(A) #(B) #(C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#(A) #(B) #(C)) #(#(A) #(B) #(C)) :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C) (D)) #((A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A) (B) (C)) #((A) (B) (C) (D)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C)) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F))) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #() #()))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #() #(X Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #()) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A) #(A)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) #(A B C)) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) #(A B C)))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E F) #(A B C)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(A B C D E F)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(A B X)) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(A X C)) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 NIL) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 4) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 0 :END1 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 1 :END1 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 2 :END1 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 3 :END1 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 0 :END1 0 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #() :START1 3 :END1 3 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 0 :END1 0) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 1 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 2 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 3 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z) #(X Y Z Z) :START1 0 :END1 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 3))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) #(X Y Z A B C)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z) #(X Y Z A B C) :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(A B C X Y Z)) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1 :END2 NIL) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D)) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :END1 3) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 3 :START2 1) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :END2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 1 :START2 1) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1) 3)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(A B C) #(A B C) :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C D) #(A B C) :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(C) :FROM-END T) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(A B C) #(X Y Z A B C) :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :END1 3 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :END1 5 :FROM-END T) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 6 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C)) #((A) (B) (C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A) (B) (C)) #((A) (B) (C)) :KEY #'CAR))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A) (B) (C)) #((A) (B) (C)) :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(#(A) #(B) #(C)) #(#(A) #(B) #(C))) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#(A) #(B) #(C)) #(#(A) #(B) #(C)) :TEST #'EQUALP))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C) (D)) #((A) (B) (C)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A) (B) (C)) #((A) (B) (C) (D)) :KEY #'CAR) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C)) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F))) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abc" "xyz") 0)) -EQL-OK: NIL -(NOT (NULL (MISMATCH "" ""))) -EQL-OK: NIL -(NOT (NULL (MISMATCH "a" "a"))) -EQL-OK: NIL -(NOT (NULL (MISMATCH "abc" "abc"))) -EQL-OK: NIL -(NOT (NULL (MISMATCH "abc" "ABC" :KEY #'CHAR-DOWNCASE))) -EQL-OK: NIL -(NOT (NULL (MISMATCH "abc" "ABC" :TEST #'CHAR-EQUAL))) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcde" "abc") 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abc" "abcde") 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abc" "abxyz") 2)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcde" "abx") 2)) -EQL-OK: NIL -(NOT (NULL (MISMATCH "abc" "abc" :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcxyz" "xyzxyz" :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcxyz" "xyz" :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "xyz" "abcxyz" :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "ayz" "abcxyz" :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH "abc" "xyz" :TEST #'CHAR<))) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abc" "xyz" :TEST #'CHAR>) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "abcxyz" "abcdefg") 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH "1xyz" "22xyz" :FROM-END T) 1)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #*010101 #*010101))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*010 #*101) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*010 #*101 :FROM-END T) 3)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*0101 #*010101) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*010101 #*0101) 4)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*010100 #*010111) 4)) -EQL-OK: NIL -(NOT (NULL (MISMATCH #*0101 #*0101 :FROM-END T))) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*00101 #*0101 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*0101 #*00101 :FROM-END T) 0)) -EQL-OK: NIL -(NOT (EQL (MISMATCH #*00101 #*10101 :FROM-END T) 1)) -EQL-OK: NIL -(NOT (EQUAL (REPLACE "abcdefghij" "0123456789" :START1 4 :END1 7 :START2 4) "abcd456hij")) -EQL-OK: NIL -(NOT (LET ((LST (COPY-SEQ "012345678"))) (AND (EQUAL (REPLACE LST LST :START1 2 :START2 0) "010123456") (EQUAL LST "010123456")))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z)))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(X Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :START2 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 2 :END1 2))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 3 :END1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 4 :END1 4))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 5 :END1 5))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL NIL))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL '(A B C)))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C)) (LIST (REPLACE LIST0 'NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C A B))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A A B C D))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 1 :END1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A A B D E))))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 'A 'B 'C)) (LIST (REPLACE LIST0 '(X Y Z)))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(X Y Z))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 2 :END1 2))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 3 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 4 :END1 4))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 5 :END1 5))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL #()))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL #(A B C)))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 'NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C A B))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B C D))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 '(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 2 :END1 2))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 3 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 4 :END1 4))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 5 :END1 5))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL #()))) -EQL-OK: NIL -(NOT (NULL (REPLACE NIL #(A B C)))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 #()))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C A B))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B C D))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B D E))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 #(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z))))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REPLACE STR0 "xyz"))) (AND (EQ STR0 STR) (EQUALP STR0 "xyz")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "")) (STR (REPLACE STR0 ""))) (AND (EQ STR0 STR) (EQUALP STR0 "")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "")) (STR (REPLACE STR0 "xyz"))) (AND (EQ STR0 STR) (EQUALP STR0 "")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REPLACE STR0 ""))) (AND (EQ STR0 STR) (EQUALP STR0 "abc")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 3))) (AND (EQ STR0 STR) (EQUALP STR0 "abcxyz")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 4 :START2 1))) (AND (EQ STR0 STR) (EQUALP STR0 "abcdyz")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 1 :END1 2 :START2 1))) (AND (EQ STR0 STR) (EQUALP STR0 "aycdef")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 1 :START2 1 :END2 2))) (AND (EQ STR0 STR) (EQUALP STR0 "aycdef")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 STR0 :START1 1))) (AND (EQ STR0 STR) (EQUALP STR0 "aabcde")))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*1010))) (AND (EQ BV0 BV) (EQUALP BV0 #*1010)))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*)) (BV (REPLACE BV0 #*1010))) (AND (EQ BV0 BV) (EQUALP BV0 #*)))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*))) (AND (EQ BV0 BV) (EQUALP BV0 #*0000)))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*1111 :START1 2))) (AND (EQ BV0 BV) (EQUALP BV0 #*0011)))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*1001)) (BV (REPLACE BV0 #*0110 :START1 1 :END1 3 :START2 1 :END2 3))) (AND (EQ BV0 BV) (EQUALP BV0 #*1111)))) -EQL-OK: NIL -(NOT (LET* ((BV0 (COPY-SEQ #*1010)) (BV (REPLACE BV0 BV0 :START1 1))) (AND (EQ BV0 BV) (EQUALP BV0 #*1101)))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE #\. #\ "0 2 4 6") "0.2.4.6")) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5)) '(1 2 9 1 3 9 5))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5) :COUNT 1) '(1 2 9 1 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 9 5))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 9 3 '(1 2 4 1 3 4 5) :TEST #'>) '(9 9 4 9 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 0 #'EVENP '((1) (2) (3) (4)) :START 2 :KEY #'CAR) '((1) (2) (3) 0))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 9 #'ODDP '(1 2 4 1 3 4 5)) '(9 2 4 9 9 4 9))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 9 #'EVENP '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 9 5))) -EQL-OK: NIL -(NOT (LET ((SOME-THINGS (LIST 'A 'CAR 'B 'CDR 'C))) (AND (EQUAL (NSUBSTITUTE-IF "function was here" #'FBOUNDP SOME-THINGS :COUNT 1 :FROM-END T) '(A CAR B "function was here" C)) (EQUAL SOME-THINGS '(A CAR B "function was here" C))))) -EQL-OK: NIL -(NOT (LET ((ALPHA-TESTER (COPY-SEQ "ab "))) (AND (EQUAL (NSUBSTITUTE-IF-NOT #\z #'ALPHA-CHAR-P ALPHA-TESTER) "abz") (EQUAL ALPHA-TESTER "abz")))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'A 'X '(X Y Z)) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'B 'Y '(X Y Z)) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'C 'Z '(X Y Z)) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'A 'P '(X Y Z)) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'A 'X 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE #\x #\b '(#\a #\b #\c #\d #\e) :TEST #'CHAR<) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE #\x #\b '(#\a #\b #\c #\d #\e) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE '(A) 'X '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'C 'B '(A B A B A B A B)) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'A 'B '(B B B)) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE #\z #\c '(#\a #\b #\c #\d #\e #\f) :TEST #'CHAR<) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE #\z #\c '(#\a #\b #\c #\d #\e #\f) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("love" "hate" "war" "peace") :TEST #'EQUAL) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("love" "hate" "war" "peace") :TEST-NOT (COMPLEMENT #'EQUAL)) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST #'STRING-EQUAL) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST #'STRING=) '("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=)) '("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'A 'X #(X Y Z)) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'B 'Y #(X Y Z)) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'C 'Z #(X Y Z)) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'A 'P #(X Y Z)) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'A 'X #()) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE #\x #\b #(#\a #\b #\c #\d #\e) :TEST #'CHAR<) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE #\x #\b #(#\a #\b #\c #\d #\e) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE '(A) 'X #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'C 'B #(A B A B A B A B)) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'A 'B #(B B B)) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE #\z #\c #(#\a #\b #\c #\d #\e #\f) :TEST #'CHAR<) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE #\z #\c #(#\a #\b #\c #\d #\e #\f) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("love" "hate" "war" "peace") :TEST #'EQUAL) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("love" "hate" "war" "peace") :TEST-NOT (COMPLEMENT #'EQUAL)) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST #'STRING-EQUAL) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST #'STRING=) #("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=)) #("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "abcabc") "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "") "")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "xyz") "xyz")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\x #\5 "0123456789" :TEST #'CHAR<) "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\x #\5 "0123456789" :TEST #'CHAR>) "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\x #\D "abcdefg" :KEY #'CHAR-UPCASE :TEST #'CHAR>) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\x #\D "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE :TEST #'CHAR>) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\x #\A "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\X #\A "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE #\X #\D "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :TEST #'CHAR< :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*1111) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*1111 :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*1111 :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 1 1 #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE 1 1 #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0)) :TEST #'>=) #*10101110)) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) '(X Y Z)) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) '(X Y Z)) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) '(X Y Z)) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) '(X Y Z)) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) '(#\a #\b #\c #\d #\e)) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) '(A B A B A B A B)) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) '(B B B)) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) '(#\a #\b #\c #\d #\e #\f)) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) '("love" "hate" "war" "peace")) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) '("war" "War" "WAr" "WAR")) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) #(X Y Z)) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) #(X Y Z)) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) #(X Y Z)) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) #(X Y Z)) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) #(#\a #\b #\c #\d #\e)) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) #(A B A B A B A B)) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) #(B B B)) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) #(#\a #\b #\c #\d #\e #\f)) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) #("love" "hate" "war" "peace")) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) #("war" "War" "WAr" "WAR")) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "abcabc") "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "") "")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "xyz") "xyz")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\5 ARG)) "0123456789") "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\5 ARG)) "0123456789") "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) "abcdefg" :KEY #'CHAR-UPCASE) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (EQL #\A ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\X #'(LAMBDA (ARG) (EQL #\A ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF #\X #'(LAMBDA (ARG) (CHAR< #\D ARG)) "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111 :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111 :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 1 #'(LAMBDA (ARG) (= 1 ARG)) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF 1 #'(LAMBDA (ARG) (>= 1 ARG)) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(X Y Z)) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) '(X Y Z)) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) '(X Y Z)) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) '(X Y Z)) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) '(#\a #\b #\c #\d #\e)) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) '(A B A B A B A B)) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) '(B B B)) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) '(#\a #\b #\c #\d #\e #\f)) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) '("love" "hate" "war" "peace")) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) '("war" "War" "WAr" "WAR")) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(X Y Z)) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) #(X Y Z)) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) #(X Y Z)) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) #(X Y Z)) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) #(#\a #\b #\c #\d #\e)) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) #(A B A B A B A B)) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) #(B B B)) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) #(#\a #\b #\c #\d #\e #\f)) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) #("love" "hate" "war" "peace")) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) #("war" "War" "WAr" "WAR")) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "abcabc") "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "") "")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "xyz") "xyz")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\5 ARG))) "0123456789") "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\5 ARG))) "0123456789") "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) "abcdefg" :KEY #'CHAR-UPCASE) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (SUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (CHAR< #\D ARG))) "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111 :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111 :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (SUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (>= 1 ARG))) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'A 'X (COPY-SEQ '(X Y Z))) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'B 'Y (COPY-SEQ '(X Y Z))) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'C 'Z (COPY-SEQ '(X Y Z))) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'A 'P (COPY-SEQ '(X Y Z))) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'A 'X (COPY-SEQ 'NIL)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE #\x #\b (COPY-SEQ '(#\a #\b #\c #\d #\e)) :TEST #'CHAR<) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE #\x #\b (COPY-SEQ '(#\a #\b #\c #\d #\e)) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE '(A) 'X (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'C 'B (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'A 'B (COPY-SEQ '(B B B))) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE #\z #\c (COPY-SEQ '(#\a #\b #\c #\d #\e #\f)) :TEST #'CHAR<) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE #\z #\c (COPY-SEQ '(#\a #\b #\c #\d #\e #\f)) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("love" "hate" "war" "peace")) :TEST #'EQUAL) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("love" "hate" "war" "peace")) :TEST-NOT (COMPLEMENT #'EQUAL)) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING-EQUAL) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING=) '("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=)) '("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'A 'X (COPY-SEQ #(X Y Z))) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'B 'Y (COPY-SEQ #(X Y Z))) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'C 'Z (COPY-SEQ #(X Y Z))) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'A 'P (COPY-SEQ #(X Y Z))) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'A 'X (COPY-SEQ #())) #())) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE #\x #\b (COPY-SEQ #(#\a #\b #\c #\d #\e)) :TEST #'CHAR<) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE #\x #\b (COPY-SEQ #(#\a #\b #\c #\d #\e)) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE '(A) 'X (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'C 'B (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'A 'B (COPY-SEQ #(B B B))) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE #\z #\c (COPY-SEQ #(#\a #\b #\c #\d #\e #\f)) :TEST #'CHAR<) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE #\z #\c (COPY-SEQ #(#\a #\b #\c #\d #\e #\f)) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("love" "hate" "war" "peace")) :TEST #'EQUAL) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("love" "hate" "war" "peace")) :TEST-NOT (COMPLEMENT #'EQUAL)) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING-EQUAL) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING=) #("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=)) #("war" "War" "WAr" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "abcabc")) "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\x #\5 (COPY-SEQ "0123456789") :TEST #'CHAR<) "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\x #\5 (COPY-SEQ "0123456789") :TEST #'CHAR>) "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\x #\D (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE :TEST #'CHAR>) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\x #\D (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE :TEST #'CHAR>) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\x #\A (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\X #\A (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE #\X #\D (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :TEST #'CHAR< :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111)) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 1 1 (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE 1 1 (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0)) :TEST #'>=) #*10101110)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(X Y Z))) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) (COPY-SEQ '(X Y Z))) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) (COPY-SEQ '(X Y Z))) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) (COPY-SEQ '(X Y Z))) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ 'NIL)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) (COPY-SEQ '(#\a #\b #\c #\d #\e))) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ '(B B B))) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) (COPY-SEQ '(#\a #\b #\c #\d #\e #\f))) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) (COPY-SEQ '("love" "hate" "war" "peace"))) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR"))) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(X Y Z))) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) (COPY-SEQ #(X Y Z))) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) (COPY-SEQ #(X Y Z))) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) (COPY-SEQ #(X Y Z))) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #())) #())) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) (COPY-SEQ #(#\a #\b #\c #\d #\e))) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ #(B B B))) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) (COPY-SEQ #(#\a #\b #\c #\d #\e #\f))) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) (COPY-SEQ #("love" "hate" "war" "peace"))) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR"))) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "abcabc")) "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\5 ARG)) (COPY-SEQ "0123456789")) "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\5 ARG)) (COPY-SEQ "0123456789")) "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (EQL #\A ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\X #'(LAMBDA (ARG) (EQL #\A ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF #\X #'(LAMBDA (ARG) (CHAR< #\D ARG)) (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111)) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 1 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF 1 #'(LAMBDA (ARG) (>= 1 ARG)) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(X Y Z))) '(A Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) (COPY-SEQ '(X Y Z))) '(X B Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) (COPY-SEQ '(X Y Z))) '(X Y C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) (COPY-SEQ '(X Y Z))) '(X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ 'NIL)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) (COPY-SEQ '(#\a #\b #\c #\d #\e))) '(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ '(B B B))) '(A A A))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) (COPY-SEQ '(#\a #\b #\c #\d #\e #\f))) '(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) (COPY-SEQ '("love" "hate" "war" "peace"))) '("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR"))) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(X Y Z))) #(A Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) (COPY-SEQ #(X Y Z))) #(X B Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) (COPY-SEQ #(X Y Z))) #(X Y C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) (COPY-SEQ #(X Y Z))) #(X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #())) #())) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) (COPY-SEQ #(#\a #\b #\c #\d #\e))) #(#\a #\b #\x #\x #\x))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ #(B B B))) #(A A A))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) (COPY-SEQ #(#\a #\b #\c #\d #\e #\f))) #(#\a #\b #\c #\z #\z #\z))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) (COPY-SEQ #("love" "hate" "war" "peace"))) #("love" "hate" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR"))) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "abcabc")) "AbcAbc")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\5 ARG))) (COPY-SEQ "0123456789")) "012345xxxx")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\5 ARG))) (COPY-SEQ "0123456789")) "xxxxx56789")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE) "xxxdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) -EQL-OK: NIL -(NOT (STRING= (NSUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (CHAR< #\D ARG))) (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111)) #*0000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) -EQL-OK: NIL -(NOT (EQUALP (NSUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (>= 1 ARG))) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING "all" " " "together" " " "now") "all together now")) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST "ABC" '(D E F) #(1 2 3) #*1011) '(#\A #\B #\C D E F 1 2 3 1 0 1 1))) -EQL-OK: NIL -(NOT (NULL (CONCATENATE 'LIST))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CONCATENATE 'SYMBOL)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CONCATENATE 'CLASS)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST 'NIL '(A B C) '(X Y Z)) '(A B C X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST '(A) #(B) '(C) #(X Y) '(Z)) '(A B C X Y Z))) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST '(A B C) #(D E F) "ghi" #*0101) '(A B C D E F #\g #\h #\i 0 1 0 1))) -EQL-OK: NIL -(NOT (NULL (CONCATENATE 'LIST))) -EQL-OK: NIL -(NOT (LET* ((LIST0 '(A B C)) (LIST (CONCATENATE 'LIST LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST LIST0) (EQUAL LIST '(A B C))))) -EQL-OK: NIL -(NOT (NULL (CONCATENATE 'LIST 'NIL #() "" #*))) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'LIST #(A B C) 'NIL 'NIL '(X Y Z) #() #() #* #(J K L)) '(A B C X Y Z J K L))) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR 'NIL '(A B C) '(X Y Z)) #(A B C X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR '(A) #(B) '(C) #(X Y) '(Z)) #(A B C X Y Z))) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR '(A B C) #(D E F) "ghi" #*0101) #(A B C D E F #\g #\h #\i 0 1 0 1))) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR) #())) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 #(A B C)) (VECTOR (CONCATENATE 'VECTOR VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR VECTOR0) (EQUALP VECTOR #(A B C))))) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR 'NIL #() "" #*) #())) -EQL-OK: NIL -(NOT (EQUALP (CONCATENATE 'VECTOR #(A B C) 'NIL 'NIL '(X Y Z) #() #() #* #(J K L)) #(A B C X Y Z J K L))) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING "abc" "def" "ghi" "jkl" "mno" "pqr") "abcdefghijklmnopqr")) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING "" "abc" "" "def" "" "ghi" "" "" "jkl" "" "mno" "" "pqr" "" "") "abcdefghijklmnopqr")) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING) "")) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING "" 'NIL #* #()) "")) -EQL-OK: NIL -(NOT (STRING= (CONCATENATE 'STRING "abc" '(#\d #\e #\f #\g) #(#\h #\i #\j #\k #\l)) "abcdefghijkl")) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*0101 #*1010) #*01011010)) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*0101 #*1010 #* #*11 #*1 #*1) #*010110101111)) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR '(0 1 0 1) '(0 1 0 1) #(0 1 0 1) #*0101) #*0101010101010101)) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR) #*)) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*) #*)) -EQL-OK: NIL -(NOT (EQUAL (CONCATENATE 'BIT-VECTOR #* 'NIL #()) #*)) -EQL-OK: NIL -(NOT (LET ((TEST1 (LIST 1 3 4 6 7)) (TEST2 (LIST 2 5 8))) (EQUAL (MERGE 'LIST TEST1 TEST2 #'<) '(1 2 3 4 5 6 7 8)))) -EQL-OK: NIL -(NOT (LET ((TEST1 (COPY-SEQ "BOY")) (TEST2 (COPY-SEQ "nosy"))) (EQUAL (MERGE 'STRING TEST1 TEST2 #'CHAR-LESSP) "BnOosYy"))) -EQL-OK: NIL -(NOT (LET ((TEST1 (VECTOR '(RED . 1) '(BLUE . 4))) (TEST2 (VECTOR '(YELLOW . 2) '(GREEN . 7)))) (EQUALP (MERGE 'VECTOR TEST1 TEST2 #'< :KEY #'CDR) #((RED . 1) (YELLOW . 2) (BLUE . 4) (GREEN . 7))))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'CONS (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 0 1 2) NIL #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST NIL (LIST 0 1 2) #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST NIL NIL #'<) NIL)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'CONS (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 0 1 2) NIL #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST #() (LIST 0 1 2) #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST #() #() #'<) NIL)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'CONS (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 0 1 2) #() #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST NIL (VECTOR 0 1 2) #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST NIL #() #'<) NIL)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (LIST 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'CONS (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 0 1 2) #() #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST #() (VECTOR 0 1 2) #'<) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST #() #() #'<) NIL)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'LIST (VECTOR 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 0 1 2) NIL #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR NIL (LIST 0 1 2) #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR NIL NIL #'<) #())) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 0 1 2) NIL #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR #() (LIST 0 1 2) #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR #() #() #'<) #())) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 0 1 2) #() #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR NIL (VECTOR 0 1 2) #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR NIL #() #'<) #())) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (LIST 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 0 1 2) #() #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR #() (VECTOR 0 1 2) #'<) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR #() #() #'<) #())) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) -EQL-OK: NIL -(NOT (EQUALP (MERGE 'VECTOR (VECTOR 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\c #\e) (LIST #\b #\d #\f) #'CHAR<) "abcdef")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (LIST #\d #\e #\f) #'CHAR<) "abcdef")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) 'NIL #'CHAR<) "abc")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING 'NIL (LIST #\a #\b #\c) #'CHAR<) "abc")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (COPY-SEQ "") #'CHAR<) "abc")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (COPY-SEQ "BCD") #'CHAR-LESSP) "abBcCD")) -EQL-OK: NIL -(NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\z) #(#\c #\x #\y) #'CHAR<) "abcxyz")) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*1010) #'<) #*01011010)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*) #'<) #*0101)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) 'NIL #'<) #*0101)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'BIT-VECTOR NIL (COPY-SEQ #*0101) #'<) #*0101)) -EQL-OK: NIL -(NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*0101) #'<) #*00101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 4 '(1 3 4 5 9)) '(1 3 5 9))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5)) '(1 2 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5) :COUNT 1) '(1 2 1 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 3 '(1 2 4 1 3 4 5) :TEST #'>) '(4 3 4 5))) -EQL-OK: NIL -(NOT (LET* ((LST '(LIST OF FOUR ELEMENTS)) (LST2 (COPY-SEQ LST)) (LST3 (DELETE 'FOUR LST))) (AND (EQUAL LST3 '(LIST OF ELEMENTS)) (NOT (EQUAL LST LST2))))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ODDP '(1 2 4 1 3 4 5)) '(2 4 4))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'EVENP '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'EVENP '(1 2 3 4 5 6 7 8 9) :COUNT 2 :FROM-END T) '(1 2 3 4 5 6 8))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5)) '(1 2 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5) :COUNT 1) '(1 2 1 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 3 (LIST 1 2 4 1 3 4 5) :TEST #'>) '(4 3 4 5))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ODDP (LIST 1 2 4 1 3 4 5)) '(2 4 4))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'EVENP (LIST 1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'EVENP (LIST 1 2 3 4 5 6)) '(1 3 5))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE 3 LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'B (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'C (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'Z (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 'A (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE 3 VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'B (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'C (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'Z (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A #()) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE 'A (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "ABCABC")) "ABCABC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE #\a STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\b (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\c (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10)) :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (> B 1))) #*0101001)) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 3)) LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 3)) VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\b)) (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\c)) (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'ODDP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'EVENP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF #'PLUSP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 3))) LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 3))) VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\b))) (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\c))) (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ODDP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'EVENP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'PLUSP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'B (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'C (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'Z (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE 'A (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'B (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'C (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'Z (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A #()) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE 'A (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "ABCABC")) "ABCABC")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\b (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\c (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10)) :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (> B 1))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\b)) (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\c)) (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'ODDP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'EVENP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF #'PLUSP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'A 'A)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (LIST 'A 'B 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) 'NIL) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'A 'A)) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (VECTOR 'A 'B 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) #()) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) -EQL-OK: NIL -(NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "xyz")) "xyz")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\b))) (COPY-SEQ "abcabc")) "acac")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\c))) (COPY-SEQ "abcabc")) "abab")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) -EQL-OK: NIL -(NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*0101) #*11)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1) #*1010101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1 :FROM-END T) #*0101011)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END NIL) #*01111)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6) #*011101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ODDP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'EVENP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) -EQL-OK: NIL -(NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'PLUSP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES "aBcDAbCd" :TEST #'CHAR-EQUAL :FROM-END T) "aBcD")) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES '(A B C B D D E)) '(A C B D E))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES '(A B C B D D E) :FROM-END T) '(A B C D E))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES '((FOO #\a) (BAR #\%) (BAZ #\A)) :TEST #'CHAR-EQUAL :KEY #'CADR) '((BAR #\%) (BAZ #\A)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES '((FOO #\a) (BAR #\%) (BAZ #\A)) :TEST #'CHAR-EQUAL :KEY #'CADR :FROM-END T) '((FOO #\a) (BAR #\%)))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 0 1 2 3 4 5 6)) (LIST (DELETE-DUPLICATES LIST0 :KEY #'ODDP :START 1 :END 6))) (EQUAL LIST '(0 4 5 6)))) -EQL-OK: NIL -(NOT (LET* ((LIST0 (LIST 2 1 0 1 0 1 2)) (LIST (REMOVE-DUPLICATES LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(2 1 0 1 0 1 2)) (EQUAL LIST '(0 1 2))))) -EQL-OK: NIL -(NOT (LET* ((VECTOR0 (VECTOR 2 1 0 1 0 1 2)) (VECTOR (REMOVE-DUPLICATES VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(2 1 0 1 0 1 2)) (EQUALP VECTOR #(0 1 2))))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2 2 3 3 3)) '(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 0 0 2 0 1 1 2 2 2 1 1 1 1 2)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 'A 'A 'B 'C 'C)) '(A B C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 2 0 2 1 1 1 0 0 0 1 2)) '(0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST)) 'NIL)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR) '((A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (ODDP A) (ODDP B)))) '((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (ODDP A) (ODDP B))))) '((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (EVENP A) (EVENP B)))) '((Y . 1) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (EVENP A) (EVENP B))))) '((Y . 1) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2 0 1 2 0 1 2 0 1 2) :START 3 :END 9) '(0 1 2 0 1 2 0 1 2))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11))) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR) '((0 . 9) (1 . 10) (2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END NIL :KEY #'CAR) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR) '((0 . 0) (1 . 1) (2 . 2) (0 . 6) (1 . 7) (2 . 8) (0 . 9) (1 . 10) (2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'LENGTH) (LIST "Tuesday" "Wednesday" "Saturday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) (LIST "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST-NOT (COMPLEMENT #'CHAR=)) (LIST "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE) '(#\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE :FROM-END T) '(#\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR=) (LIST #\a #\b #\c #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR=)) (LIST #\a #\b #\c #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL) (LIST #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL :FROM-END T) (LIST #\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (LIST #\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHA-CHAR-P) (LIST #\C #\9))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHANUMERICP) (LIST #\9))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11))) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR) (LIST '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END NIL) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9) (LIST '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9 :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL) (LIST '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL :FROM-END T) '((#\A . 0) (#\b . 1) (#\C . 2)))) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) '((#\A . 0) (#\b . 1) (#\C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2 2 3 3 3)) #(0 1 2 3))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 0 0 2 0 1 1 2 2 2 1 1 1 1 2)) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 'A 'A 'B 'C 'C)) #(A B C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2)) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 2 0 2 1 1 1 0 0 0 1 2)) #(0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR)) #())) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR) #((A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (ODDP A) (ODDP B)))) #((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (ODDP A) (ODDP B))))) #((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (EVENP A) (EVENP B)))) #((Y . 1) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (EVENP A) (EVENP B))))) #((Y . 1) (B . 1) (C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2 0 1 2 0 1 2 0 1 2) :START 3 :END 9) #(0 1 2 0 1 2 0 1 2))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11))) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR) #((0 . 9) (1 . 10) (2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END NIL :KEY #'CAR) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR) #((0 . 0) (1 . 1) (2 . 2) (0 . 6) (1 . 7) (2 . 8) (0 . 9) (1 . 10) (2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 9) '(1 . 10) '(2 . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'LENGTH) (VECTOR "Tuesday" "Wednesday" "Saturday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) (VECTOR "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST-NOT (COMPLEMENT #'CHAR=)) (VECTOR "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE) #(#\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE :FROM-END T) #(#\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR=) (VECTOR #\a #\b #\c #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR=)) (VECTOR #\a #\b #\c #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL) (VECTOR #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR #\A #\B #\C))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL :FROM-END T) (VECTOR #\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (VECTOR #\a #\b #\c))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHA-CHAR-P) (VECTOR #\C #\9))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHANUMERICP) (VECTOR #\9))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11))) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR) (VECTOR '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END NIL) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9) (VECTOR '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9 :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL) (VECTOR '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR '(#\a . 9) '(#\B . 10) '(#\c . 11)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL :FROM-END T) #((#\A . 0) (#\b . 1) (#\C . 2)))) -EQL-OK: NIL -(NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) #((#\A . 0) (#\b . 1) (#\C . 2)))) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "")) "")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "abc")) "abc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "abcabc")) "abc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabc")) "abc")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabc") :FROM-END T) "cba")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA")) "abcCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :FROM-END T) "cbaABC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :KEY #'CHAR-DOWNCASE) "CBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :KEY #'CHAR-DOWNCASE :FROM-END T) "cba")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3) "cbaabcCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :FROM-END T) "cbaabcABC")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9) "cbaabcABCCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'CHAR-UPCASE) "cbaABCCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'CHAR-UPCASE :FROM-END T) "cbaabcCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) "cbaabcCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) "cbaabcCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'UPPER-CASE-P :TEST #'EQ) "cbacCCBA")) -EQL-OK: NIL -(NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'UPPER-CASE-P :TEST #'EQ :FROM-END T) "cbaaACBA")) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0011)) #*01)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110)) #*10)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110) :FROM-END T) #*01)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110) :START 1) #*010)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0001111011000100010)) #*10)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0001111011000100010) :FROM-END T) #*01)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*)) #*)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01)) #*01)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*10)) #*10)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0)) #*0)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*1)) #*1)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*1001) :START 1 :END 3) #*101)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6) #*011010)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T) #*010110)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG))) #*010110)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST #'CHAR-EQUAL) #*01010)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) #*01010)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST #'CHAR-EQUAL) #*01010)) -EQL-OK: NIL -(NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) #*01010)) -EQL-OK: NIL -RUN-TEST: finished "must-sequence" (0 errors out of 3,825 tests) -RUN-TEST: started # -(NOT (SIMPLE-STRING-P "")) -EQL-OK: NIL -(NOT (SIMPLE-STRING-P "abc")) -EQL-OK: NIL -(NOT (NOT (SIMPLE-STRING-P 'NOT-A-STRING))) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-ARRAY 3 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T))) (IF (NOT (SIMPLE-VECTOR-P STR)) (NOT (SIMPLE-STRING-P STR)) (SIMPLE-STRING-P STR)))) -EQL-OK: NIL -(NOT (CHAR= (CHAR "abc" 0) #\a)) -EQL-OK: NIL -(NOT (CHAR= (CHAR "abc" 1) #\b)) -EQL-OK: NIL -(NOT (CHAR= (CHAR "abc" 2) #\c)) -EQL-OK: NIL -(NOT (CHAR= (SCHAR "abc" 0) #\a)) -EQL-OK: NIL -(NOT (CHAR= (SCHAR "abc" 1) #\b)) -EQL-OK: NIL -(NOT (CHAR= (SCHAR "abc" 2) #\c)) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER 3 :INITIAL-CONTENTS "0123456789"))) (AND (STRING= STR "012") (CHAR= (CHAR STR 3) #\3) (CHAR= (CHAR STR 4) #\4) (CHAR= (CHAR STR 5) #\5) (CHAR= (CHAR STR 6) #\6) (CHAR= (CHAR STR 7) #\7) (CHAR= (CHAR STR 8) #\8) (CHAR= (CHAR STR 9) #\9) (CHAR= (VECTOR-POP STR) #\2)))) -EQL-OK: NIL -(NOT (STRING= (STRING "") "")) -EQL-OK: NIL -(NOT (STRING= (STRING "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING "a") "a")) -EQL-OK: NIL -(NOT (STRING= (STRING 'ABC) "ABC")) -EQL-OK: NIL -(NOT (STRING= (STRING 'A) "A")) -EQL-OK: NIL -(NOT (STRING= (STRING #\a) "a")) -EQL-OK: NIL -(NOT (STRING= (STRING-UPCASE "abcde") "ABCDE")) -EQL-OK: NIL -(NOT (STRING= (STRING-UPCASE "Dr. Livingston, I presume?") "DR. LIVINGSTON, I PRESUME?")) -EQL-OK: NIL -(NOT (STRING= (STRING-UPCASE "Dr. Livingston, I presume?" :START 6 :END 10) "Dr. LiVINGston, I presume?")) -EQL-OK: NIL -(NOT (STRING= (STRING-UPCASE 'KLUDGY-HASH-SEARCH) "KLUDGY-HASH-SEARCH")) -EQL-OK: NIL -(NOT (STRING= (STRING-UPCASE "abcde" :START 2 :END NIL) "abCDE")) -EQL-OK: NIL -(NOT (STRING= (STRING-DOWNCASE "Dr. Livingston, I presume?") "dr. livingston, i presume?")) -EQL-OK: NIL -(NOT (STRING= (STRING-DOWNCASE 'KLUDGY-HASH-SEARCH) "kludgy-hash-search")) -EQL-OK: NIL -(NOT (STRING= (STRING-DOWNCASE "A FOOL" :START 2 :END NIL) "A fool")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE "elm 13c arthur;fig don't") "Elm 13c Arthur;Fig Don'T")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE " hello ") " Hello ")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE "occlUDeD cASEmenTs FOreSTAll iNADVertent DEFenestraTION") "Occluded Casements Forestall Inadvertent Defenestration")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE 'KLUDGY-HASH-SEARCH) "Kludgy-Hash-Search")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE "DON'T!") "Don'T!")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE "pipe 13a, foo16c") "Pipe 13a, Foo16c")) -EQL-OK: NIL -(NOT (STRING= (STRING-CAPITALIZE "a fool" :START 2 :END NIL) "a Fool")) -EQL-OK: NIL -(NOT (LET ((STR (COPY-SEQ "0123ABCD890a"))) (AND (STRING= (NSTRING-DOWNCASE STR :START 5 :END 7) "0123AbcD890a") (STRING= STR "0123AbcD890a")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcde")) (STR (NSTRING-UPCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "ABCDE")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-UPCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "DR. LIVINGSTON, I PRESUME?")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-UPCASE STR0 :START 6 :END 10))) (AND (EQ STR0 STR) (STRING= STR "Dr. LiVINGston, I presume?")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "abcde")) (STR (NSTRING-UPCASE STR0 :START 2 :END NIL))) (STRING= STR "abCDE"))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-DOWNCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "dr. livingston, i presume?")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "ABCDE")) (STR (NSTRING-DOWNCASE STR0 :START 2 :END NIL))) (STRING= STR "ABcde"))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "elm 13c arthur;fig don't")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Elm 13c Arthur;Fig Don'T")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ " hello ")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR " Hello ")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "occlUDeD cASEmenTs FOreSTAll iNADVertent DEFenestraTION")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Occluded Casements Forestall Inadvertent Defenestration")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "DON'T!")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Don'T!")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "pipe 13a, foo16c")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Pipe 13a, Foo16c")))) -EQL-OK: NIL -(NOT (LET* ((STR0 (COPY-SEQ "a fool")) (STR (NSTRING-CAPITALIZE STR0 :START 2 :END NIL))) (STRING= STR "a Fool"))) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "abc" "abcaakaaakabcaaa") "kaaak")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM '(#\ #\Tab #\Newline) " garbanzo beans - ") "garbanzo beans")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM " (*)" " ( *three (silly) words* ) ") "three (silly) words")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "abc" "labcabcabc") "labcabcabc")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM " (*)" " ( *three (silly) words* ) ") "three (silly) words* ) ")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM " (*)" " ( *three (silly) words* ) ") " ( *three (silly) words")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "ABC" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "AABBCC" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "ABC" "") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "cba" "abc") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "cba" "abccba") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "ccbbba" "abccba") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "cba" "abcxabc") "x")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "xyz" "xxyabcxyyz") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "CBA" 'ABCXABC) "X")) -EQL-OK: NIL -(NOT (STRING= (STRING-TRIM "a" #\a) "")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "ABC" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "ABC" "") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "cba" "abc") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "cba" "abccba") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "cba" "abcxabc") "xabc")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "xyz" "xxyabcxyz") "abcxyz")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "CBA" 'ABCXABC) "XABC")) -EQL-OK: NIL -(NOT (STRING= (STRING-LEFT-TRIM "a" #\a) "")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "ABC" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "" "abc") "abc")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "ABC" "") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "cba" "abc") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "cba" "abccba") "")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "cba" "abcxabc") "abcx")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "xyz" "xxyabcxyz") "xxyabc")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "CBA" 'ABCXABC) "ABCX")) -EQL-OK: NIL -(NOT (STRING= (STRING-RIGHT-TRIM "a" #\a) "")) -EQL-OK: NIL -(NOT (STRING= (STRING "already a string") "already a string")) -EQL-OK: NIL -(NOT (STRING= (STRING 'ELM) "ELM")) -EQL-OK: NIL -(NOT (STRING= (STRING #\c) "c")) -EQL-OK: NIL -(NOT (STRING= "foo" "foo")) -EQL-OK: NIL -(NOT (NOT (STRING= "foo" "Foo"))) -EQL-OK: NIL -(NOT (NOT (STRING= "foo" "bar"))) -EQL-OK: NIL -(NOT (STRING= "together" "frog" :START1 1 :END1 3 :START2 2)) -EQL-OK: NIL -(NOT (STRING-EQUAL "foo" "Foo")) -EQL-OK: NIL -(NOT (STRING= "abcd" "01234abcd9012" :START2 5 :END2 9)) -EQL-OK: NIL -(NOT (EQL (STRING< "aaaa" "aaab") 3)) -EQL-OK: NIL -(NOT (EQL (STRING>= "aaaaa" "aaaa") 4)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "Abcde" "abcdE") 5)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "012AAAA789" "01aaab6" :START1 3 :END1 7 :START2 2 :END2 6) 6)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "AAAA" "aaaA"))) -EQL-OK: NIL -(NOT (STRING= "" "")) -EQL-OK: NIL -(NOT (STRING= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) -EQL-OK: NIL -(NOT (NOT (STRING= "abc" ""))) -EQL-OK: NIL -(NOT (NOT (STRING= "" "abc"))) -EQL-OK: NIL -(NOT (NOT (STRING= "A" "a"))) -EQL-OK: NIL -(NOT (STRING= "abc" "xyz" :START1 3 :START2 3)) -EQL-OK: NIL -(NOT (STRING= "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0)) -EQL-OK: NIL -(NOT (STRING= "axyza" "xyz" :START1 1 :END1 4)) -EQL-OK: NIL -(NOT (STRING= "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL)) -EQL-OK: NIL -(NOT (STRING= "abxyz" "xyabz" :END1 2 :START2 2 :END2 4)) -EQL-OK: NIL -(NOT (NOT (STRING= "love" "hate"))) -EQL-OK: NIL -(NOT (STRING= 'LOVE 'LOVE)) -EQL-OK: NIL -(NOT (NOT (STRING= 'LOVE "hate"))) -EQL-OK: NIL -(NOT (STRING= #\a #\a)) -EQL-OK: NIL -(NOT (NOT (STRING/= "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING/= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (EQL (STRING/= "abc" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING/= "" "abc") 0)) -EQL-OK: NIL -(NOT (EQL (STRING/= "A" "a") 0)) -EQL-OK: NIL -(NOT (NOT (STRING/= "abc" "xyz" :START1 3 :START2 3))) -EQL-OK: NIL -(NOT (NOT (STRING/= "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NOT (STRING/= "axyza" "xyz" :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (NOT (STRING/= "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL))) -EQL-OK: NIL -(NOT (NOT (STRING/= "abxyz" "xyabz" :END1 2 :START2 2 :END2 4))) -EQL-OK: NIL -(NOT (EQL (STRING/= "love" "hate") 0)) -EQL-OK: NIL -(NOT (EQL (STRING/= "love" "loVe") 2)) -EQL-OK: NIL -(NOT (NOT (STRING/= "life" "death" :START1 3 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :START1 3 :START2 3) 5)) -EQL-OK: NIL -(NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :START1 3 :END1 NIL :START2 3 :END2 NIL) 5)) -EQL-OK: NIL -(NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :END1 NIL :START2 3 :END2 3) 0)) -EQL-OK: NIL -(NOT (EQL (STRING/= "abc" "abcxyz") 3)) -EQL-OK: NIL -(NOT (EQL (STRING/= "abcxyz" "abc") 3)) -EQL-OK: NIL -(NOT (EQL (STRING/= "abcxyz" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING/= "AbcDef" "cdef" :START1 2) 3)) -EQL-OK: NIL -(NOT (EQL (STRING/= "cdef" "AbcDef" :START2 2) 1)) -EQL-OK: NIL -(NOT (= (STRING/= 'LOVE "hate") 0)) -EQL-OK: NIL -(NOT (NOT (STRING/= 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING/= #\a #\a))) -EQL-OK: NIL -(NOT (= (STRING/= #\a #\b) 0)) -EQL-OK: NIL -(NOT (NOT (STRING< "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING< "dog" "dog"))) -EQL-OK: NIL -(NOT (NOT (STRING< " " " "))) -EQL-OK: NIL -(NOT (NOT (STRING< "abc" ""))) -EQL-OK: NIL -(NOT (EQL (STRING< "" "abc") 0)) -EQL-OK: NIL -(NOT (EQL (STRING< "ab" "abc") 2)) -EQL-OK: NIL -(NOT (NOT (STRING< "abc" "ab"))) -EQL-OK: NIL -(NOT (EQL (STRING< "aaa" "aba") 1)) -EQL-OK: NIL -(NOT (NOT (STRING< "aba" "aaa"))) -EQL-OK: NIL -(NOT (NOT (STRING< "my cat food" "your dog food" :START1 6 :START2 8))) -EQL-OK: NIL -(NOT (NOT (STRING< "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) -EQL-OK: NIL -(NOT (EQL (STRING< "xyzabc" "abcd" :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING< "abc" "abc" :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (STRING< "xyzabc" "abc" :START1 3 :END1 5) 5)) -EQL-OK: NIL -(NOT (EQL (STRING< "xyz" "abcxyzXYZ" :START2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING< "abc" "abcxyz" :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING< "xyz" "abcxyz" :END1 2 :START2 3) 2)) -EQL-OK: NIL -(NOT (NOT (STRING< "xyzabc" "abcdef" :START1 3 :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING< "aaaa" "z") 0)) -EQL-OK: NIL -(NOT (EQL (STRING< "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) -EQL-OK: NIL -(NOT (EQL (STRING< "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (NOT (STRING< (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (NOT (STRING< 'LOVE 'HATE))) -EQL-OK: NIL -(NOT (= (STRING< 'PEACE 'WAR) 0)) -EQL-OK: NIL -(NOT (NOT (STRING< 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING< #\a #\a))) -EQL-OK: NIL -(NOT (= (STRING< #\a #\b) 0)) -EQL-OK: NIL -(NOT (NOT (STRING> "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING> "dog" "dog"))) -EQL-OK: NIL -(NOT (NOT (STRING> " " " "))) -EQL-OK: NIL -(NOT (EQL (STRING> "abc" "") 0)) -EQL-OK: NIL -(NOT (NOT (STRING> "" "abc"))) -EQL-OK: NIL -(NOT (NOT (STRING> "ab" "abc"))) -EQL-OK: NIL -(NOT (EQL (STRING> "abc" "ab") 2)) -EQL-OK: NIL -(NOT (EQL (STRING> "aba" "aaa") 1)) -EQL-OK: NIL -(NOT (NOT (STRING> "aaa" "aba"))) -EQL-OK: NIL -(NOT (NOT (STRING> "my cat food" "your dog food" :START1 6 :START2 8))) -EQL-OK: NIL -(NOT (NOT (STRING> "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) -EQL-OK: NIL -(NOT (EQL (STRING> "xyzabcde" "abcd" :START1 3) 7)) -EQL-OK: NIL -(NOT (NOT (STRING> "abc" "abc" :END1 1))) -EQL-OK: NIL -(NOT (EQL (STRING> "xyzabc" "a" :START1 3 :END1 5) 4)) -EQL-OK: NIL -(NOT (EQL (STRING> "xyzXYZ" "abcxyz" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING> "abcxyz" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING> "xyzXYZ" "abcxyz" :END1 2 :START2 3))) -EQL-OK: NIL -(NOT (NOT (STRING> "xyzabc" "abcdef" :START1 3 :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING> "z" "aaaa") 0)) -EQL-OK: NIL -(NOT (EQL (STRING> "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) -EQL-OK: NIL -(NOT (EQL (STRING> "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (NOT (STRING> (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (= (STRING> 'LOVE 'HATE) 0)) -EQL-OK: NIL -(NOT (NOT (STRING> 'PEACE 'WAR))) -EQL-OK: NIL -(NOT (NOT (STRING> 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING> #\a #\a))) -EQL-OK: NIL -(NOT (NOT (STRING> #\a #\b))) -EQL-OK: NIL -(NOT (= (STRING> #\z #\a) 0)) -EQL-OK: NIL -(NOT (EQL (STRING<= "" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING<= "dog" "dog") 3)) -EQL-OK: NIL -(NOT (EQL (STRING<= " " " ") 1)) -EQL-OK: NIL -(NOT (NOT (STRING<= "abc" ""))) -EQL-OK: NIL -(NOT (EQL (STRING<= "ab" "abc") 2)) -EQL-OK: NIL -(NOT (EQL (STRING<= "aaa" "aba") 1)) -EQL-OK: NIL -(NOT (NOT (STRING<= "aba" "aaa"))) -EQL-OK: NIL -(NOT (EQL (STRING<= "my cat food" "your dog food" :START1 6 :START2 8) 11)) -EQL-OK: NIL -(NOT (EQL (STRING<= "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) -EQL-OK: NIL -(NOT (EQL (STRING<= "xyzabc" "abcd" :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING<= "abc" "abc" :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (STRING<= "xyzabc" "abc" :START1 3 :END1 5) 5)) -EQL-OK: NIL -(NOT (EQL (STRING<= "xyz" "abcxyzXYZ" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING<= "abc" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING<= "xyz" "abcxyz" :END1 2 :START2 3) 2)) -EQL-OK: NIL -(NOT (EQL (STRING<= "xyzabc" "abcdef" :START1 3 :END2 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING<= "aaaa" "z") 0)) -EQL-OK: NIL -(NOT (EQL (STRING<= "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) -EQL-OK: NIL -(NOT (EQL (STRING<= "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (EQL (STRING<= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) -EQL-OK: NIL -(NOT (NOT (STRING<= 'LOVE 'HATE))) -EQL-OK: NIL -(NOT (= (STRING<= 'PEACE 'WAR) 0)) -EQL-OK: NIL -(NOT (= (STRING<= 'LOVE 'LOVE) 4)) -EQL-OK: NIL -(NOT (= (STRING<= #\a #\a) 1)) -EQL-OK: NIL -(NOT (= (STRING<= #\a #\b) 0)) -EQL-OK: NIL -(NOT (NOT (STRING<= #\z #\a))) -EQL-OK: NIL -(NOT (EQL (STRING>= "" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING>= "dog" "dog") 3)) -EQL-OK: NIL -(NOT (EQL (STRING>= " " " ") 1)) -EQL-OK: NIL -(NOT (EQL (STRING>= "abc" "") 0)) -EQL-OK: NIL -(NOT (NOT (STRING>= "" "abc"))) -EQL-OK: NIL -(NOT (NOT (STRING>= "ab" "abc"))) -EQL-OK: NIL -(NOT (EQL (STRING>= "abc" "ab") 2)) -EQL-OK: NIL -(NOT (EQL (STRING>= "aba" "aaa") 1)) -EQL-OK: NIL -(NOT (NOT (STRING>= "aaa" "aba"))) -EQL-OK: NIL -(NOT (EQL (STRING>= "my cat food" "your dog food" :START1 6 :START2 8) 11)) -EQL-OK: NIL -(NOT (EQL (STRING>= "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) -EQL-OK: NIL -(NOT (EQL (STRING>= "xyzabcde" "abcd" :START1 3) 7)) -EQL-OK: NIL -(NOT (NOT (STRING>= "abc" "abc" :END1 1))) -EQL-OK: NIL -(NOT (EQL (STRING>= "xyzabc" "a" :START1 3 :END1 5) 4)) -EQL-OK: NIL -(NOT (EQL (STRING>= "xyzXYZ" "abcxyz" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING>= "abcxyz" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING>= "xyzXYZ" "abcxyz" :END1 2 :START2 3))) -EQL-OK: NIL -(NOT (EQL (STRING>= "xyzabc" "abcdef" :START1 3 :END2 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING>= "z" "aaaa") 0)) -EQL-OK: NIL -(NOT (EQL (STRING>= "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) -EQL-OK: NIL -(NOT (EQL (STRING>= "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (EQL (STRING>= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) -EQL-OK: NIL -(NOT (= (STRING>= 'LOVE 'HATE) 0)) -EQL-OK: NIL -(NOT (NOT (STRING>= 'PEACE 'WAR))) -EQL-OK: NIL -(NOT (= (STRING>= 'LOVE 'LOVE) 4)) -EQL-OK: NIL -(NOT (= (STRING>= #\a #\a) 1)) -EQL-OK: NIL -(NOT (NOT (STRING>= #\a #\b))) -EQL-OK: NIL -(NOT (= (STRING>= #\z #\a) 0)) -EQL-OK: NIL -(NOT (STRING-EQUAL "" "")) -EQL-OK: NIL -(NOT (STRING-EQUAL (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL "abc" ""))) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL "" "abc"))) -EQL-OK: NIL -(NOT (STRING-EQUAL "A" "a")) -EQL-OK: NIL -(NOT (STRING-EQUAL "abc" "xyz" :START1 3 :START2 3)) -EQL-OK: NIL -(NOT (STRING-EQUAL "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0)) -EQL-OK: NIL -(NOT (STRING-EQUAL "axyza" "xyz" :START1 1 :END1 4)) -EQL-OK: NIL -(NOT (STRING-EQUAL "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL)) -EQL-OK: NIL -(NOT (STRING-EQUAL "abxyz" "xyabz" :END1 2 :START2 2 :END2 4)) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL "love" "hate"))) -EQL-OK: NIL -(NOT (STRING-EQUAL "xyz" "XYZ")) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL 'LOVE 'HATE))) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL 'PEACE 'WAR))) -EQL-OK: NIL -(NOT (STRING-EQUAL 'LOVE 'LOVE)) -EQL-OK: NIL -(NOT (STRING-EQUAL #\a #\a)) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL #\a #\b))) -EQL-OK: NIL -(NOT (NOT (STRING-EQUAL #\z #\a))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "abc" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "" "abc") 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "A" "a"))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "abc" "xyz" :START1 3 :START2 3))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "axyza" "xyz" :START1 1 :END1 4))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "abxyz" "xyabz" :END1 2 :START2 2 :END2 4))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "love" "hate") 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "love" "loVe"))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "life" "death" :START1 3 :START2 1 :END2 2))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :START1 3 :START2 3))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :START1 3 :END1 NIL :START2 3 :END2 NIL))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :END1 NIL :START2 3 :END2 3) 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "abc" "abcxyz") 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "abcxyz" "abc") 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-EQUAL "abcxyz" "") 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "AbcDef" "cdef" :START1 2))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "cdef" "AbcDef" :START2 2))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL "ABC" "abc"))) -EQL-OK: NIL -(NOT (= (STRING-NOT-EQUAL 'LOVE 'HATE) 0)) -EQL-OK: NIL -(NOT (= (STRING-NOT-EQUAL 'PEACE 'WAR) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-EQUAL #\a #\a))) -EQL-OK: NIL -(NOT (= (STRING-NOT-EQUAL #\a #\b) 0)) -EQL-OK: NIL -(NOT (= (STRING-NOT-EQUAL #\z #\a) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "dog" "dog"))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP " " " "))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "abc" ""))) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "" "abc") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "ab" "abc") 2)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "abc" "ab"))) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "aaa" "aba") 1)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "aba" "aaa"))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "my cat food" "your dog food" :START1 6 :START2 8))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "xyzabc" "abcd" :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "abc" "abc" :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "xyzabc" "abc" :START1 3 :END1 5) 5)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "xyz" "abcxyzXYZ" :START2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "abc" "abcxyz" :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "xyz" "abcxyz" :END1 2 :START2 3) 2)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP "xyzabc" "abcdef" :START1 3 :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "aaaa" "z") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-LESSP "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (AND (NOT (STRING-LESSP "abc" "ABC")) (NOT (STRING-LESSP "ABC" "abc")))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP 'LOVE 'HATE))) -EQL-OK: NIL -(NOT (= (STRING-LESSP 'PEACE 'WAR) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP #\a #\a))) -EQL-OK: NIL -(NOT (= (STRING-LESSP #\a #\b) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-LESSP #\z #\a))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "" ""))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "dog" "dog"))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP " " " "))) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "abc" "") 0)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "" "abc"))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "ab" "abc"))) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "abc" "ab") 2)) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "aba" "aaa") 1)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "aaa" "aba"))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "my cat food" "your dog food" :START1 6 :START2 8))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "xyzabcde" "abcd" :START1 3) 7)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "abc" "abc" :END1 1))) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "xyzabc" "a" :START1 3 :END1 5) 4)) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "xyzXYZ" "abcxyz" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "abcxyz" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "xyzXYZ" "abcxyz" :END1 2 :START2 3))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP "xyzabc" "abcdef" :START1 3 :END2 3))) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "z" "aaaa") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) -EQL-OK: NIL -(NOT (EQL (STRING-GREATERP "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) -EQL-OK: NIL -(NOT (AND (NOT (STRING-GREATERP "abc" "ABC")) (NOT (STRING-GREATERP "ABC" "abc")))) -EQL-OK: NIL -(NOT (= (STRING-GREATERP 'LOVE 'HATE) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP 'PEACE 'WAR))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP 'LOVE 'LOVE))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP #\a #\a))) -EQL-OK: NIL -(NOT (NOT (STRING-GREATERP #\a #\b))) -EQL-OK: NIL -(NOT (= (STRING-GREATERP #\z #\a) 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "dog" "dog") 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP " " " ") 1)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-GREATERP "abc" ""))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "ab" "abc") 2)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "aaa" "aba") 1)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-GREATERP "aba" "aaa"))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "my cat food" "your dog food" :START1 6 :START2 8) 11)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abcd" :START1 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "abc" "abc" :END1 1) 1)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abc" :START1 3 :END1 5) 5)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "xyz" "abcxyzXYZ" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "abc" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "xyz" "abcxyz" :END1 2 :START2 3) 2)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abcdef" :START1 3 :END2 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "aaaa" "z") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-GREATERP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) -EQL-OK: NIL -(NOT (AND (EQL (STRING-NOT-GREATERP "abc" "ABC") 3) (EQL (STRING-NOT-GREATERP "ABC" "abc") 3))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-GREATERP 'LOVE 'HATE))) -EQL-OK: NIL -(NOT (= (STRING-NOT-GREATERP 'PEACE 'WAR) 0)) -EQL-OK: NIL -(NOT (= (STRING-NOT-GREATERP 'LOVE 'LOVE) 4)) -EQL-OK: NIL -(NOT (= (STRING-NOT-GREATERP #\a #\a) 1)) -EQL-OK: NIL -(NOT (= (STRING-NOT-GREATERP #\a #\b) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-GREATERP #\z #\a))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "" "") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "dog" "dog") 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP " " " ") 1)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "abc" "") 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP "" "abc"))) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP "ab" "abc"))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "abc" "ab") 2)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "aba" "aaa") 1)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP "aaa" "aba"))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "my cat food" "your dog food" :START1 6 :START2 8) 11)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "xyzabcde" "abcd" :START1 3) 7)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP "abc" "abc" :END1 1))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "xyzabc" "a" :START1 3 :END1 5) 4)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "xyzXYZ" "abcxyz" :START2 3) 3)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "abcxyz" "abcxyz" :END2 3) 3)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP "xyzXYZ" "abcxyz" :END1 2 :START2 3))) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "xyzabc" "abcdef" :START1 3 :END2 3) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "z" "aaaa") 0)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) -EQL-OK: NIL -(NOT (EQL (STRING-NOT-LESSP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) -EQL-OK: NIL -(NOT (AND (EQL (STRING-NOT-LESSP "abc" "ABC") 3) (EQL (STRING-NOT-LESSP "ABC" "abc") 3))) -EQL-OK: NIL -(NOT (= (STRING-NOT-LESSP 'LOVE 'HATE) 0)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP 'PEACE 'WAR))) -EQL-OK: NIL -(NOT (= (STRING-NOT-LESSP 'LOVE 'LOVE) 4)) -EQL-OK: NIL -(NOT (= (STRING-NOT-LESSP #\a #\a) 1)) -EQL-OK: NIL -(NOT (NOT (STRING-NOT-LESSP #\a #\b))) -EQL-OK: NIL -(NOT (= (STRING-NOT-LESSP #\z #\a) 0)) -EQL-OK: NIL -(NOT (STRINGP "aaaaaa")) -EQL-OK: NIL -(NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER))) -EQL-OK: NIL -(NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) -EQL-OK: NIL -(NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'STANDARD-CHAR))) -EQL-OK: NIL -(NOT (NOT (STRINGP #\a))) -EQL-OK: NIL -(NOT (NOT (STRINGP 'A))) -EQL-OK: NIL -(NOT (NOT (STRINGP '(STRING)))) -EQL-OK: NIL -(NOT (STRING= (MAKE-STRING 3 :INITIAL-ELEMENT #\a) "aaa")) -EQL-OK: NIL -(NOT (LET ((STR (MAKE-STRING 3))) (AND (SIMPLE-STRING-P STR) (SETF (SCHAR STR 0) #\x) (SETF (SCHAR STR 1) #\y) (SETF (SCHAR STR 2) #\z) (STRING= STR "xyz")))) -EQL-OK: NIL -(NOT (STRING= (MAKE-STRING 1 :INITIAL-ELEMENT #\ ) " ")) -EQL-OK: NIL -(NOT (STRING= (MAKE-STRING 0) "")) -EQL-OK: NIL -(NOT (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE (ARRAY-ELEMENT-TYPE (MAKE-STRING 3 :ELEMENT-TYPE 'STANDARD-CHAR))) 'CHARACTER)) -EQL-OK: NIL -RUN-TEST: finished "must-string" (0 errors out of 414 tests) -RUN-TEST: started # -(NOT (SYMBOLP 'ELEPHANT)) -EQL-OK: NIL -(NOT (NOT (SYMBOLP 12))) -EQL-OK: NIL -(NOT (SYMBOLP NIL)) -EQL-OK: NIL -(NOT (SYMBOLP 'NIL)) -EQL-OK: NIL -(NOT (SYMBOLP :TEST)) -EQL-OK: NIL -(NOT (NOT (SYMBOLP "hello"))) -EQL-OK: NIL -(NOT (NOT (KEYWORDP 'ELEPHANT))) -EQL-OK: NIL -(NOT (NOT (KEYWORDP 12))) -EQL-OK: NIL -(NOT (KEYWORDP :TEST)) -EQL-OK: NIL -(NOT (KEYWORDP ':TEST)) -EQL-OK: NIL -(NOT (NOT (KEYWORDP NIL))) -EQL-OK: NIL -(NOT (KEYWORDP :NIL)) -EQL-OK: NIL -(NOT (NOT (KEYWORDP '(:TEST)))) -EQL-OK: NIL -(NOT (NOT (KEYWORDP "hello"))) -EQL-OK: NIL -(NOT (NOT (KEYWORDP ":hello"))) -EQL-OK: NIL -(NOT (NOT (KEYWORDP '&OPTIONAL))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (STRING= (SYMBOL-NAME NEW) "symbol"))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (BOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (FBOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NULL (SYMBOL-PLIST NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NULL (SYMBOL-PACKAGE NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (MEMBER NEW (FIND-ALL-SYMBOLS "symbol"))))) -EQL-OK: NIL -(NOT (EVERY #'IDENTITY (MAPCAR #'(LAMBDA (NAME) (LET ((NEW (MAKE-SYMBOL NAME))) (AND (STRING= (SYMBOL-NAME NEW) NAME) (NOT (BOUNDP NEW)) (NOT (FBOUNDP NEW)) (NULL (SYMBOL-PLIST NEW)) (NOT (MEMBER NEW (FIND-ALL-SYMBOLS NAME)))))) '("" "Symbol" "eat-this" "SYMBOL" ":S:Y:M:B:O:L:")))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (STRING= (SYMBOL-NAME COPY) (SYMBOL-NAME 'CAR)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NOT (BOUNDP COPY)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NOT (FBOUNDP COPY)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NULL (SYMBOL-PLIST COPY)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NULL (SYMBOL-PACKAGE COPY)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (STRING= (SYMBOL-NAME COPY) (SYMBOL-NAME 'CAR)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (IF (BOUNDP 'CAR) (BOUNDP COPY) (NOT (BOUNDP COPY))))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (EQ (SYMBOL-FUNCTION COPY) (SYMBOL-FUNCTION 'CAR)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (EQUAL (SYMBOL-PLIST COPY) (SYMBOL-PLIST 'CAR)))) -EQL-OK: NIL -(NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (NULL (SYMBOL-PACKAGE COPY)))) -EQL-OK: NIL -(NOT (EVERY #'IDENTITY (MAPCAR #'(LAMBDA (SYMBOL) (LET ((COPY1 (COPY-SYMBOL SYMBOL)) (COPY2 (COPY-SYMBOL SYMBOL "copy-properties"))) (AND (STRING= (SYMBOL-NAME COPY1) (SYMBOL-NAME SYMBOL)) (STRING= (SYMBOL-NAME COPY2) (SYMBOL-NAME SYMBOL)) (NOT (BOUNDP COPY1)) (IF (BOUNDP SYMBOL) (BOUNDP COPY2) (NOT (BOUNDP COPY2))) (NOT (FBOUNDP COPY1)) (IF (FBOUNDP SYMBOL) (FBOUNDP COPY2) (NOT (FBOUNDP COPY2))) (NULL (SYMBOL-PLIST COPY1)) (EQUAL (SYMBOL-PLIST COPY2) (SYMBOL-PLIST SYMBOL)) (NULL (SYMBOL-PACKAGE COPY1)) (NULL (SYMBOL-PACKAGE COPY2)) (NOT (MEMBER COPY1 (FIND-ALL-SYMBOLS SYMBOL))) (NOT (MEMBER COPY2 (FIND-ALL-SYMBOLS SYMBOL)))))) '(NIL CDR *PACKAGE* LIST SYMBOL WEIRD-SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM))) (NOT (BOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM))) (NOT (FBOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM))) (NULL (SYMBOL-PLIST NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM))) (NULL (SYMBOL-PACKAGE NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM "How about this"))) (NOT (BOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM "How about this"))) (NOT (FBOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM "How about this"))) (NULL (SYMBOL-PLIST NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM "How about this"))) (NULL (SYMBOL-PACKAGE NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 100))) (NOT (BOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 10))) (NOT (FBOUNDP NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 9))) (NULL (SYMBOL-PLIST NEW)))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 8))) (NULL (SYMBOL-PACKAGE NEW)))) -EQL-OK: NIL -(NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "G~D" COUNTER))))) -EQL-OK: NIL -(NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM "JJ"))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "JJ~D" COUNTER))))) -EQL-OK: NIL -(NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM ""))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~D" COUNTER))))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 0))) (STRING= (SYMBOL-NAME NEW) "G0"))) -EQL-OK: NIL -(NOT (LET ((NEW (GENSYM 1000))) (STRING= (SYMBOL-NAME NEW) "G1000"))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP))) (CHAR= (AREF (SYMBOL-NAME SYMBOL) 0) #\T))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP))) (NOT (BOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP))) (NOT (FBOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP))) (NULL (SYMBOL-PLIST SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL)) (AND (EQ SYMBOL-FOUND SYMBOL) (IF (EQ *PACKAGE* (FIND-PACKAGE "KEYWORD")) (EQ STATUS :EXTERNAL) (EQ STATUS :INTERNAL)))))) -EQL-OK: NIL -(NOT (LET ((SYMBOL-1 (GENTEMP)) (SYMBOL-2 (GENTEMP))) (NOT (STRING= (SYMBOL-NAME SYMBOL-1) (SYMBOL-NAME SYMBOL-2))))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP "prefix"))) (STRING= (SUBSEQ (SYMBOL-NAME SYMBOL) 0 6) "prefix"))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NOT (BOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NOT (FBOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NULL (SYMBOL-PLIST SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENTEMP "prefix"))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL)) (AND (EQ SYMBOL-FOUND SYMBOL) (IF (EQ *PACKAGE* (FIND-PACKAGE "KEYWORD")) (EQ STATUS :EXTERNAL) (EQ STATUS :INTERNAL)))))) -EQL-OK: NIL -(NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (STRING= (SUBSEQ (SYMBOL-NAME SYMBOL) 0 6) "prefix"))) -EQL-OK: NIL -(NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NOT (BOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NOT (FBOUNDP SYMBOL)))) -EQL-OK: NIL -(NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NULL (SYMBOL-PLIST SYMBOL)))) -EQL-OK: NIL -(NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL) PACKAGE) (AND (EQ SYMBOL-FOUND SYMBOL) (EQ STATUS :INTERNAL))))) -EQL-OK: NIL -(NOT (FUNCTIONP (SYMBOL-FUNCTION 'CAR))) -EQL-OK: NIL -(NOT (EQ (SYMBOL-FUNCTION 'CAR) (FDEFINITION 'CAR))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) #'CAR) (EQ (SYMBOL-FOR-TEST '(A)) 'A))) -EQL-OK: NIL -(NOT (LET ((F #'(LAMBDA (A) A))) (SETF (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) F) (EQ (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) F))) -EQL-OK: NIL -(NOT (STRINGP (SYMBOL-NAME 'SYMBOL))) -EQL-OK: NIL -(NOT (STRING= (SYMBOL-NAME (INTERN "TEST-SYMBOL")) "TEST-SYMBOL")) -EQL-OK: NIL -(NOT (EQ (SYMBOL-PACKAGE 'CAR) (FIND-PACKAGE "COMMON-LISP"))) -EQL-OK: NIL -(NOT (EQ (SYMBOL-PACKAGE ':KEY) (FIND-PACKAGE "KEYWORD"))) -EQL-OK: NIL -(NOT (NULL (SYMBOL-PACKAGE (MAKE-SYMBOL "temp")))) -EQL-OK: NIL -(NOT (NULL (SYMBOL-PACKAGE (GENSYM)))) -EQL-OK: NIL -(NOT (PACKAGEP (SYMBOL-PACKAGE 'A))) -EQL-OK: NIL -(NOT (PACKAGEP (SYMBOL-PACKAGE 'MY-SYMBOL))) -EQL-OK: NIL -(NOT (LISTP (SYMBOL-PLIST 'CAR))) -EQL-OK: NIL -(NOT (LISTP (SYMBOL-PLIST 'CDR))) -EQL-OK: NIL -(NOT (NULL (SYMBOL-PLIST (GENSYM)))) -EQL-OK: NIL -(NOT (NULL (SYMBOL-PLIST (GENTEMP)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (EQUAL (SYMBOL-PLIST SYMBOL) '(A 1 B 2 C 3)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (SETF (SYMBOL-PLIST SYMBOL) 'NIL) (NULL (SYMBOL-PLIST SYMBOL)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (EQL (SYMBOL-VALUE 'A) 1))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (EQL (SYMBOL-VALUE 'A) 1)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (SETQ A 3) (EQL (SYMBOL-VALUE 'A) 1)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (DECLARE (SPECIAL A)) (EQL (SYMBOL-VALUE 'A) 2)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (DECLARE (SPECIAL A)) (SETQ A 3) (EQL (SYMBOL-VALUE 'A) 3)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (AND (EQL (LET ((A 2)) (SETF (SYMBOL-VALUE 'A) 3) A) 2) (EQL A 3)))) -EQL-OK: NIL -(NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 4)) (DECLARE (SPECIAL A)) (LET ((B (SYMBOL-VALUE 'A))) (SETF (SYMBOL-VALUE 'A) 5) (AND (EQL A 5) (EQL B 4)))))) -EQL-OK: NIL -(NOT (EQ (SYMBOL-VALUE :ANY-KEYWORD) :ANY-KEYWORD)) -EQL-OK: NIL -(NOT (EQ (SYMBOL-VALUE 'NIL) NIL)) -EQL-OK: NIL -(NOT (EQ (SYMBOL-VALUE 'NIL) NIL)) -EQL-OK: NIL -(NOT (EQ (SYMBOL-VALUE T) T)) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (EQL (GET SYMBOL 'A) 1) (EQL (GET SYMBOL 'B) 2) (EQL (GET SYMBOL 'C) 3) (EQL (GET SYMBOL 'D) NIL) (EQL (GET SYMBOL 'E 9) 9)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (EQL (SETF (GET SYMBOL 'A) 9) 9) (EQL (GET SYMBOL 'A) 9) (EQL (SETF (GET SYMBOL 'B) 8) 8) (EQL (GET SYMBOL 'B) 8) (EQL (SETF (GET SYMBOL 'C) 7) 7) (EQL (GET SYMBOL 'C) 7) (EQL (SETF (GET SYMBOL 'D) 6) 6) (EQL (GET SYMBOL 'D) 6) (EQL (SETF (GET SYMBOL 'E) 5) 5) (EQL (GET SYMBOL 'E) 5)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM)) TMP) (AND (NULL (GET SYMBOL 'A)) (SETF (GET SYMBOL 'A (SETQ TMP 1)) TMP) (EQL (GET SYMBOL 'A) 1)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (EQL (SETF (GET SYMBOL 'A) 5) 5) (EQL (GET SYMBOL 'A) 5)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (REMPROP SYMBOL 'A) (EQ (GET SYMBOL 'A 'NOT-FOUND) 'NOT-FOUND)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (NOT (REMPROP SYMBOL 'A)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (REMPROP SYMBOL 'A) (EQL (GET SYMBOL 'A) 9)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (REMPROP SYMBOL 'A) (EQL (GET SYMBOL 'A) 9) (REMPROP SYMBOL 'A) (EQ (GET SYMBOL 'A 'NOT-FOUND) 'NOT-FOUND)))) -EQL-OK: NIL -(NOT (NOT (BOUNDP (GENSYM)))) -EQL-OK: NIL -(NOT (LET ((SYMBOL (GENSYM))) (SET SYMBOL 1) (BOUNDP SYMBOL))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 1)) (NOT (BOUNDP 'TEST-SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 1)) (DECLARE (SPECIAL TEST-SYMBOL)) (BOUNDP 'TEST-SYMBOL))) -EQL-OK: NIL -(NOT (NOT (BOUNDP (MAKUNBOUND (GENSYM))))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (DECLARE (SPECIAL TEST-SYMBOL)) (NOT (BOUNDP (MAKUNBOUND 'TEST-SYMBOL)))) (BOUNDP 'TEST-SYMBOL)))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (MAKUNBOUND 'TEST-SYMBOL) (EQL TEST-SYMBOL 1)) (NOT (BOUNDP 'TEST-SYMBOL))))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (EQL TEST-SYMBOL 0) (SETF (SYMBOL-VALUE 'TEST-SYMBOL) 1) (EQL TEST-SYMBOL 1) (EQL (SET 'TEST-SYMBOL 10) 10) (EQL TEST-SYMBOL 10)))) -EQL-OK: NIL -(NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (SET 'TEST-SYMBOL 100) (EQL TEST-SYMBOL 1)) (EQL TEST-SYMBOL 100)))) -EQL-OK: NIL -RUN-TEST: finished "must-symbol" (0 errors out of 113 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (ADJUST-ARRAY (MAKE-ARRAY '(3 3)) '(1 9) :FILL-POINTER 1)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-RANK 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-RANK #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-RANK '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL-POINTER 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL-POINTER #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL-POINTER '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (FILL-POINTER VECTOR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (SETF (FILL-POINTER VECTOR) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (VECTOR-POP (MAKE-ARRAY 10 :FILL-POINTER NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (VECTOR-POP (MAKE-ARRAY 10 :FILL-POINTER 0))) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (EQ (VECTOR-POP VEC) 'C) (EQ (VECTOR-POP VEC) 'B) (EQ (VECTOR-POP VEC) 'A) (HANDLER-CASE (PROGN (VECTOR-POP VEC)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (VECTOR-PUSH 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (VECTOR-PUSH-EXTEND 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -(NOT (LET ((VECTOR (MAKE-ARRAY 1 :FILL-POINTER T :ADJUSTABLE NIL))) (OR (ADJUSTABLE-ARRAY-P VECTOR) (HANDLER-CASE (PROGN (VECTOR-PUSH-EXTEND 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) -EQL-OK: NIL -RUN-TEST: finished "should-array" (0 errors out of 32 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (CHAR=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR/=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR<)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR>)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR<=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR>=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-EQUAL)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NOT-EQUAL)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-LESSP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-GREATERP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NOT-GREATERP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NOT-LESSP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHARACTER "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHARACTER 'MORE-THAN-ONE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHARACTER '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHANUMERICP "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHANUMERICP 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ALPHANUMERICP '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-UPCASE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-UPCASE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-UPCASE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (UPPER-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (UPPER-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (UPPER-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LOWER-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LOWER-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LOWER-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOTH-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOTH-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOTH-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-CODE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-CODE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-CODE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NAME "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NAME 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CHAR-NAME '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NAME-CHAR '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-character" (0 errors out of 49 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (RPLACA NIL 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (RPLACA "NOT A CONS" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (RPLACD NIL 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (RPLACD "NOT A CONS" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CAADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CADDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CDDDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LIST-LENGTH '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LIST-LENGTH "NEITHER A PROPER LIST NOR A CIRCULAR LIST")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LIST-LENGTH 'NEITHER-A-PROPER-LIST-NOR-A-CIRCULAR-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-LIST NIL)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-LIST -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-LIST 1.2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-LIST 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-LIST "NOT A NON-NEGATIVE INTEGER")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FIRST "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SECOND "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (THIRD "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FOURTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FIFTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SIXTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SEVENTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (TENTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTHCDR -1 '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTHCDR 1.1 '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTHCDR #\a '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTHCDR 3 '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTH -1 '(1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTH "" '(1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NTH 3 '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ENDP 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ENDP #\z)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ENDP 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ENDP "not-a-list")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BUTLAST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BUTLAST 'NOT-A-LIST 'NOT-A-INTEGER)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BUTLAST '(1 2 3 4 5) -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BUTLAST '(1 2 3 4 5) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NBUTLAST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NBUTLAST 'NOT-A-LIST 'NOT-A-INTEGER)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NBUTLAST '(1 2 3 4 5) -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NBUTLAST '(1 2 3 4 5) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (LDIFF 'NOT-A-LIST 'OBJ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REST "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER 'A 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER 'A '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER 'A '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF #'ATOM 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF #'CONSP '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF #'CONSP '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'ATOM) 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'CONSP) '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'CONSP) '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAR #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAR #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAR #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPC #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPC #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPC #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAN #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAN #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCAN #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPLIST #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPLIST #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPLIST #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPL #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPL #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPL #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCON #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCON #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAPCON #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC 'KEY '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF #'NUMBERP '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT #'NUMBERP '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC 'KEY '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF #'NUMBERP '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT #'NUMBERP '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC 'KEY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF 'IDENTITY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT 'IDENTITY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PAIRLIS 'NOT-A-LIST 'NOT-A-LIST '((A . B)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PAIRLIS '0 '(0 1 2) '((KEY . DATUM)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PAIRLIS '(0) '1 '((KEY . DATUM)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '(0) '1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '(0) '1 :TEST #'EQUALP)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION #\a '(1 2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION 0 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION 0 1 :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b :TEST-NOT (COMPLEMENT #'CHAR=))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3 . 4) '(2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3 . 4) '(2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3) '(2 . 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION '((1) (2) (3)) '((2) 3) :TEST #'= :KEY #'CAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 0) '1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 0) '1 :TEST #'EQUALP)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION #\a '(1 2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION 0 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION #\a #\b)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION 0 1 :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b :TEST-NOT (COMPLEMENT #'CHAR=))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST* 1 2 3 4) '(2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST* 1 2 3 4) '(2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 1 2 3) '(2 . 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST '(1) '(2) '(3)) '((2) 3) :TEST #'= :KEY #'CAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ADJOIN 'A 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ADJOIN 'X '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SET-DIFFERENCE 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NSET-DIFFERENCE 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SET-EXCLUSIVE-OR 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NSET-EXCLUSIVE-OR 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (UNION 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-cons" (0 errors out of 140 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (FUNCALL (GENSYM) 0 1 2)) (UNDEFINED-FUNCTION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (VALUES-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (VALUES-LIST #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (VALUES-LIST '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-data-and-control" (0 errors out of 4 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (SPECIAL-OPERATOR-P '(IF T NIL T))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SPECIAL-OPERATOR-P '(NOT A SYMBOL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-eval" (0 errors out of 2 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (HASH-TABLE-REHASH-SIZE 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (HASH-TABLE-REHASH-THRESHOLD 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (HASH-TABLE-TEST 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-hash-table" (0 errors out of 3 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (PACKAGE-NAME '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PACKAGE-NICKNAMES '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PACKAGE-SHADOWING-SYMBOLS '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PACKAGE-USE-LIST '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PACKAGE-USED-BY-LIST '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (EVAL (MACROEXPAND '(WITH-PACKAGE-ITERATOR (GET 'CL))))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-package" (0 errors out of 6 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (LENGTH 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SEQ 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SEQ #2A((#\a #\b #\c) (#\x #\y #\z)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SEQ #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SEQ '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT 'NOT-A-SEQ 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT '(0 1 . 2) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT 'NOT-A-SEQ 0) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT #\a 0) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT '(0 1 . 2) 2) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT "012" -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT "012" 'INDEX)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT "012" "xyz")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT "012" 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT #(A B C D) 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT '(0 1 2) 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (ELT (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9)) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") -1) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 'INDEX) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") "xyz") #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 100) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) 100) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) -1) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL 'NOT-A-SEQ 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :START 'NOT-A-INT)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :START -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :END 'NOT-A-INT)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :END -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(VECTOR * 2) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(VECTOR * 4) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(ARRAY * 3) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(ARRAY * (1 2 3)) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE 'SYMBOL 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SUBSEQ 'NOT-A-SEQ 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SUBSEQ #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (SUBSEQ (LIST 0 1 2 3) 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SETF (SUBSEQ (VECTOR 0 1 2 3) 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAP '(VECTOR T 10) #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAP 'LIST #'+ '(0 1) '(1 0) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (MAP '(VECTOR * 4) #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (MAP 'NULL #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (MAP '(CONS * NULL) #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAP-INTO 'NOT-A-SEQ #'+ '(0 1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (MAP-INTO (LIST 0 1 2 3) #'+ 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (PROGN (HANDLER-CASE (PROGN (MAP-INTO (LIST 0 1 2 3) #'+ '(0 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REDUCE #'LIST 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT 0 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT 0 #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT-IF #'NUMBERP 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT-IF #'NUMBERP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT-IF-NOT #'NUMBERP 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COUNT-IF-NOT #'NUMBERP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REVERSE 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (NREVERSE 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FIND 'ITEM 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FIND-IF (CONSTANTLY NIL) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FIND-IF-NOT (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (POSITION 'ITEM 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (POSITION-IF (CONSTANTLY NIL) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (POSITION-IF-NOT (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (CONCATENATE '(VECTOR * 2) "a" "bc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MERGE '(VECTOR * 4) '(1 5) '(2 4 6) #'<)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMOVE 'A 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMOVE-IF (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMOVE-IF-NOT (COMPLEMENT (CONSTANTLY T)) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (DELETE 'A 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (DELETE-IF (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (DELETE-IF-NOT (COMPLEMENT (CONSTANTLY T)) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMOVE-DUPLICATES 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (DELETE-DUPLICATES 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-sequence" (0 errors out of 72 tests) -RUN-TEST: started # -RUN-TEST: finished "should-string" (0 errors out of 0 tests) -RUN-TEST: started # -(NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL 'NOT-A-STRING)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL '(NAME))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SYMBOL "NOT A SYMBOL")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SYMBOL #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (COPY-SYMBOL '(NAME))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENSYM 'EAT-THIS)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENSYM -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENSYM #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENTEMP 'NOT-A-STRING)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENTEMP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GENTEMP "TEMP" '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION "not-a-function")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (FMAKUNBOUND 'SYMBOL-FOR-TEST) (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST)) (UNDEFINED-FUNCTION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-NAME "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-NAME #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-NAME '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (PROGN (MAKUNBOUND 'A) (SYMBOL-VALUE 'A))) (UNBOUND-VARIABLE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GET "not-a-symbol" 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GET #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (GET '(NIL) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMPROP "not-a-symbol" 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMPROP #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (REMPROP '(NIL) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOUNDP "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOUNDP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (BOUNDP '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKUNBOUND "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKUNBOUND #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (MAKUNBOUND '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SET "not-a-symbol" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SET #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -(NOT (HANDLER-CASE (PROGN (SET '(NIL) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) -EQL-OK: NIL -RUN-TEST: finished "should-symbol" (0 errors out of 44 tests) -finished 25 files: 0 errors out of 9,877 tests - 1 must-condition: 0 errors out of 147 tests - 2 must-array: 0 errors out of 330 tests - 3 must-character: 0 errors out of 313 tests - 4 must-cons: 0 errors out of 728 tests - 5 must-data-and-control: 0 errors out of 310 tests - 6 must-do: 0 errors out of 75 tests - 7 must-eval: 0 errors out of 8 tests - 8 must-hash-table: 0 errors out of 82 tests - 9 must-loop: 0 errors out of 851 tests - 10 must-package: 0 errors out of 334 tests - 11 must-printer: 0 errors out of 437 tests - 12 must-reader: 0 errors out of 1,558 tests - 13 must-sequence: 0 errors out of 3,825 tests - 14 must-string: 0 errors out of 414 tests - 15 must-symbol: 0 errors out of 113 tests - 16 should-array: 0 errors out of 32 tests - 17 should-character: 0 errors out of 49 tests - 18 should-cons: 0 errors out of 140 tests - 19 should-data-and-control: 0 errors out of 4 tests - 20 should-eval: 0 errors out of 2 tests - 21 should-hash-table: 0 errors out of 3 tests - 22 should-package: 0 errors out of 6 tests - 23 should-sequence: 0 errors out of 72 tests - 24 should-string: 0 errors out of 0 tests - 25 should-symbol: 0 errors out of 44 tests -Bye. -mkdir benchmarks -cd benchmarks && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/benchmarks/Makefile . -cd benchmarks && ln -s /build/reproducible-path/clisp-2.49.20241103.git386dcd7/benchmarks/*.lisp . -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -norc"; export CLISP; cd benchmarks; make CLISP="$CLISP" clisp -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks' -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -norc -c run-all.lisp - i i i i i i i ooooo o ooooooo ooooo ooooo - I I I I I I I 8 8 8 8 8 o 8 8 - I \ `+' / I 8 8 8 8 8 8 - \ `-+-' / 8 8 8 ooooo 8oooo - `-__|__-' 8 8 8 8 8 - | 8 o 8 8 o 8 8 - ------+------ ooooo 8oooooo ooo8ooo ooooo 8 - -Welcome to GNU CLISP 2.49.95+ (2024-11-03) - -Copyright (c) Bruno Haible, Michael Stoll 1992-1993 -Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 -Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 -Copyright (c) Bruno Haible, Sam Steingold 1999-2000 -Copyright (c) Sam Steingold, Bruno Haible 2001-2018 - -Type :h and hit Enter for context help. - -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/run-all.lisp ... -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R2 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R3 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R2 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R3 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R2 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R3 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R2 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -WARNING: in BENCHMARKS-RUN in lines 103..176 : FRPOLY-R3 is neither declared - nor bound, - it will be treated as if it were declared SPECIAL. -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/run-all.fas -The following functions were used but not defined: - FAC ACKER BFIB-TEST CTAK STAK TAK MAS-BENCH TAK0 BOYER-SETUP BOYER-TEST - BROWSE DDERIV-RUN DERIV-RUN DESTRUCTIVE TEST-DIV2-ITERATIVE - TEST-DIV2-RECURSIVE FFT-BENCH FPRINT FREAD PEXPTSQ PUZZLE-START - NTH-PRIME TPRINT-TEST INIT-TRAVERSE RUN-TRAVERSE GOGOGO -The following special variables were not defined: - FRPOLY-R FRPOLY-R2 FRPOLY-R3 -0 errors, 12 warnings -Bye. -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -norc -i run-all.fas -x '(benchmarks :compiled "benchmarks.log")' - i i i i i i i ooooo o ooooooo ooooo ooooo - I I I I I I I 8 8 8 8 8 o 8 8 - I \ `+' / I 8 8 8 8 8 8 - \ `-+-' / 8 8 8 ooooo 8oooo - `-__|__-' 8 8 8 8 8 - | 8 o 8 8 o 8 8 - ------+------ ooooo 8oooooo ooo8ooo ooooo 8 - -Welcome to GNU CLISP 2.49.95+ (2024-11-03) - -Copyright (c) Bruno Haible, Michael Stoll 1992-1993 -Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 -Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 -Copyright (c) Bruno Haible, Sam Steingold 1999-2000 -Copyright (c) Sam Steingold, Bruno Haible 2001-2018 - -Type :h and hit Enter for context help. - -;; Loading file run-all.fas ... - Running the benchmarks: -For running the compiled benchmarks, use (benchmarks :compiled) -For running the interpreted benchmarks, use (benchmarks :interpreted) -;; Loaded file run-all.fas - > form: (compile all files # -("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac" - "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr" - "tprint" "traverse" "triang")) -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/acker.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/acker.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/bfib.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/bfib.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/boyer.lisp ... -WARNING: in BOYER-TEST in lines 493..512 : variable ANS is assigned but not - read -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/boyer.fas -0 errors, 1 warning -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/browse.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/browse.fas -The following functions were used but are deprecated: - - GENTEMP - This function creates symbols that cannot be garbage-collected. Use GENSYM instead. -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/ctak.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/ctak.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/dderiv.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/dderiv.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/deriv.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/deriv.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/destru.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/destru.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/div2.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/div2.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fac.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fac.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fft.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fft.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fprint.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fprint.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fread.lisp ... -Define FPRINT.TST by running the FPRINT benchmark! -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/fread.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/frpoly.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/frpoly.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/puzzle.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/puzzle.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/stak.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/stak.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/stream.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/stream.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/tak.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/tak.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/takl.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/takl.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/takr.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/takr.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/tprint.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/tprint.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/traverse.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/traverse.fas -0 errors, 0 warnings -;; Compiling file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/triang.lisp ... -;; Wrote file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks/triang.fas -0 errors, 0 warnings -unchecked: -("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac" - "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr" - "tprint" "traverse" "triang") -elapsed: 1.025464 sec [scaled: 2.086411809578538] - * file: "fac" - > form: (fac 1000) -unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 -elapsed: 0.914652 sec [scaled: 1.8609534166529775] - * file: "acker" - > form: (acker 3 5) -correct: 253 -elapsed: 0.125509 sec [scaled: 0.25536094861291353] - > form: (acker 3 6) -correct: 509 -elapsed: 0.272135 sec [scaled: 0.5536866021621972] - > form: (acker 3 7) -correct: 1021 -elapsed: 0.369356 sec [scaled: 0.7514927099719644] - * file: "bfib" - > form: (bfib-test) -correct: 6765 -elapsed: 0.985456 sec [scaled: 2.0050114252865314] - * file: "ctak" - > form: (ctak 18 12 6) -correct: 7 -elapsed: 1.162477 sec [scaled: 2.365178827499971] - * file: "stak" - > form: (stak 18 12 6) -correct: 7 -elapsed: 1.50621 sec [scaled: 3.0645389128290117] - * file: "tak" - > form: (tak 18 12 6) -correct: 7 -elapsed: 1.028523 sec [scaled: 2.0926356591973456] - * file: "takl" - > form: (mas-bench) -correct: (7 6 5 4 3 2 1) -elapsed: 1.110935 sec [scaled: 2.2603113358188422] - * file: "takr" - > form: (tak0 18 12 6) -correct: 7 -elapsed: 1.074083 sec [scaled: 2.185332157606259] - * file: "boyer" - > form: (boyer-test) -correct: NIL -elapsed: 0.901585 sec [scaled: 1.8343672633450478] - * file: "browse" - > form: (browse) -correct: NIL -elapsed: 1.161536 sec [scaled: 2.363264266371727] - * file: "dderiv" - > form: (dderiv-run) -correct: NIL -elapsed: 1.574727 sec [scaled: 3.2039437851179393] - * file: "deriv" - > form: (deriv-run) -correct: NIL -elapsed: 0.329301 sec [scaled: 0.66999669935368] - * file: "destru" - > form: (destructive 600 50) -correct: NIL -elapsed: 0.903781 sec [scaled: 1.8388352508451788] - * file: "div2" - > form: (test-div2-iterative) -correct: NIL -elapsed: 0.676455 sec [scaled: 1.3763171604741367] - > form: (test-div2-recursive) -correct: NIL -elapsed: 0.756432 sec [scaled: 1.5390385795533656] - * file: "fft" - > form: (fft-bench) -correct: NIL -elapsed: 0.861395 sec [scaled: 1.7525965813640505] - * file: "fprint" - > form: (fprint) -correct: T -elapsed: 1.641093 sec [scaled: 3.33897222702764] - * file: "fread" - > form: (fread) -correct: T -elapsed: 0.837116 sec [scaled: 1.7031984627321362] - * file: "frpoly" - > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2) -correct: NIL -elapsed: 0.000592 sec [scaled: 0.0012044847905635834] - > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2) -correct: NIL -elapsed: 0.000685 sec [scaled: 0.0013937028404325247] - > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2) -correct: NIL -elapsed: 0.000664 sec [scaled: 0.0013509761840105057] - > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5) -correct: NIL -elapsed: 0.006196 sec [scaled: 0.01260639824718237] - > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5) -correct: NIL -elapsed: 0.007365 sec [scaled: 0.014984848788008095] - > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5) -correct: NIL -elapsed: 0.007558 sec [scaled: 0.015377527106553315] - > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10) -correct: NIL -elapsed: 0.071629 sec [scaled: 0.1457365558501333] - > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10) -correct: NIL -elapsed: 0.082235 sec [scaled: 0.16731555194593967] - > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10) -correct: NIL -elapsed: 0.056795 sec [scaled: 0.11555525959469377] - > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15) -correct: NIL -elapsed: 0.397833 sec [scaled: 0.8094320906829089] - > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15) -correct: NIL -elapsed: 0.207174 sec [scaled: 0.42151677702739837] - > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15) -correct: NIL -elapsed: 0.151166 sec [scaled: 0.3075627497471869] - * file: "puzzle" - > form: (puzzle-start) - -Success in 2005 trials. -Success in 2005 trials. -Success in 2005 trials. -Success in 2005 trials.correct: NIL -elapsed: 0.841358 sec [scaled: 1.7118292473293841] - * file: "stream" - > form: (nth-prime 50) -correct: 229 -elapsed: 0.073675 sec [scaled: 0.14989935294725001] - > form: (nth-prime 100) -correct: 541 -elapsed: 0.510771 sec [scaled: 1.039216048920527] - > form: (nth-prime 150) -correct: 863 -elapsed: 0.636485 sec [scaled: 1.294994091084227] - * file: "tprint" - > form: (tprint-test 100) -correct: T -elapsed: 1.546216 sec [scaled: 3.1459352279156447] - * file: "traverse" - > form: (init-traverse) -correct: NIL -elapsed: 0.154102 sec [scaled: 0.3135363432355225] - > form: (run-traverse) -correct: NIL -elapsed: 0.784118 sec [scaled: 1.5953685895390808] - * file: "triang" - > form: (gogogo 22) -correct: NIL -elapsed: 3.88756 sec [scaled: 7.909640020951629] -Real time: 35.74794 sec. -Run time: 29.460205 sec. -Space: 418239784 Bytes -GC: 350, GC time: 6.603729 sec. - * :COMPILED: 2024:11:13 04:41:08 - * CLISP [2.49.95+ (2024-11-03) (built 3940049870) (memory 3940461075)] -compilation 1.02546 sec 2.08641 scaled -fac 0.91465 sec 1.86095 scaled -acker 0.76700 sec 1.56054 scaled -bfib 0.98546 sec 2.00501 scaled -ctak 1.16248 sec 2.36518 scaled -stak 1.50621 sec 3.06454 scaled -tak 1.02852 sec 2.09264 scaled -takl 1.11094 sec 2.26031 scaled -takr 1.07408 sec 2.18533 scaled -boyer 0.90158 sec 1.83437 scaled -browse 1.16154 sec 2.36326 scaled -dderiv 1.57473 sec 3.20394 scaled -deriv 0.32930 sec 0.67000 scaled -destru 0.90378 sec 1.83884 scaled -div2 1.43289 sec 2.91536 scaled -fft 0.86140 sec 1.75260 scaled -fprint 1.64109 sec 3.33897 scaled -fread 0.83712 sec 1.70320 scaled -frpoly 0.98989 sec 2.01404 scaled -puzzle 0.84136 sec 1.71183 scaled -stream 1.22093 sec 2.48411 scaled -tprint 1.54622 sec 3.14594 scaled -traverse 0.93822 sec 1.90890 scaled -triang 3.88756 sec 7.90964 scaled - -total 28.64240 sec 58.27590 scaled - -NIL -Bye. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/benchmarks' -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build' - create-stamp debian/debhelper-build-stamp - dh_testroot -O--builddirectory=debian/build -O--no-parallel - dh_prep -O--builddirectory=debian/build -O--no-parallel - dh_auto_install -O--builddirectory=debian/build -O--no-parallel - cd debian/build && make -j1 install DESTDIR=/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp AM_UPDATE_INFO_DIR=no -make[1]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build' -test -d boot || (mkdir boot && cd boot && for f in lisp.a libgnu.a libnoreadline.a modules.h modules.o lisp.run lispinit.mem; do ln -s ../$f .; done && (grep -v '^FILES=' ../makevars; fl=''; for f in lisp.a libgnu.a libnoreadline.a ; do fl=$fl' '`basename $f`; done; echo 'FILES='"'"$fl"'") > makevars) || (rm -rf boot ; exit 1) -mkdir -p i18n -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/i18n; pwd`; \ -if test -f $m/configure && { test ! -f i18n/config.status || test -n "`find $m/configure -prune -newer i18n/config.status`"; } ; then ( cd i18n ;\ - cache=`echo i18n/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f i18n/Makefile || test -n "`find $m/Makefile -prune -newer i18n/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > i18n/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd i18n ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n' -mkdir -p syscalls -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/syscalls; pwd`; \ -if test -f $m/configure && { test ! -f syscalls/config.status || test -n "`find $m/configure -prune -newer syscalls/config.status`"; } ; then ( cd syscalls ;\ - cache=`echo syscalls/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f syscalls/Makefile || test -n "`find $m/Makefile -prune -newer syscalls/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > syscalls/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd syscalls ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls' -mkdir -p regexp -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/regexp; pwd`; \ -if test -f $m/configure && { test ! -f regexp/config.status || test -n "`find $m/configure -prune -newer regexp/config.status`"; } ; then ( cd regexp ;\ - cache=`echo regexp/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f regexp/Makefile || test -n "`find $m/Makefile -prune -newer regexp/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > regexp/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd regexp ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp' -mkdir -p readline -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/readline; pwd`; \ -if test -f $m/configure && { test ! -f readline/config.status || test -n "`find $m/configure -prune -newer readline/config.status`"; } ; then ( cd readline ;\ - cache=`echo readline/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > readline/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd readline ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline' -rm -rf base -MAKE=make CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" with_dynamic_modules=no ./clisp-link add boot base i18n syscalls regexp readline || (rm -rf base ; exit 1) -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline' -gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit -c modules.c -In file included from modules.c:12: -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h: In function 'check_byte_vector': -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h:7364:153: warning: result of '10^2' is 8; did you mean '1e2'? [-Wxor-used-as-pow] - 7364 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; } - | ^ - | -- - | 1 e -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h:7364:150: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10) - 7364 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; } - | ^~ - | 0xa -gcc -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-z,relro -Wl,--export-dynamic modules.o readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring -o lisp.run -boot/lisp.run -B . -M boot/lispinit.mem -norc -q -i i18n/preload.lisp -i syscalls/preload.lisp -i regexp/preload.lisp -x (saveinitmem "base/lispinit.mem") -;; Loading file i18n/preload.lisp ... -;; Loaded file i18n/preload.lisp -;; Loading file syscalls/preload.lisp ... -;; Loaded file syscalls/preload.lisp -;; Loading file regexp/preload.lisp ... -;; Loaded file regexp/preload.lisp -;; Wrote the memory image into base/lispinit.mem (1,977,308 bytes) -Bytes permanently allocated: 90,848 -Bytes currently in use: 1,885,448 -Bytes available until next GC: 939,484 -1885448 ; -939484 ; -90848 ; -1 ; -155992 ; -13566 -base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem") -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n/i18n.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/i18n/i18n.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls/posix.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/syscalls/posix.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp/regexp.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/regexp/regexp.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline/readline.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/readline/readline.fas -;; Wrote the memory image into base/lispinit.mem (2,251,736 bytes) -Bytes permanently allocated: 94,560 -Bytes currently in use: 2,153,504 -Bytes available until next GC: 1,073,512 -2153504 ; -1073512 ; -94560 ; -2 ; -898048 ; -30691 -mkdir -p gdbm -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/gdbm; pwd`; \ -if test -f $m/configure && { test ! -f gdbm/config.status || test -n "`find $m/configure -prune -newer gdbm/config.status`"; } ; then ( cd gdbm ;\ - cache=`echo gdbm/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f gdbm/Makefile || test -n "`find $m/Makefile -prune -newer gdbm/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > gdbm/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd gdbm ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -mkdir -p berkeley-db -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/berkeley-db; pwd`; \ -if test -f $m/configure && { test ! -f berkeley-db/config.status || test -n "`find $m/configure -prune -newer berkeley-db/config.status`"; } ; then ( cd berkeley-db ;\ - cache=`echo berkeley-db/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > berkeley-db/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd berkeley-db ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -mkdir -p rawsock -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/rawsock; pwd`; \ -if test -f $m/configure && { test ! -f rawsock/config.status || test -n "`find $m/configure -prune -newer rawsock/config.status`"; } ; then ( cd rawsock ;\ - cache=`echo rawsock/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f rawsock/Makefile || test -n "`find $m/Makefile -prune -newer rawsock/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > rawsock/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd rawsock ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -mkdir -p clx/new-clx -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx; pwd`; \ -if test -f $m/configure && { test ! -f clx/new-clx/config.status || test -n "`find $m/configure -prune -newer clx/new-clx/config.status`"; } ; then ( cd clx/new-clx ;\ - cache=`echo clx/new-clx/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f clx/new-clx/Makefile || test -n "`find $m/Makefile -prune -newer clx/new-clx/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > clx/new-clx/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd clx/new-clx ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -mkdir -p bindings/glibc -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/bindings/glibc; pwd`; \ -if test -f $m/configure && { test ! -f bindings/glibc/config.status || test -n "`find $m/configure -prune -newer bindings/glibc/config.status`"; } ; then ( cd bindings/glibc ;\ - cache=`echo bindings/glibc/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > bindings/glibc/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd bindings/glibc ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -mkdir -p postgresql -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/postgresql; pwd`; \ -if test -f $m/configure && { test ! -f postgresql/config.status || test -n "`find $m/configure -prune -newer postgresql/config.status`"; } ; then ( cd postgresql ;\ - cache=`echo postgresql/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > postgresql/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd postgresql ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -mkdir -p zlib -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/zlib; pwd`; \ -if test -f $m/configure && { test ! -f zlib/config.status || test -n "`find $m/configure -prune -newer zlib/config.status`"; } ; then ( cd zlib ;\ - cache=`echo zlib/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > zlib/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd zlib ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -mkdir -p dbus -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/dbus; pwd`; \ -if test -f $m/configure && { test ! -f dbus/config.status || test -n "`find $m/configure -prune -newer dbus/config.status`"; } ; then ( cd dbus ;\ - cache=`echo dbus/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > dbus/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd dbus ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -mkdir -p asdf -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/asdf; pwd`; \ -if test -f $m/configure && { test ! -f asdf/config.status || test -n "`find $m/configure -prune -newer asdf/config.status`"; } ; then ( cd asdf ;\ - cache=`echo asdf/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f asdf/Makefile || test -n "`find $m/Makefile -prune -newer asdf/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > asdf/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd asdf ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -mkdir -p fastcgi -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/fastcgi; pwd`; \ -if test -f $m/configure && { test ! -f fastcgi/config.status || test -n "`find $m/configure -prune -newer fastcgi/config.status`"; } ; then ( cd fastcgi ;\ - cache=`echo fastcgi/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > fastcgi/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd fastcgi ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -mkdir -p libsvm -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/libsvm; pwd`; \ -if test -f $m/configure && { test ! -f libsvm/config.status || test -n "`find $m/configure -prune -newer libsvm/config.status`"; } ; then ( cd libsvm ;\ - cache=`echo libsvm/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > libsvm/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd libsvm ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -mkdir -p pari -m=`cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/pari; pwd`; \ -if test -f $m/configure && { test ! -f pari/config.status || test -n "`find $m/configure -prune -newer pari/config.status`"; } ; then ( cd pari ;\ - cache=`echo pari/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ - if test -f ${cache} ; then \ - . ${cache}; \ - if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ - if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ - if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ - if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ - if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ - if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ - if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ - if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ - if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ - /bin/bash $m/configure --with-clisp="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm';\ - else \ - /bin/bash $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--with-dynamic-ffi' '--with-dynamic-modules' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security' 'LDFLAGS=-Wl,-z,relro' 'CPPFLAGS=-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm'; \ - fi ) ;\ -fi; \ -if test -f $m/Makefile && { test ! -f pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \ - sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pari/Makefile ; \ -fi ; \ -CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ -cd pari ; make clisp-module CC="gcc" CPPFLAGS=" -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib" CFLAGS=" -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC" LDFLAGS=" -Wl,-z,relro -Wl,--export-dynamic" LIBS="libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -rm -rf full -rm -rf dynmod; mkdir dynmod -MAKE=make CLISP="/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clisp -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ./clisp-link add base full gdbm berkeley-db rawsock clx/new-clx bindings/glibc postgresql zlib dbus asdf fastcgi libsvm pari || (rm -rf full ; exit 1) -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -gcc -shared -fPIC -DPIC gdbm.o -lgdbm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-gdbm.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -gcc -shared -fPIC -DPIC bdb.o -ldb -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-bdb.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-bdb.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -gcc -shared -fPIC -DPIC rawsock.o -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-rawsock.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lX11 -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-clx.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -gcc -shared -fPIC -DPIC linux.o -lm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-linux.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-linux.so -/usr/bin/ld: linux.o: in function `module__linux__init_function_2': -./debian/build/bindings/glibc/linux.c:1015:(.text+0x4138): warning: the use of `tempnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4128): warning: the use of `tmpnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4130): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:751:(.text+0x18d0): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -gcc -shared -fPIC -DPIC postgresql.o -lpq -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-postgresql.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-postgresql.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -gcc -shared -fPIC -DPIC zlib.o -lz -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-zlib.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-zlib.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -gcc -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-dbus.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-dbus.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -gcc -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o -lfcgi -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-fastcgi.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-fastcgi.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -gcc -shared -fPIC -DPIC libsvm.o -lm -lsvm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-libsvm.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-libsvm.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -gcc -shared -fPIC -DPIC cpari.o pari.o -lm -lpari -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pari.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-pari.so -gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gllib -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/gllib -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit -c modules.c -In file included from modules.c:12: -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h: In function 'check_byte_vector': -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h:7364:153: warning: result of '10^2' is 8; did you mean '1e2'? [-Wxor-used-as-pow] - 7364 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; } - | ^ - | -- - | 1 e -/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/linkkit/clisp.h:7364:150: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10) - 7364 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 7) == (2+4)) && ((((sintB)((((Record)((oint)(obj)-2)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; } - | ^~ - | 0xa -gcc -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-z,relro -Wl,--export-dynamic modules.o cpari.o pari.o -lm -lpari libsvm.o -lm -lsvm fastcgi.o fastcgi_wrappers.o -lfcgi dbus.o -ldbus-1 zlib.o -lz postgresql.o -lpq linux.o -lm clx.o -lXpm -lXext -lXau -lX11 rawsock.o bdb.o -ldb gdbm.o -lgdbm readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a libgnu.a -lreadline -lncurses -lffcall -lsigsegv -lunistring -o lisp.run -/usr/bin/ld: linux.o: in function `module__linux__init_function_2': -./debian/build/bindings/glibc/linux.c:1015:(.text+0x4138): warning: the use of `tempnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4128): warning: the use of `tmpnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4130): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:751:(.text+0x18d0): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' -base/lisp.run -B . -M base/lispinit.mem -norc -q -i gdbm/preload.lisp -i berkeley-db/preload.lisp -i rawsock/preload.lisp -i clx/new-clx/clx-preload.lisp -i libsvm/preload -i pari/preload.lisp -x (saveinitmem "full/lispinit.mem") -;; Loading file gdbm/preload.lisp ... -;; Loaded file gdbm/preload.lisp -;; Loading file berkeley-db/preload.lisp ... -;; Loaded file berkeley-db/preload.lisp -;; Loading file rawsock/preload.lisp ... -;; Loaded file rawsock/preload.lisp -;; Loading file clx/new-clx/clx-preload.lisp ... -;; Loaded file clx/new-clx/clx-preload.lisp -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/preload.lisp ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/preload.lisp -;; Loading file pari/preload.lisp ... -;; Loaded file pari/preload.lisp -;; Wrote the memory image into full/lispinit.mem (2,252,352 bytes) -Bytes permanently allocated: 94,560 -Bytes currently in use: 2,154,120 -Bytes available until next GC: 1,073,820 -2154120 ; -1073820 ; -94560 ; -1 ; -266832 ; -15974 -full/lisp.run -B . -M full/lispinit.mem -norc -q -i gdbm/gdbm -i berkeley-db/dbi -i rawsock/sock -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i bindings/glibc/linux -i bindings/glibc/wrap -i postgresql/postgresql -i postgresql/sql -i zlib/zlib -i dbus/dbus -i asdf/asdf -i fastcgi/fastcgi -i libsvm/libsvm -i pari/pari -x (saveinitmem "full/lispinit.mem") -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm/gdbm.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm/gdbm.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db/dbi.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db/dbi.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock/sock.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock/sock.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/clx.fas ... -WARNING: PROCLAIM(VALUES): # is locked - Ignore the lock and proceed -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/clx.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/image.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/image.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/resource.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx/resource.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc/linux.fas ... -WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc/linux.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc/wrap.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc/wrap.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql/postgresql.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql/postgresql.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql/sql.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql/sql.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib/zlib.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib/zlib.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus/dbus.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus/dbus.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf/asdf.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf/asdf.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi/fastcgi.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi/fastcgi.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/libsvm.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm/libsvm.fas -;; Loading file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari/pari.fas ... -;; Loaded file /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari/pari.fas -;; Wrote the memory image into full/lispinit.mem (5,739,404 bytes) -Bytes permanently allocated: 111,328 -Bytes currently in use: 5,619,768 -Bytes available until next GC: 2,806,644 -5619768 ; -2806644 ; -111328 ; -20 ; -37729080 ; -659318 -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/dynmod -DESTDIR=`cd "/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+"; pwd` CLISP='./clisp -q -norc' ./clisp-link install gdbm berkeley-db rawsock clx/new-clx bindings/glibc postgresql zlib dbus asdf fastcgi libsvm pari -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -gcc -shared -fPIC -DPIC gdbm.o -lgdbm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-gdbm.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -cp link.sh Makefile gdbm.fas gdbm.o preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/gdbm/gdbm.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/gdbm -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/gdbm' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -gcc -shared -fPIC -DPIC bdb.o -ldb -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-bdb.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-bdb.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -cp link.sh Makefile bdb.o dbi.fas preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/berkeley-db/dbi.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/berkeley-db -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/berkeley-db' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -gcc -shared -fPIC -DPIC rawsock.o -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-rawsock.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -cp link.sh Makefile sock.fas rawsock.o preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/rawsock/sock.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/rawsock -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/rawsock/demos -cp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/rawsock/demos/*.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/rawsock/demos/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/rawsock/demos/ -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/rawsock' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lX11 -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-clx.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -cp link.sh Makefile clx.fas image.fas resource.fas clx.o clx-preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/clx.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/image.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/resource.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos -cp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/demos/*.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/demos/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos/ -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos/screens /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos/xpms -cp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/demos/screens/screen.* /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos/screens/ -cp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/clx/new-clx/demos/xpms/*.xpm /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/clx/new-clx/demos/xpms/ -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/clx/new-clx' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -gcc -shared -fPIC -DPIC linux.o -lm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-linux.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-linux.so -/usr/bin/ld: linux.o: in function `module__linux__init_function_2': -./debian/build/bindings/glibc/linux.c:1015:(.text+0x4138): warning: the use of `tempnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4128): warning: the use of `tmpnam' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:1015:(.text+0x4130): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' -/usr/bin/ld: ./debian/build/bindings/glibc/linux.c:751:(.text+0x18d0): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -cp Makefile linux.o linux.fas wrap.fas link.sh /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/bindings/glibc/linux.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/bindings/glibc/wrap.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/bindings/glibc -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/bindings/glibc' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -gcc -shared -fPIC -DPIC postgresql.o -lpq -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-postgresql.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-postgresql.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -cp link.sh Makefile postgresql.o postgresql.fas sql.fas /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/postgresql/postgresql.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/postgresql/sql.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/postgresql/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/postgresql -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/postgresql' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -gcc -shared -fPIC -DPIC zlib.o -lz -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-zlib.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-zlib.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -cp link.sh Makefile zlib.o zlib.fas /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/zlib/zlib.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/zlib -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/zlib' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -gcc -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-dbus.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-dbus.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -cp link.sh Makefile dbus.o dbus.fas /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/dbus/dbus.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/dbus -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dbus' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -cp Makefile asdf.fas link.sh /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/asdf/asdf.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/asdf -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/asdf' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -gcc -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o -lfcgi -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-fastcgi.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-fastcgi.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -cp link.sh Makefile fastcgi.o fastcgi.fas fastcgi_wrappers.o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/fastcgi/fastcgi.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/fastcgi/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/fastcgi -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/fastcgi' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -gcc -shared -fPIC -DPIC libsvm.o -lm -lsvm -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-libsvm.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-libsvm.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -cp link.sh Makefile libsvm.fas libsvm.o preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/libsvm/libsvm.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/libsvm/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/libsvm -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/libsvm' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -make[2]: Nothing to be done for 'clisp-module'. -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -gcc -shared -fPIC -DPIC cpari.o pari.o -lm -lpari -Wl,-z,relro -Wl,--export-dynamic -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -marm -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pari.so -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/dynmod/lib-pari.so -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -cp link.sh Makefile pari.o cpari.o pari.fas preload.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/pari/pari.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/pari/desc2lisp.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/modules/pari/README /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/pari -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/pari' -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+ -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/data -/usr/bin/install -c -m 644 data/UnicodeDataFull.txt /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/data/UnicodeDataFull.txt -/usr/bin/install -c -m 644 data/Symbol-Table.text /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/data/Symbol-Table.text -(cd /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+ && rm -rf base full) -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/build-aux -for f in config.rpath depcomp; do /usr/bin/install -c -m 644 build-aux/$f /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/build-aux/$f; done -for d in linkkit base; do for f in $d/*; do \ - mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/$d; \ - case $f in \ - */lisp.run) /usr/bin/install -c $f /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/$f;; \ - *) /usr/bin/install -c -m 644 $f /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/lib/clisp-2.49.95+/$f;; \ - esac; \ -done; done -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/bin -/usr/bin/install -c clisp-link /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/bin/clisp-link -cd po && make install DESTDIR='/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp' prefix='/usr' exec_prefix='/usr' -make[2]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/po' -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/en.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/en/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_en.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/en/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/da.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/da/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_da.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/da/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/de.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/de/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_de.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/de/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/fr.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/fr/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_fr.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/fr/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/es.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/es/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_es.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/es/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/nl.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/nl/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_nl.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/nl/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/ru.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/ru/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_ru.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/ru/LC_MESSAGES/clisplow.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/sv.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/sv/LC_MESSAGES/clisp.mo -installing /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/po/clisplow_sv.gmo as /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/locale/sv/LC_MESSAGES/clisplow.mo -make[2]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build/po' -gcc -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -Wdate-time -D_FORTIFY_SOURCE=2 -I/usr/include/libsvm -I/build/reproducible-path/clisp-2.49.20241103.git386dcd7/src -g -O2 -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/clisp-2.49.20241103.git386dcd7=. -fstack-protector --param=ssp-buffer-size=4 -fstack-clash-protection -Wformat -Werror=format-security -Wl,-z,relro -DLISPLIBDIR='"/usr/lib/clisp-2.49.95+"' -DLOCALEDIR='"/usr/share/locale"' clisp.c -o /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/bin/clisp -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/emacs/site-lisp -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/emacs/clisp-coding.el /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/emacs/site-lisp/clisp-coding.el -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/emacs/clisp-indent.el /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/emacs/site-lisp/clisp-indent.el -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/emacs/clisp-indent.lisp /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/emacs/site-lisp/clisp-indent.lisp -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/emacs/clisp-ffi.el /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/emacs/site-lisp/clisp-ffi.el -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/vim/vimfiles/after/syntax -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/emacs/lisp.vim /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/vim/vimfiles/after/syntax/lisp.vim -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/aclocal -/usr/bin/install -c -m 644 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/src/m4/clisp.m4 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/aclocal/clisp.m4 -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/man -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/man/man1 -/usr/bin/install -c -m 644 clisp.1 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/man/man1/clisp.1 -/usr/bin/install -c -m 644 clisp-link.1 /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/man/man1/clisp-link.1 -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/doc/clisp -/usr/bin/install -c -m 644 ANNOUNCE COPYRIGHT GNU-GPL SUMMARY NEWS README README.de README.es MAGIC.add /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/doc/clisp/ -mkdir -p /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/doc/clisp/doc -/usr/bin/install -c -m 644 clisp.1 clisp.html clisp-link.1 clisp-link.html LISP-tutorial.txt CLOS-guide.txt impnotes.html impnotes.css clisp.png clisp.ps clisp.pdf clisp-link.ps clisp-link.pdf /build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/tmp/usr/share/doc/clisp/doc/ -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7/debian/build' - dh_install -O--builddirectory=debian/build -O--no-parallel - debian/rules execute_after_dh_install -make[1]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' -# remove unwanted upstream doc/ files -rm -f debian/clisp-doc/usr/share/doc/clisp/doc/clisp.1 \ - debian/clisp-doc/usr/share/doc/clisp/doc/clisp-link.1 \ - debian/clisp-doc/usr/share/doc/clisp/COPYRIGHT \ - debian/clisp-doc/usr/share/doc/clisp/GNU-GPL -# Remove unwanted demos in /usr/lib (they are already shipped under /usr/share/doc/) -rm -rf debian/clisp-module-clx/usr/lib/clisp-*/clx/new-clx/demos/ -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' - dh_installdocs -O--builddirectory=debian/build -O--no-parallel - debian/rules override_dh_installchangelogs -make[1]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' -dh_installchangelogs src/ChangeLog -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' - dh_installman -O--builddirectory=debian/build -O--no-parallel - dh_installsystemduser -O--builddirectory=debian/build -O--no-parallel - dh_lintian -O--builddirectory=debian/build -O--no-parallel - dh_perl -O--builddirectory=debian/build -O--no-parallel - dh_link -O--builddirectory=debian/build -O--no-parallel - dh_strip_nondeterminism -O--builddirectory=debian/build -O--no-parallel - Normalized debian/clisp/usr/share/locale/da/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/da/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/fr/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/fr/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/de/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/de/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/en/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/en/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/sv/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/sv/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/nl/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/nl/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/es/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/es/LC_MESSAGES/clisp.mo - Normalized debian/clisp/usr/share/locale/ru/LC_MESSAGES/clisplow.mo - Normalized debian/clisp/usr/share/locale/ru/LC_MESSAGES/clisp.mo - dh_compress -O--builddirectory=debian/build -O--no-parallel - dh_fixperms -O--builddirectory=debian/build -O--no-parallel - debian/rules execute_after_dh_fixperms-arch -make[1]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' -# Make scripts executable to make lintian happy -chmod +x debian/clisp/usr/lib/clisp-*/build-aux/config.rpath \ - debian/clisp/usr/lib/clisp-*/build-aux/depcomp -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' - dh_missing -O--builddirectory=debian/build -O--no-parallel - dh_dwz -a -O--builddirectory=debian/build -O--no-parallel - dh_strip -a -O--builddirectory=debian/build -O--no-parallel - dh_makeshlibs -a -O--builddirectory=debian/build -O--no-parallel - dh_shlibdeps -a -O--builddirectory=debian/build -O--no-parallel -dpkg-shlibdeps: warning: debian/clisp-module-libsvm/usr/lib/clisp-2.49.95+/dynmod/lib-libsvm.so contains an unresolvable reference to symbol symbol_tab_data: it's probably a plugin -dpkg-shlibdeps: warning: 6 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: debian/clisp-module-dbus/usr/lib/clisp-2.49.95+/dynmod/lib-dbus.so contains an unresolvable reference to symbol register_foreign_function: it's probably a plugin -dpkg-shlibdeps: warning: 1 similar warning has been skipped (use -v to see it) -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-armhf.so.3 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-armhf.so.3.usr-is-merged -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-armhf.so.3 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-armhf.so.3.usr-is-merged -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libreadline8t64 from: /lib/arm-linux-gnueabihf/libreadline.so.8 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libreadline8t64 to: /lib/arm-linux-gnueabihf/libreadline.so.8.usr-is-merged -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-armhf.so.3 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-armhf.so.3.usr-is-merged -dpkg-shlibdeps: warning: debian/clisp-module-gdbm/usr/lib/clisp-2.49.95+/dynmod/lib-gdbm.so contains an unresolvable reference to symbol c_double_to_DF: it's probably a plugin -dpkg-shlibdeps: warning: 44 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: debian/clisp-module-zlib/usr/lib/clisp-2.49.95+/dynmod/lib-zlib.so contains an unresolvable reference to symbol register_foreign_function: it's probably a plugin -dpkg-shlibdeps: warning: debian/clisp-module-pari/usr/lib/clisp-2.49.95+/dynmod/lib-pari.so contains an unresolvable reference to symbol clgettext: it's probably a plugin -dpkg-shlibdeps: warning: 8 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: debian/clisp/usr/lib/clisp-2.49.95+/dynmod/lib-linux.so contains an unresolvable reference to symbol register_foreign_variable: it's probably a plugin -dpkg-shlibdeps: warning: 8 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: debian/clisp/usr/lib/clisp-2.49.95+/dynmod/lib-rawsock.so contains an unresolvable reference to symbol check_classname: it's probably a plugin -dpkg-shlibdeps: warning: 56 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-armhf.so.3 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-armhf.so.3.usr-is-merged -dpkg-shlibdeps: warning: debian/clisp-module-fastcgi/usr/lib/clisp-2.49.95+/dynmod/lib-fastcgi.so contains an unresolvable reference to symbol register_foreign_function: it's probably a plugin -dpkg-shlibdeps: warning: debian/clisp-module-berkeley-db/usr/lib/clisp-2.49.95+/dynmod/lib-bdb.so contains an unresolvable reference to symbol typep_classname: it's probably a plugin -dpkg-shlibdeps: warning: 55 other similar warnings have been skipped (use -v to see them all) -dpkg-shlibdeps: warning: debian/clisp-module-postgresql/usr/lib/clisp-2.49.95+/dynmod/lib-postgresql.so contains an unresolvable reference to symbol register_foreign_inttype: it's probably a plugin -dpkg-shlibdeps: warning: 1 similar warning has been skipped (use -v to see it) -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 from: /lib/ld-linux-armhf.so.3 -dpkg-shlibdeps: warning: diversions involved - output may be incorrect - diversion by libc6 to: /lib/ld-linux-armhf.so.3.usr-is-merged -dpkg-shlibdeps: warning: debian/clisp-module-clx/usr/lib/clisp-2.49.95+/dynmod/lib-clx.so contains an unresolvable reference to symbol copy_8bit_32bit: it's probably a plugin -dpkg-shlibdeps: warning: 57 other similar warnings have been skipped (use -v to see them all) - dh_installdeb -O--builddirectory=debian/build -O--no-parallel - debian/rules execute_before_dh_gencontrol-arch -make[1]: Entering directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' -# add FAS file format version to substvars -debian/clisp/usr/bin/clisp -Efile utf-8 -B debian/clisp/usr/lib/clisp-* -M debian/clisp/usr/lib/clisp-*/base/lispinit.mem debian/fasl-version.lisp -# add memfile hash to substvars -echo "clisp:memfile-hash=clisp-memfile-hash-$(debian/clisp/usr/bin/clisp -B debian/clisp/usr/lib/clisp-* -memfile-hash)" >> debian/clisp.substvars -make[1]: Leaving directory '/build/reproducible-path/clisp-2.49.20241103.git386dcd7' - dh_gencontrol -O--builddirectory=debian/build -O--no-parallel - dh_md5sums -O--builddirectory=debian/build -O--no-parallel - dh_builddeb -O--builddirectory=debian/build -O--no-parallel -dpkg-deb: building package 'clisp-module-clx' in '../clisp-module-clx_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-zlib-dbgsym' in '../clisp-module-zlib-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp' in '../clisp_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-fastcgi' in '../clisp-module-fastcgi_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-fastcgi-dbgsym' in '../clisp-module-fastcgi-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-libsvm' in '../clisp-module-libsvm_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-libsvm-dbgsym' in '../clisp-module-libsvm-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-pari' in '../clisp-module-pari_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-clx-dbgsym' in '../clisp-module-clx-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-dbus' in '../clisp-module-dbus_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-pari-dbgsym' in '../clisp-module-pari-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-dbus-dbgsym' in '../clisp-module-dbus-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-gdbm' in '../clisp-module-gdbm_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-gdbm-dbgsym' in '../clisp-module-gdbm-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-zlib' in '../clisp-module-zlib_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-dbgsym' in '../clisp-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-doc' in '../clisp-doc_2.49.20241103.git386dcd7-3_all.deb'. -dpkg-deb: building package 'clisp-module-berkeley-db' in '../clisp-module-berkeley-db_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-berkeley-db-dbgsym' in '../clisp-module-berkeley-db-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-postgresql' in '../clisp-module-postgresql_2.49.20241103.git386dcd7-3_armhf.deb'. -dpkg-deb: building package 'clisp-module-postgresql-dbgsym' in '../clisp-module-postgresql-dbgsym_2.49.20241103.git386dcd7-3_armhf.deb'. - dpkg-genbuildinfo --build=binary -O../clisp_2.49.20241103.git386dcd7-3_armhf.buildinfo - dpkg-genchanges --build=binary -O../clisp_2.49.20241103.git386dcd7-3_armhf.changes -dpkg-genchanges: info: binary-only upload (no source code included) - dpkg-source --after-build . -dpkg-buildpackage: info: binary-only upload (no source included) -dpkg-genchanges: info: not including original source code in upload -I: copying local configuration +I: user script /srv/workspace/pbuilder/23608/tmp/hooks/C01_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/21470 and its subdirectories -I: Current time: Tue Nov 12 16:43:18 -12 2024 -I: pbuilder-time-stamp: 1731472998 +I: removing directory /srv/workspace/pbuilder/23608 and its subdirectories